Lines Matching refs:s
20 let s:cpo_save = &cpo
27 if b:fortran_retype =~? '\<fortran_dialect\s*=\s*F\>'
29 elseif b:fortran_retype =~? '\<fortran_dialect\s*=\s*f08\>'
65 " are detected in the first five columns of the first s:lmax lines.
69 let s:lmax = 500
70 if ( s:lmax > line("$") )
71 let s:lmax = line("$")
74 let s:ln=1
75 while s:ln <= s:lmax
76 let s:test = strpart(getline(s:ln),0,5)
77 … if s:test !~ '^[Cc*]' && s:test !~ '^ *[!#]' && s:test =~ '[^ 0-9\t]' && s:test !~ '^[ 0-9]*\t'
81 let s:ln = s:ln + 1
83 unlet! s:lmax s:ln s:test
90 syn match fortranConstructName "^\s\{6,}\zs\a\w*\ze\s*:"
92 syn match fortranConstructName "^\s*\zs\a\w*\ze\s*:"
95 syn match fortranConstructName "\(\<end\s*do\s\+\)\@11<=\a\w*"
96 syn match fortranConstructName "\(\<end\s*if\s\+\)\@11<=\a\w*"
97 syn match fortranConstructName "\(\<end\s*select\s\+\)\@15<=\a\w*"
118 syn match fortranConditionalOb "\<if\s*(.*)\s*\d\+\s*,\s*\d\+\s*,\s*\d\+\s*$"
127 syn match fortranOperator "\.\s*n\=eqv\s*\."
128 syn match fortranOperator "\.\s*\(and\|or\|not\)\s*\."
130 syn match fortranTypeOb "\<character\s*\*"
132 syn match fortranBoolean "\.\s*\(true\|false\)\s*\."
151 syn match fortranIntrinsic "\<len\s*[(,]"me=s+3
152 syn match fortranIntrinsic "\<real\s*("me=s+4
153 syn match fortranIntrinsic "\<logical\s*("me=s+7
154 syn match fortranType "\<implicit\s\+real\>"
155 syn match fortranType "\<implicit\s\+logical\>"
185 syn match fortranLabelNumber display "^\d\{1,5}\s"me=e-1
186 syn match fortranLabelNumber display "^ \d\{1,4}\s"ms=s+1,me=e-1
187 syn match fortranLabelNumber display "^ \d\{1,3}\s"ms=s+2,me=e-1
188 syn match fortranLabelNumber display "^ \d\d\=\s"ms=s+3,me=e-1
189 syn match fortranLabelNumber display "^ \d\s"ms=s+4,me=e-1
193 syn match fortranTarget display "\(\<if\s*(.\+)\s*\)\@<=\(\d\+\s*,\s*\)\{2}\d\+\>"
194 syn match fortranTarget display "\(\<do\s\+\)\@11<=\d\+\>"
195 syn match fortranTarget display "\(\<go\s*to\s*(\=\)\@11<=\(\d\+\s*,\s*\)*\d\+\>"
201 syn match fortranKeyword "^\s*\d\+\s\+continue\>"
202 syn match fortranKeyword "\<go\s*to\>"
203 syn match fortranKeywordDel "\<go\s*to\ze\s\+.*,\s*(.*$"
204 syn match fortranKeywordOb "\<go\s*to\ze\s*(\d\+.*$"
215 syn match fortranStorageClass "\<kind\s*="me=s+4
216 syn match fortranStorageClass "\<len\s*="me=s+3
236 syn match fortranIntrinsic "\<not\>\(\s*\.\)\@!"me=s+3
237 syn match fortranIntrinsic "\<kind\>\s*[(,]"me=s+4
239 syn match fortranUnitHeader "\<end\s*function"
240 syn match fortranUnitHeader "\<end\s*interface"
241 syn match fortranUnitHeader "\<end\s*module"
242 syn match fortranUnitHeader "\<end\s*submodule"
243 syn match fortranUnitHeader "\<end\s*program"
244 syn match fortranUnitHeader "\<end\s*subroutine"
245 syn match fortranUnitHeader "\<end\s*block"
246 syn match fortranRepeat "\<end\s*do"
247 syn match fortranConditional "\<end\s*where"
248 syn match fortranConditional "\<select\s*case"
249 syn match fortranConditional "\<end\s*select"
250 syn match fortranType "\<end\s*type"
251 syn match fortranType "\<in\s*out"
254 syn match fortranType "\<module\ze\s\+procedure\>"
262 syn match fortranConditional "\<end\s*if"
263 syn match fortranIO contains=fortranOperator "\<e\(nd\|rr\)\s*=\s*\d\+"
264 syn match fortranConditional "\<else\s*if"
267 syn match fortranTypeR display "double\s\+precision"
268 syn match fortranTypeR display "double\s\+complex"
269 syn match fortranUnitHeaderR display "block\s\+data"
272 syn match fortranOperatorR "\.\s*[gl][et]\s*\."
273 syn match fortranOperatorR "\.\s*\(eq\|ne\)\s*\."
276 syn match fortranRepeat "\<end\s*forall"
283 syn match fortranConstructName "\(\<end\s*forall\s\+\)\@15<=\a\w*\>"
306 syn match fortranType "\<end\s*associate"
307 syn match fortranType "\<enum\s*,\s*bind\s*(\s*c\s*)"
308 syn match fortranType "\<end\s*enum"
309 syn match fortranConditional "\<select\s*type"
310 syn match fortranConditional "\<type\s*is\>"
311 syn match fortranConditional "\<class\s*is\>"
312 syn match fortranUnitHeader "\<abstract\s*interface\>"
384 syn match fortranOpenMP excludenl "^\s*!\$\(OMP\)\=&\=\s.*$"
387 syn match cPreProc "^\s*#\s*\(define\|ifdef\)\>.*"
388 syn match cPreProc "^\s*#\s*\(elif\|if\)\>.*"
389 syn match cPreProc "^\s*#\s*\(ifndef\|undef\)\>.*"
390 syn match cPreCondit "^\s*#\s*\(else\|endif\)\>.*"
394 syn match cInclude "^\s*#\s*include\>\s*["<]" contains=cIncluded
408 …ansparent fold keepend start="^\s*program\s\+\z(\a\w*\)" skip="^\([!c*]\|\s*#\).*$" excludenl end=…
409 …eepend start="^\s*submodule\s\+(\a\w*\s*\(:\a\w*\s*\)*)\s*\z\(\a\w*\)" skip="^\([!c*]\|\s*#\).*$" …
410 …nt fold keepend start="^\s*module\s\+\(procedure\)\@!\z(\a\w*\)" skip="^\([!c*]\|\s*#\).*$" exclud…
411 …s*\(elemental \|pure \|impure \|module \|recursive \)\=\s*\(\(\(real \|integer \|logical \|complex…
412 …s*\(elemental \|pure \|impure \|module \|recursive \)\=\s*subroutine\s\+\z(\a\w*\)" skip="^\([!c*]…
413 …old keepend start="\<block\s*data\(\s\+\z(\a\w*\)\)\=" skip="^\([!c*]\|\s*#\).*$" excludenl end="\…
414 …sociate transparent fold keepend start="^\s*\<associate\s\+" skip="^\([!c*]\|\s*#\).*$" excludenl …
415 …arent fold keepend extend start="^\s*\(abstract \)\=\s*interface\>" skip="^\([!c*]\|\s*#\).*$" exc…
416 …keepend extend start="^\s*type\s*\(,\s*\(public\|private\|abstract\)\)\=\s*::" skip="^\([!c*]\|\s*…
418 …m transparent fold keepend start="^\s*program\s\+\z(\a\w*\)" skip="^\s*[!#].*$" excludenl end="\<e…
419 …ld keepend start="^\s*submodule\s\+(\a\w*\s*\(:\a\w*\s*\)*)\s*\z\(\a\w*\)" skip="^\s*[!#].*$" excl…
420 …parent fold keepend start="^\s*module\s\+\(procedure\)\@!\z(\a\w*\)" skip="^\s*[!#].*$" excludenl …
421 …s*\(elemental \|pure \|impure \|module \|recursive \)\=\s*\(\(\(real \|integer \|logical \|complex…
422 …="^\s*\(elemental \|pure \|impure \|module \|recursive \)\=\s*subroutine\s\+\z(\a\w*\)" skip="^\s*…
423 …nt fold keepend start="\<block\s*data\(\s\+\z(\a\w*\)\)\=" skip="^\s*[!#].*$" excludenl end="\<end…
424 …anAssociate transparent fold keepend start="^\s*\<associate\s\+" skip="^\s*[!#].*$" excludenl end=…
425 …ansparent fold keepend extend start="^\s*\(abstract \)\=\s*interface\>" skip="^\s*[!#].*$" exclude…
426 …old keepend extend start="^\s*type\s*\(,\s*\(public\|private\|abstract\)\)\=\s*::" skip="^\s*[!#].…
431 …syn region fortran77Loop transparent fold keepend start="\<do\s\+\z(\d\+\)" end="^\s*\z1\>" contai…
432 … fold keepend extend start="\(\<end\s\+\)\@<!\<do\(\s\+\a\|\s*$\)" skip="^\([!c*]\|\s*#\).*$" excl…
433 …d keepend extend start="\(\<e\(nd\|lse\)\s\+\)\@<!\<if\s*(.\+)\s*then\>" skip="^\([!c*]\|\s*#\).*$…
434 …ransparent fold keepend extend start="\<select\s*\(case\|type\)\>" skip="^\([!c*]\|\s*#\).*$" end=…
436 …syn region fortran77Loop transparent fold keepend start="\<do\s\+\z(\d\+\)" end="^\s*\z1\>" contai…
437 …rent fold keepend extend start="\(\<end\s\+\)\@<!\<do\(\s\+\a\|\s*$\)" skip="^\s*[!#].*$" excluden…
438 …d extend start="\(\<e\(nd\|lse\)\s\+\)\@<!\<if\s*(\(.\|&\s*\n\)\+)\(\s\|&\s*\n\)*then\>" skip="^\s…
439 …se transparent fold keepend extend start="\<select\s*\(case\|type\)\>" skip="^\s*[!#].*$" end="\<e…
447 …syn match fortranMultiLineComments transparent fold "\(^\s*!.*\(\n\|\%$\)\)\{4,}" contains=ALLBUT,…
551 let &cpo = s:cpo_save
552 unlet s:cpo_save