blob: fc6c82b480d6cf8a4cdc42db3875c95f899b1cbe [file] [log] [blame]
Bram Moolenaar071d4272004-06-13 20:20:40 +00001" Vim syntax file
Bram Moolenaar256972a2015-12-29 19:10:25 +01002" Language: Fortran 2008 (and older: Fortran 2003, 95, 90, and 77)
Ajit-Thakkar4868f632023-08-15 18:05:00 -03003" Version: (v105) 2023 August 14
Bram Moolenaar8a94d872015-01-25 13:02:57 +01004" Maintainer: Ajit J. Thakkar <ajit@unb.ca>; <http://www2.unb.ca/~ajit/>
Bram Moolenaare06c1882010-07-21 22:05:20 +02005" Usage: For instructions, do :help fortran-syntax from Vim
Bram Moolenaar071d4272004-06-13 20:20:40 +00006" Credits:
Bram Moolenaar4f4d51a2020-10-11 13:57:40 +02007" Version 0.1 for Fortran 95 was created in April 2000 by Ajit Thakkar from an
8" older Fortran 77 syntax file by Mario Eusebio and Preben Guldberg.
Bram Moolenaar0c0734d2019-11-26 21:44:46 +01009" Since then, useful suggestions and contributions have been made, in order, by:
Bram Moolenaardae8d212016-02-27 22:40:16 +010010" Andrej Panjkov, Bram Moolenaar, Thomas Olsen, Michael Sternberg, Christian Reile,
Bram Moolenaar130cbfc2021-04-07 21:07:20 +020011" Walter Dieudonne, Alexander Wagner, Roman Bertle, Charles Rendleman,
Bram Moolenaare4a3bcf2016-08-26 19:52:37 +020012" Andrew Griffiths, Joe Krahn, Hendrik Merx, Matt Thompson, Jan Hermann,
Bram Moolenaar130cbfc2021-04-07 21:07:20 +020013" Stefano Zaghi, Vishnu V. Krishnan, Judicael Grasset, Takuma Yoshida,
Ajit-Thakkar4868f632023-08-15 18:05:00 -030014" Eisuke Kawashima, Andre Chalella, Fritz Reese, and Karl D. Hammond.
Bram Moolenaar071d4272004-06-13 20:20:40 +000015
Bram Moolenaar6be7f872012-01-20 21:08:56 +010016if exists("b:current_syntax")
Bram Moolenaar071d4272004-06-13 20:20:40 +000017 finish
18endif
19
Bram Moolenaarb6b046b2011-12-30 13:11:27 +010020let s:cpo_save = &cpo
21set cpo&vim
22
Bram Moolenaar6be7f872012-01-20 21:08:56 +010023" Choose fortran_dialect using the priority:
Bram Moolenaar256972a2015-12-29 19:10:25 +010024" source file directive > buffer-local value > global value > file extension
25" first try using directive in first three lines of file
Bram Moolenaar6be7f872012-01-20 21:08:56 +010026let b:fortran_retype = getline(1)." ".getline(2)." ".getline(3)
27if b:fortran_retype =~? '\<fortran_dialect\s*=\s*F\>'
28 let b:fortran_dialect = "F"
29elseif b:fortran_retype =~? '\<fortran_dialect\s*=\s*f08\>'
30 let b:fortran_dialect = "f08"
31elseif !exists("b:fortran_dialect")
32 if exists("g:fortran_dialect") && g:fortran_dialect =~# '\<F\|f08\>'
33 " try global variable
34 let b:fortran_dialect = g:fortran_dialect
35 else " nothing found, so use default
36 let b:fortran_dialect = "f08"
Bram Moolenaar071d4272004-06-13 20:20:40 +000037 endif
Bram Moolenaar071d4272004-06-13 20:20:40 +000038endif
Bram Moolenaar6be7f872012-01-20 21:08:56 +010039unlet! b:fortran_retype
40" make sure buffer-local value is not invalid
41if b:fortran_dialect !~# '\<F\|f08\>'
42 let b:fortran_dialect = "f08"
Bram Moolenaar071d4272004-06-13 20:20:40 +000043endif
44
45" Choose between fixed and free source form if this hasn't been done yet
46if !exists("b:fortran_fixed_source")
Bram Moolenaar6be7f872012-01-20 21:08:56 +010047 if b:fortran_dialect == "F"
48 " F requires free source form
Bram Moolenaar071d4272004-06-13 20:20:40 +000049 let b:fortran_fixed_source = 0
Bram Moolenaar071d4272004-06-13 20:20:40 +000050 elseif exists("fortran_free_source")
Bram Moolenaar6be7f872012-01-20 21:08:56 +010051 " User guarantees free source form for all fortran files
Bram Moolenaar071d4272004-06-13 20:20:40 +000052 let b:fortran_fixed_source = 0
53 elseif exists("fortran_fixed_source")
Bram Moolenaar6be7f872012-01-20 21:08:56 +010054 " User guarantees fixed source form for all fortran files
Bram Moolenaar071d4272004-06-13 20:20:40 +000055 let b:fortran_fixed_source = 1
Bram Moolenaar2c7f8c52020-04-20 19:52:53 +020056 elseif expand("%:e") =~? '^f\%(90\|95\|03\|08\)$'
Bram Moolenaar256972a2015-12-29 19:10:25 +010057 " Free-form file extension defaults as in Intel ifort, gcc(gfortran), NAG, Pathscale, and Cray compilers
58 let b:fortran_fixed_source = 0
Bram Moolenaar2c7f8c52020-04-20 19:52:53 +020059 elseif expand("%:e") =~? '^\%(f\|f77\|for\)$'
Bram Moolenaar256972a2015-12-29 19:10:25 +010060 " Fixed-form file extension defaults
61 let b:fortran_fixed_source = 1
Bram Moolenaar071d4272004-06-13 20:20:40 +000062 else
Bram Moolenaar6be7f872012-01-20 21:08:56 +010063 " Modern fortran still allows both free and fixed source form.
Bram Moolenaar071d4272004-06-13 20:20:40 +000064 " Assume fixed source form unless signs of free source form
Bram Moolenaarc88ebf72010-07-22 22:30:23 +020065 " are detected in the first five columns of the first s:lmax lines.
Bram Moolenaar071d4272004-06-13 20:20:40 +000066 " Detection becomes more accurate and time-consuming if more lines
67 " are checked. Increase the limit below if you keep lots of comments at
68 " the very top of each file and you have a fast computer.
Bram Moolenaarc88ebf72010-07-22 22:30:23 +020069 let s:lmax = 500
70 if ( s:lmax > line("$") )
71 let s:lmax = line("$")
Bram Moolenaar071d4272004-06-13 20:20:40 +000072 endif
73 let b:fortran_fixed_source = 1
Bram Moolenaarc88ebf72010-07-22 22:30:23 +020074 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'
Bram Moolenaar256972a2015-12-29 19:10:25 +010078 let b:fortran_fixed_source = 0
79 break
Bram Moolenaar071d4272004-06-13 20:20:40 +000080 endif
Bram Moolenaarc88ebf72010-07-22 22:30:23 +020081 let s:ln = s:ln + 1
Bram Moolenaar071d4272004-06-13 20:20:40 +000082 endwhile
Bram Moolenaarc88ebf72010-07-22 22:30:23 +020083 unlet! s:lmax s:ln s:test
Bram Moolenaar071d4272004-06-13 20:20:40 +000084 endif
85endif
86
87syn case ignore
88
Bram Moolenaar6be7f872012-01-20 21:08:56 +010089if b:fortran_fixed_source == 1
90 syn match fortranConstructName "^\s\{6,}\zs\a\w*\ze\s*:"
91else
92 syn match fortranConstructName "^\s*\zs\a\w*\ze\s*:"
93endif
94if exists("fortran_more_precise")
Bram Moolenaar0c0734d2019-11-26 21:44:46 +010095 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*"
Ajit-Thakkar4868f632023-08-15 18:05:00 -030098 syn match fortranConstructName "\(\<\%(exit\|cycle\)\s\+\)\@11<=\a\w*"
Bram Moolenaar071d4272004-06-13 20:20:40 +000099endif
100
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100101syn match fortranUnitHeader "\<end\>"
Ajit-Thakkar4868f632023-08-15 18:05:00 -0300102syn match fortranType "\<character\((\s*kind\s*=\w\+)\)\?\>"
103syn match fortranType "\<complex\((\s*kind\s*=\w\+)\)\?\>"
Bram Moolenaar071d4272004-06-13 20:20:40 +0000104syn keyword fortranType intrinsic
Ajit-Thakkar4868f632023-08-15 18:05:00 -0300105syn match fortranType "\<implicit\>\s\+\(none\)\?"
Bram Moolenaar071d4272004-06-13 20:20:40 +0000106syn keyword fortranStructure dimension
107syn keyword fortranStorageClass parameter save
108syn match fortranUnitHeader "\<subroutine\>"
109syn keyword fortranCall call
110syn match fortranUnitHeader "\<function\>"
111syn match fortranUnitHeader "\<program\>"
Bram Moolenaare4a3bcf2016-08-26 19:52:37 +0200112syn match fortranUnitHeader "\<block\>"
Bram Moolenaar910f66f2006-04-05 20:41:53 +0000113syn keyword fortranKeyword return stop
Bram Moolenaar071d4272004-06-13 20:20:40 +0000114syn keyword fortranConditional else then
115syn match fortranConditional "\<if\>"
Bram Moolenaar6ee8d892012-01-10 14:55:01 +0100116syn match fortranConditionalOb "\<if\s*(.*)\s*\d\+\s*,\s*\d\+\s*,\s*\d\+\s*$"
Bram Moolenaar071d4272004-06-13 20:20:40 +0000117syn match fortranRepeat "\<do\>"
118
119syn keyword fortranTodo contained todo fixme
120
121"Catch errors caused by too many right parentheses
Bram Moolenaar910f66f2006-04-05 20:41:53 +0000122syn region fortranParen transparent start="(" end=")" contains=ALLBUT,fortranParenError,@fortranCommentGroup,cIncluded,@spell
Bram Moolenaar071d4272004-06-13 20:20:40 +0000123syn match fortranParenError ")"
124
125syn match fortranOperator "\.\s*n\=eqv\s*\."
126syn match fortranOperator "\.\s*\(and\|or\|not\)\s*\."
127syn match fortranOperator "\(+\|-\|/\|\*\)"
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100128syn match fortranTypeOb "\<character\s*\*"
Bram Moolenaar071d4272004-06-13 20:20:40 +0000129
130syn match fortranBoolean "\.\s*\(true\|false\)\s*\."
131
Ajit-Thakkar4868f632023-08-15 18:05:00 -0300132syn keyword fortranReadWrite print
133syn match fortranReadWrite '\<\(backspace\|close\|endfile\|inquire\|open\|read\|rewind\|write\)\ze\s*('
Bram Moolenaar071d4272004-06-13 20:20:40 +0000134
135"If tabs are allowed then the left margin checks do not work
136if exists("fortran_have_tabs")
137 syn match fortranTab "\t" transparent
138else
139 syn match fortranTab "\t"
140endif
141
Ajit-Thakkar4868f632023-08-15 18:05:00 -0300142syn match fortranIO '\%(\((\|,\|, *&\n\)\s*\)\@<=\(access\|blank\|direct\|exist\|file\|fmt\|form\|formatted\|iostat\|name\|named\|nextrec\|number\|opened\|rec\|recl\|sequential\|status\|unformatted\|unit\)\ze\s*='
Bram Moolenaar071d4272004-06-13 20:20:40 +0000143
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100144syn keyword fortranIntrinsicR alog alog10 amax0 amax1 amin0 amin1 amod cabs ccos cexp clog csin csqrt dabs dacos dasin datan datan2 dcos dcosh ddim dexp dint dlog dlog10 dmax1 dmin1 dmod dnint dsign dsin dsinh dsqrt dtan dtanh float iabs idim idint idnint ifix isign max0 max1 min0 min1 sngl
Bram Moolenaar071d4272004-06-13 20:20:40 +0000145
146" Intrinsics provided by some vendors
Bram Moolenaar6ee8d892012-01-10 14:55:01 +0100147syn keyword fortranExtraIntrinsic algama cdabs cdcos cdexp cdlog cdsin cdsqrt cqabs cqcos cqexp cqlog cqsin cqsqrt dcmplx dconjg derf derfc dfloat dgamma dimag dlgama iqint qabs qacos qasin qatan qatan2 qcmplx qconjg qcos qcosh qdim qerf qerfc qexp qgamma qimag qlgama qlog qlog10 qmax1 qmin1 qmod qnint qsign qsin qsinh qsqrt qtan qtanh
Bram Moolenaar071d4272004-06-13 20:20:40 +0000148
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100149syn keyword fortranIntrinsic abs acos aimag aint anint asin atan atan2 char cmplx conjg cos cosh exp ichar index int log log10 max min nint sign sin sinh sqrt tan tanh
150syn match fortranIntrinsic "\<len\s*[(,]"me=s+3
151syn match fortranIntrinsic "\<real\s*("me=s+4
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100152syn match fortranIntrinsic "\<logical\s*("me=s+7
Ajit-Thakkar4868f632023-08-15 18:05:00 -0300153syn match fortranType "\<type\>\(\s\+is\>\)\?"
154syn match fortranType "^\s*\(type\s\+\(is\)\? \)\?\s*\(real\|integer\|logical\|complex\|character\)\>"
155syn match fortranType "^\s*\(implicit \)\?\s*\(real\|integer\|logical\|complex\|character\)\>"
Bram Moolenaar071d4272004-06-13 20:20:40 +0000156
157"Numbers of various sorts
158" Integers
159syn match fortranNumber display "\<\d\+\(_\a\w*\)\=\>"
160" floating point number, without a decimal point
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100161syn match fortranFloatIll display "\<\d\+[deq][-+]\=\d\+\(_\a\w*\)\=\>"
Bram Moolenaar071d4272004-06-13 20:20:40 +0000162" floating point number, starting with a decimal point
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100163syn match fortranFloatIll display "\.\d\+\([deq][-+]\=\d\+\)\=\(_\a\w*\)\=\>"
Bram Moolenaar071d4272004-06-13 20:20:40 +0000164" floating point number, no digits after decimal
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100165syn match fortranFloatIll display "\<\d\+\.\([deq][-+]\=\d\+\)\=\(_\a\w*\)\=\>"
Bram Moolenaar071d4272004-06-13 20:20:40 +0000166" floating point number, D or Q exponents
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100167syn match fortranFloatIll display "\<\d\+\.\d\+\([dq][-+]\=\d\+\)\=\(_\a\w*\)\=\>"
Bram Moolenaar071d4272004-06-13 20:20:40 +0000168" floating point number
169syn match fortranFloat display "\<\d\+\.\d\+\(e[-+]\=\d\+\)\=\(_\a\w*\)\=\>"
Bram Moolenaar4f4d51a2020-10-11 13:57:40 +0200170" binary number
171syn match fortranBinary display "b["'][01]\+["']"
172" octal number
173syn match fortranOctal display "o["'][0-7]\+["']"
174" hexadecimal number
175syn match fortranHex display "z["'][0-9A-F]\+["']"
Bram Moolenaar071d4272004-06-13 20:20:40 +0000176" Numbers in formats
177syn match fortranFormatSpec display "\d*f\d\+\.\d\+"
178syn match fortranFormatSpec display "\d*e[sn]\=\d\+\.\d\+\(e\d+\>\)\="
179syn match fortranFormatSpec display "\d*\(d\|q\|g\)\d\+\.\d\+\(e\d+\)\="
180syn match fortranFormatSpec display "\d\+x\>"
181" The next match cannot be used because it would pick up identifiers as well
182" syn match fortranFormatSpec display "\<\(a\|i\)\d\+"
183
184" Numbers as labels
185syn match fortranLabelNumber display "^\d\{1,5}\s"me=e-1
186syn match fortranLabelNumber display "^ \d\{1,4}\s"ms=s+1,me=e-1
187syn match fortranLabelNumber display "^ \d\{1,3}\s"ms=s+2,me=e-1
188syn match fortranLabelNumber display "^ \d\d\=\s"ms=s+3,me=e-1
189syn match fortranLabelNumber display "^ \d\s"ms=s+4,me=e-1
190
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100191if exists("fortran_more_precise")
Bram Moolenaar071d4272004-06-13 20:20:40 +0000192 " Numbers as targets
193 syn match fortranTarget display "\(\<if\s*(.\+)\s*\)\@<=\(\d\+\s*,\s*\)\{2}\d\+\>"
Bram Moolenaar560979e2020-02-04 22:53:05 +0100194 syn match fortranTarget display "\(\<do\s\+\)\@11<=\d\+\>"
195 syn match fortranTarget display "\(\<go\s*to\s*(\=\)\@11<=\(\d\+\s*,\s*\)*\d\+\>"
Bram Moolenaar071d4272004-06-13 20:20:40 +0000196endif
197
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100198syn keyword fortranTypeR external
199syn keyword fortranIOR format
200syn match fortranKeywordR "\<continue\>"
Bram Moolenaare06c1882010-07-21 22:05:20 +0200201syn match fortranKeyword "^\s*\d\+\s\+continue\>"
Bram Moolenaar6ee8d892012-01-10 14:55:01 +0100202syn match fortranKeyword "\<go\s*to\>"
203syn match fortranKeywordDel "\<go\s*to\ze\s\+.*,\s*(.*$"
204syn match fortranKeywordOb "\<go\s*to\ze\s*(\d\+.*$"
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100205syn region fortranStringR start=+'+ end=+'+ contains=fortranContinueMark,fortranLeftMargin,fortranSerialNumber
206syn keyword fortranIntrinsicR dim lge lgt lle llt mod
Bram Moolenaar6ee8d892012-01-10 14:55:01 +0100207syn keyword fortranKeywordDel assign pause
Bram Moolenaar071d4272004-06-13 20:20:40 +0000208
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100209syn keyword fortranStructure private public intent optional
210syn keyword fortranStructure pointer target allocatable
211syn keyword fortranStorageClass in out
212syn match fortranStorageClass "\<kind\s*="me=s+4
213syn match fortranStorageClass "\<len\s*="me=s+3
Bram Moolenaar071d4272004-06-13 20:20:40 +0000214
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100215syn match fortranUnitHeader "\<module\>"
Bram Moolenaare4a3bcf2016-08-26 19:52:37 +0200216syn match fortranUnitHeader "\<submodule\>"
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100217syn keyword fortranUnitHeader use only contains
218syn keyword fortranUnitHeader result operator assignment
219syn match fortranUnitHeader "\<interface\>"
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100220syn keyword fortranKeyword allocate deallocate nullify cycle exit
221syn match fortranConditional "\<select\>"
Ajit-Thakkar4868f632023-08-15 18:05:00 -0300222syn match fortranConditional "\<case\s\+default\>"
223syn keyword fortranConditional where elsewhere
Bram Moolenaar071d4272004-06-13 20:20:40 +0000224
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100225syn match fortranOperator "\(\(>\|<\)=\=\|==\|/=\|=\)"
226syn match fortranOperator "=>"
Bram Moolenaar071d4272004-06-13 20:20:40 +0000227
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100228syn region fortranString start=+"+ end=+"+ contains=fortranLeftMargin,fortranContinueMark,fortranSerialNumber
229syn keyword fortranIO pad position action delim readwrite
230syn keyword fortranIO eor advance nml
Bram Moolenaar071d4272004-06-13 20:20:40 +0000231
Ajit-Thakkar4868f632023-08-15 18:05:00 -0300232syn match fortranIntrinsic '\<\(adjustl\|adjustr\|all\|allocated\|any\|associated\|bit_size\|btest\|ceiling\|count\|cshift\|date_and_time\|digits\|dot_product\|eoshift\|epsilon\|exponent\|floor\|fraction\|huge\|iand\|ibclr\|ibits\|ibset\|ieor\|ior\|ishft\|ishftc\|lbound\|len_trim\|matmul\|maxexponent\|maxloc\|maxval\|merge\|minexponent\|minloc\|minval\|modulo\|mvbits\|nearest\|pack\|precision\|present\|product\|radix\|random_number\|random_seed\|range\|repeat\|reshape\|rrspacing\|scale\|scan\|selected_int_kind\|selected_real_kind\|set_exponent\|shape\|size\|spacing\|spread\|sum\|system_clock\|tiny\|transpose\|trim\|ubound\|unpack\|verify\)\>\ze\s*('
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100233syn match fortranIntrinsic "\<not\>\(\s*\.\)\@!"me=s+3
234syn match fortranIntrinsic "\<kind\>\s*[(,]"me=s+4
Bram Moolenaar071d4272004-06-13 20:20:40 +0000235
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100236syn match fortranUnitHeader "\<end\s*function"
237syn match fortranUnitHeader "\<end\s*interface"
238syn match fortranUnitHeader "\<end\s*module"
Bram Moolenaare4a3bcf2016-08-26 19:52:37 +0200239syn match fortranUnitHeader "\<end\s*submodule"
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100240syn match fortranUnitHeader "\<end\s*program"
241syn match fortranUnitHeader "\<end\s*subroutine"
Bram Moolenaare4a3bcf2016-08-26 19:52:37 +0200242syn match fortranUnitHeader "\<end\s*block"
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100243syn match fortranRepeat "\<end\s*do"
244syn match fortranConditional "\<end\s*where"
245syn match fortranConditional "\<select\s*case"
246syn match fortranConditional "\<end\s*select"
247syn match fortranType "\<end\s*type"
248syn match fortranType "\<in\s*out"
Bram Moolenaar071d4272004-06-13 20:20:40 +0000249
Bram Moolenaar30b65812012-07-12 22:01:11 +0200250syn keyword fortranType procedure
251syn match fortranType "\<module\ze\s\+procedure\>"
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100252syn keyword fortranIOR namelist
253syn keyword fortranConditionalR while
254syn keyword fortranIntrinsicR achar iachar transfer
Bram Moolenaar071d4272004-06-13 20:20:40 +0000255
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100256syn keyword fortranInclude include
257syn keyword fortranStorageClassR sequence
Bram Moolenaar071d4272004-06-13 20:20:40 +0000258
259syn match fortranConditional "\<end\s*if"
260syn match fortranIO contains=fortranOperator "\<e\(nd\|rr\)\s*=\s*\d\+"
261syn match fortranConditional "\<else\s*if"
262
Bram Moolenaar6ee8d892012-01-10 14:55:01 +0100263syn keyword fortranUnitHeaderOb entry
Bram Moolenaar071d4272004-06-13 20:20:40 +0000264syn match fortranTypeR display "double\s\+precision"
265syn match fortranTypeR display "double\s\+complex"
266syn match fortranUnitHeaderR display "block\s\+data"
267syn keyword fortranStorageClassR common equivalence data
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100268syn keyword fortranIntrinsicR dble dprod
269syn match fortranOperatorR "\.\s*[gl][et]\s*\."
270syn match fortranOperatorR "\.\s*\(eq\|ne\)\s*\."
Bram Moolenaar071d4272004-06-13 20:20:40 +0000271
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100272syn keyword fortranRepeat forall
273syn match fortranRepeat "\<end\s*forall"
274syn keyword fortranIntrinsic null cpu_time
275syn match fortranType "\<elemental\>"
276syn match fortranType "\<pure\>"
Bram Moolenaare4a3bcf2016-08-26 19:52:37 +0200277syn match fortranType "\<impure\>"
Bram Moolenaar4f4d51a2020-10-11 13:57:40 +0200278syn match fortranType "\<recursive\>"
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100279if exists("fortran_more_precise")
Bram Moolenaar560979e2020-02-04 22:53:05 +0100280 syn match fortranConstructName "\(\<end\s*forall\s\+\)\@15<=\a\w*\>"
Bram Moolenaar071d4272004-06-13 20:20:40 +0000281endif
282
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100283if b:fortran_dialect == "f08"
Bram Moolenaare06c1882010-07-21 22:05:20 +0200284 " F2003
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100285 syn keyword fortranIntrinsic command_argument_count get_command get_command_argument get_environment_variable is_iostat_end is_iostat_eor move_alloc new_line selected_char_kind same_type_as extends_type_of
Bram Moolenaare06c1882010-07-21 22:05:20 +0200286 " ISO_C_binding
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100287 syn keyword fortranConstant c_null_char c_alert c_backspace c_form_feed c_new_line c_carriage_return c_horizontal_tab c_vertical_tab
288 syn keyword fortranConstant c_int c_short c_long c_long_long c_signed_char c_size_t c_int8_t c_int16_t c_int32_t c_int64_t c_int_least8_t c_int_least16_t c_int_least32_t c_int_least64_t c_int_fast8_t c_int_fast16_t c_int_fast32_t c_int_fast64_t c_intmax_t C_intptr_t c_float c_double c_long_double c_float_complex c_double_complex c_long_double_complex c_bool c_char c_null_ptr c_null_funptr
289 syn keyword fortranIntrinsic iso_c_binding c_loc c_funloc c_associated c_f_pointer c_f_procpointer
290 syn keyword fortranType c_ptr c_funptr
Bram Moolenaare06c1882010-07-21 22:05:20 +0200291 " ISO_Fortran_env
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100292 syn keyword fortranConstant iso_fortran_env character_storage_size error_unit file_storage_size input_unit iostat_end iostat_eor numeric_storage_size output_unit
Bram Moolenaare06c1882010-07-21 22:05:20 +0200293 " IEEE_arithmetic
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100294 syn keyword fortranIntrinsic ieee_arithmetic ieee_support_underflow_control ieee_get_underflow_mode ieee_set_underflow_mode
Bram Moolenaare06c1882010-07-21 22:05:20 +0200295
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100296 syn keyword fortranReadWrite flush wait
297 syn keyword fortranIO decimal round iomsg
Bram Moolenaare4a3bcf2016-08-26 19:52:37 +0200298 syn keyword fortranType asynchronous nopass non_overridable pass protected volatile extends import
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100299 syn keyword fortranType non_intrinsic value bind deferred generic final enumerator
Bram Moolenaare4a3bcf2016-08-26 19:52:37 +0200300 syn match fortranType "\<abstract\>"
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100301 syn match fortranType "\<class\>"
302 syn match fortranType "\<associate\>"
303 syn match fortranType "\<end\s*associate"
304 syn match fortranType "\<enum\s*,\s*bind\s*(\s*c\s*)"
305 syn match fortranType "\<end\s*enum"
Ajit-Thakkar4868f632023-08-15 18:05:00 -0300306 syn match fortranConditional "\<select\s*type"
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100307 syn match fortranConditional "\<class\s*is\>"
Ajit-Thakkar4868f632023-08-15 18:05:00 -0300308 syn match fortranConditional "\<class\s*default\>"
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100309 syn match fortranUnitHeader "\<abstract\s*interface\>"
310 syn match fortranOperator "\([\|]\)"
Bram Moolenaare06c1882010-07-21 22:05:20 +0200311
312 " F2008
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100313 syn keyword fortranIntrinsic acosh asinh atanh bessel_j0 bessel_j1 bessel_jn bessel_y0 bessel_y1 bessel_yn erf erfc erfc_scaled gamma log_gamma hypot norm2
314 syn keyword fortranIntrinsic atomic_define atomic_ref execute_command_line leadz trailz storage_size merge_bits
315 syn keyword fortranIntrinsic bge bgt ble blt dshiftl dshiftr findloc iall iany iparity image_index lcobound ucobound maskl maskr num_images parity popcnt poppar shifta shiftl shiftr this_image
316 syn keyword fortranIO newunit
317 syn keyword fortranType contiguous
Bram Moolenaare4a3bcf2016-08-26 19:52:37 +0200318 syn keyword fortranRepeat concurrent
Bram Moolenaar8a94d872015-01-25 13:02:57 +0100319
320" CUDA fortran
321 syn match fortranTypeCUDA "\<attributes\>"
322 syn keyword fortranTypeCUDA host global device value
323 syn keyword fortranTypeCUDA shared constant pinned texture
324 syn keyword fortranTypeCUDA dim1 dim2 dim3 dim4
325 syn keyword fortranTypeCUDA cudadeviceprop cuda_count_kind cuda_stream_kind
326 syn keyword fortranTypeCUDA cudaEvent cudaFuncAttributes cudaArrayPtr
327 syn keyword fortranTypeCUDA cudaSymbol cudaChannelFormatDesc cudaPitchedPtr
328 syn keyword fortranTypeCUDA cudaExtent cudaMemcpy3DParms
329 syn keyword fortranTypeCUDA cudaFuncCachePreferNone cudaFuncCachePreferShared
330 syn keyword fortranTypeCUDA cudaFuncCachePreferL1 cudaLimitStackSize
331 syn keyword fortranTypeCUDA cudaLimitPrintfSize cudaLimitMallocHeapSize
332 syn keyword fortranTypeCUDA cudaSharedMemBankSizeDefault cudaSharedMemBankSizeFourByte cudaSharedMemBankSizeEightByte
333 syn keyword fortranTypeCUDA cudaEventDefault cudaEventBlockingSync cudaEventDisableTiming
334 syn keyword fortranTypeCUDA cudaMemcpyHostToDevice cudaMemcpyDeviceToHost
335 syn keyword fortranTypeCUDA cudaMemcpyDeviceToDevice
336 syn keyword fortranTypeCUDA cudaErrorNotReady cudaSuccess cudaErrorInvalidValue
337 syn keyword fortranTypeCUDA c_devptr
338
339 syn match fortranStringCUDA "blockidx%[xyz]"
340 syn match fortranStringCUDA "blockdim%[xyz]"
341 syn match fortranStringCUDA "griddim%[xyz]"
342 syn match fortranStringCUDA "threadidx%[xyz]"
343
344 syn keyword fortranIntrinsicCUDA warpsize syncthreads syncthreads_and syncthreads_count syncthreads_or threadfence threadfence_block threadfence_system gpu_time allthreads anythread ballot
345 syn keyword fortranIntrinsicCUDA atomicadd atomicsub atomicmax atomicmin atomicand atomicor atomicxor atomicexch atomicinc atomicdec atomiccas sizeof __shfl __shfl_up __shfl_down __shfl_xor
346 syn keyword fortranIntrinsicCUDA cudaChooseDevice cudaDeviceGetCacheConfig cudaDeviceGetLimit cudaDeviceGetSharedMemConfig cudaDeviceReset cudaDeviceSetCacheConfig cudaDeviceSetLimit cudaDeviceSetSharedMemConfig cudaDeviceSynchronize cudaGetDevice cudaGetDeviceCount cudaGetDeviceProperties cudaSetDevice cudaSetDeviceFlags cudaSetValidDevices
347 syn keyword fortranIntrinsicCUDA cudaThreadExit cudaThreadSynchronize cudaGetLastError cudaGetErrorString cudaPeekAtLastError cudaStreamCreate cudaStreamDestroy cudaStreamQuery cudaStreamSynchronize cudaStreamWaitEvent cudaEventCreate cudaEventCreateWithFlags cudaEventDestroy cudaEventElapsedTime cudaEventQuery cudaEventRecord cudaEventSynchronize
348 syn keyword fortranIntrinsicCUDA cudaFuncGetAttributes cudaFuncSetCacheConfig cudaFuncSetSharedMemConfig cudaSetDoubleForDevice cudaSetDoubleForHost cudaFree cudaFreeArray cudaFreeHost cudaGetSymbolAddress cudaGetSymbolSize
349 syn keyword fortranIntrinsicCUDA cudaHostAlloc cudaHostGetDevicePointer cudaHostGetFlags cudaHostRegister cudaHostUnregister cudaMalloc cudaMallocArray cudaMallocHost cudaMallocPitch cudaMalloc3D cudaMalloc3DArray
350 syn keyword fortranIntrinsicCUDA cudaMemcpy cudaMemcpyArraytoArray cudaMemcpyAsync cudaMemcpyFromArray cudaMemcpyFromSymbol cudaMemcpyFromSymbolAsync cudaMemcpyPeer cudaMemcpyPeerAsync cudaMemcpyToArray cudaMemcpyToSymbol cudaMemcpyToSymbolAsync cudaMemcpy2D cudaMemcpy2DArrayToArray cudaMemcpy2DAsync cudaMemcpy2DFromArray cudaMemcpy2DToArray cudaMemcpy3D cudaMemcpy3DAsync
351 syn keyword fortranIntrinsicCUDA cudaMemGetInfo cudaMemset cudaMemset2D cudaMemset3D cudaDeviceCanAccessPeer cudaDeviceDisablePeerAccess cudaDeviceEnablePeerAccess cudaPointerGetAttributes cudaDriverGetVersion cudaRuntimeGetVersion
352
353 syn region none matchgroup=fortranType start="<<<" end=">>>" contains=ALLBUT,none
Bram Moolenaare06c1882010-07-21 22:05:20 +0200354endif
355
Bram Moolenaar071d4272004-06-13 20:20:40 +0000356syn cluster fortranCommentGroup contains=fortranTodo
357
358if (b:fortran_fixed_source == 1)
359 if !exists("fortran_have_tabs")
Bram Moolenaar130cbfc2021-04-07 21:07:20 +0200360 " Fixed format requires a textwidth of 72 for code,
361 " but some vendor extensions allow longer lines
362 if exists("fortran_extended_line_length")
363 syn match fortranSerialNumber excludenl "^.\{133,}$"lc=132
364 elseif exists("fortran_cardimage_line_length")
365 syn match fortranSerialNumber excludenl "^.\{81,}$"lc=80
366 else
367 syn match fortranSerialNumber excludenl "^.\{73,}$"lc=72
368 endif
Bram Moolenaar071d4272004-06-13 20:20:40 +0000369 "Flag left margin errors
370 syn match fortranLabelError "^.\{-,4}[^0-9 ]" contains=fortranTab
371 syn match fortranLabelError "^.\{4}\d\S"
372 endif
Bram Moolenaar5c736222010-01-06 20:54:52 +0100373 syn match fortranComment excludenl "^[!c*].*$" contains=@fortranCommentGroup,@spell
Bram Moolenaar071d4272004-06-13 20:20:40 +0000374 syn match fortranLeftMargin transparent "^ \{5}"
375 syn match fortranContinueMark display "^.\{5}\S"lc=5
376else
377 syn match fortranContinueMark display "&"
378endif
379
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100380syn match fortranComment excludenl "!.*$" contains=@fortranCommentGroup,@spell
Bram Moolenaar3e496b02016-09-25 22:11:48 +0200381syn match fortranOpenMP excludenl "^\s*!\$\(OMP\)\=&\=\s.*$"
Bram Moolenaar071d4272004-06-13 20:20:40 +0000382
383"cpp is often used with Fortran
384syn match cPreProc "^\s*#\s*\(define\|ifdef\)\>.*"
385syn match cPreProc "^\s*#\s*\(elif\|if\)\>.*"
386syn match cPreProc "^\s*#\s*\(ifndef\|undef\)\>.*"
387syn match cPreCondit "^\s*#\s*\(else\|endif\)\>.*"
Bram Moolenaar0c0734d2019-11-26 21:44:46 +0100388syn region cIncluded contained start=+"[^("]+ skip=+\\\\\|\\"+ end=+"+ contains=fortranLeftMargin,fortranContinueMark,fortranSerialNumber
389"syn region cIncluded contained start=+"[^("]+ skip=+\\\\\|\\"+ end=+"+
Bram Moolenaar071d4272004-06-13 20:20:40 +0000390syn match cIncluded contained "<[^>]*>"
391syn match cInclude "^\s*#\s*include\>\s*["<]" contains=cIncluded
392
393"Synchronising limits assume that comment and continuation lines are not mixed
Bram Moolenaar910f66f2006-04-05 20:41:53 +0000394if exists("fortran_fold") || exists("fortran_more_precise")
395 syn sync fromstart
396elseif (b:fortran_fixed_source == 0)
Bram Moolenaare06c1882010-07-21 22:05:20 +0200397 syn sync linecont "&" minlines=30
Bram Moolenaar071d4272004-06-13 20:20:40 +0000398else
Bram Moolenaare06c1882010-07-21 22:05:20 +0200399 syn sync minlines=30
Bram Moolenaar071d4272004-06-13 20:20:40 +0000400endif
401
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100402if exists("fortran_fold")
Bram Moolenaar071d4272004-06-13 20:20:40 +0000403
Bram Moolenaar071d4272004-06-13 20:20:40 +0000404 if (b:fortran_fixed_source == 1)
405 syn region fortranProgram transparent fold keepend start="^\s*program\s\+\z(\a\w*\)" skip="^\([!c*]\|\s*#\).*$" excludenl end="\<end\s*\(program\(\s\+\z1\>\)\=\|$\)" contains=ALLBUT,fortranModule
Bram Moolenaare4a3bcf2016-08-26 19:52:37 +0200406 syn region fortranModule transparent fold keepend start="^\s*submodule\s\+(\a\w*\s*\(:\a\w*\s*\)*)\s*\z\(\a\w*\)" skip="^\([!c*]\|\s*#\).*$" excludenl end="\<end\s*\(submodule\(\s\+\z1\>\)\=\|$\)" contains=ALLBUT,fortranProgram,fortranModule
Bram Moolenaar071d4272004-06-13 20:20:40 +0000407 syn region fortranModule transparent fold keepend start="^\s*module\s\+\(procedure\)\@!\z(\a\w*\)" skip="^\([!c*]\|\s*#\).*$" excludenl end="\<end\s*\(module\(\s\+\z1\>\)\=\|$\)" contains=ALLBUT,fortranProgram
Bram Moolenaare4a3bcf2016-08-26 19:52:37 +0200408 syn region fortranFunction transparent fold keepend extend start="^\s*\(elemental \|pure \|impure \|module \|recursive \)\=\s*\(\(\(real \|integer \|logical \|complex \|double \s*precision \)\s*\((\(\s*kind\s*=\)\=\s*\w\+\s*)\)\=\)\|type\s\+(\s*\w\+\s*) \|character \((\(\s*len\s*=\)\=\s*\d\+\s*)\|(\(\s*kind\s*=\)\=\s*\w\+\s*)\)\=\)\=\s*function\s\+\z(\a\w*\)" skip="^\([!c*]\|\s*#\).*$" excludenl end="\<end\s*\($\|function\(\s\+\z1\>\)\=\)" contains=ALLBUT,fortranProgram,fortranModule
409 syn region fortranSubroutine transparent fold keepend extend start="^\s*\(elemental \|pure \|impure \|module \|recursive \)\=\s*subroutine\s\+\z(\a\w*\)" skip="^\([!c*]\|\s*#\).*$" excludenl end="\<end\s*\($\|subroutine\(\s\+\z1\>\)\=\)" contains=ALLBUT,fortranProgram,fortranModule
Bram Moolenaare06c1882010-07-21 22:05:20 +0200410 syn region fortranBlockData transparent fold keepend start="\<block\s*data\(\s\+\z(\a\w*\)\)\=" skip="^\([!c*]\|\s*#\).*$" excludenl end="\<end\s*\($\|block\s*data\(\s\+\z1\>\)\=\)" contains=ALLBUT,fortranProgram,fortranModule,fortranSubroutine,fortranFunction,fortran77Loop,fortranCase,fortran90Loop,fortranIfBlock
Bram Moolenaarc0514bf2016-11-17 14:50:09 +0100411 syn region fortranAssociate transparent fold keepend start="^\s*\<associate\s\+" skip="^\([!c*]\|\s*#\).*$" excludenl end="\<end\s*associate" contains=ALLBUT,fortranProgram,fortranModule,fortranSubroutine,fortranFunction
Bram Moolenaare4a3bcf2016-08-26 19:52:37 +0200412 syn region fortranInterface transparent fold keepend extend start="^\s*\(abstract \)\=\s*interface\>" skip="^\([!c*]\|\s*#\).*$" excludenl end="\<end\s*interface\>" contains=ALLBUT,fortranProgram,fortranModule,fortran77Loop,fortranCase,fortran90Loop,fortranIfBlock
413 syn region fortranTypeDef transparent fold keepend extend start="^\s*type\s*\(,\s*\(public\|private\|abstract\)\)\=\s*::" skip="^\([!c*]\|\s*#\).*$" excludenl end="\<end\s*type\>" contains=ALLBUT,fortranProgram,fortranModule,fortran77Loop,fortranCase,fortran90Loop,fortranIfBlock,fortranInterface
Bram Moolenaar071d4272004-06-13 20:20:40 +0000414 else
415 syn region fortranProgram transparent fold keepend start="^\s*program\s\+\z(\a\w*\)" skip="^\s*[!#].*$" excludenl end="\<end\s*\(program\(\s\+\z1\>\)\=\|$\)" contains=ALLBUT,fortranModule
Bram Moolenaare4a3bcf2016-08-26 19:52:37 +0200416 syn region fortranModule transparent fold keepend start="^\s*submodule\s\+(\a\w*\s*\(:\a\w*\s*\)*)\s*\z\(\a\w*\)" skip="^\s*[!#].*$" excludenl end="\<end\s*\(submodule\(\s\+\z1\>\)\=\|$\)" contains=ALLBUT,fortranProgram,fortranModule
Bram Moolenaar071d4272004-06-13 20:20:40 +0000417 syn region fortranModule transparent fold keepend start="^\s*module\s\+\(procedure\)\@!\z(\a\w*\)" skip="^\s*[!#].*$" excludenl end="\<end\s*\(module\(\s\+\z1\>\)\=\|$\)" contains=ALLBUT,fortranProgram
Bram Moolenaare4a3bcf2016-08-26 19:52:37 +0200418 syn region fortranFunction transparent fold keepend extend start="^\s*\(elemental \|pure \|impure \|module \|recursive \)\=\s*\(\(\(real \|integer \|logical \|complex \|double \s*precision \)\s*\((\(\s*kind\s*=\)\=\s*\w\+\s*)\)\=\)\|type\s\+(\s*\w\+\s*) \|character \((\(\s*len\s*=\)\=\s*\d\+\s*)\|(\(\s*kind\s*=\)\=\s*\w\+\s*)\)\=\)\=\s*function\s\+\z(\a\w*\)" skip="^\s*[!#].*$" excludenl end="\<end\s*\($\|function\(\s\+\z1\>\)\=\)" contains=ALLBUT,fortranProgram,fortranModule
419 syn region fortranSubroutine transparent fold keepend extend start="^\s*\(elemental \|pure \|impure \|module \|recursive \)\=\s*subroutine\s\+\z(\a\w*\)" skip="^\s*[!#].*$" excludenl end="\<end\s*\($\|subroutine\(\s\+\z1\>\)\=\)" contains=ALLBUT,fortranProgram,fortranModule
Bram Moolenaare06c1882010-07-21 22:05:20 +0200420 syn region fortranBlockData transparent fold keepend start="\<block\s*data\(\s\+\z(\a\w*\)\)\=" skip="^\s*[!#].*$" excludenl end="\<end\s*\($\|block\s*data\(\s\+\z1\>\)\=\)" contains=ALLBUT,fortranProgram,fortranModule,fortranSubroutine,fortranFunction,fortran77Loop,fortranCase,fortran90Loop,fortranIfBlock
Bram Moolenaarc0514bf2016-11-17 14:50:09 +0100421 syn region fortranAssociate transparent fold keepend start="^\s*\<associate\s\+" skip="^\s*[!#].*$" excludenl end="\<end\s*associate" contains=ALLBUT,fortranProgram,fortranModule,fortranSubroutine,fortranFunction
Bram Moolenaare4a3bcf2016-08-26 19:52:37 +0200422 syn region fortranInterface transparent fold keepend extend start="^\s*\(abstract \)\=\s*interface\>" skip="^\s*[!#].*$" excludenl end="\<end\s*interface\>" contains=ALLBUT,fortranProgram,fortranModule,fortran77Loop,fortranCase,fortran90Loop,fortranIfBlock
423 syn region fortranTypeDef transparent fold keepend extend start="^\s*type\s*\(,\s*\(public\|private\|abstract\)\)\=\s*::" skip="^\s*[!#].*$" excludenl end="\<end\s*type\>" contains=ALLBUT,fortranProgram,fortranModule,fortran77Loop,fortranCase,fortran90Loop,fortranIfBlock,fortranInterface
Bram Moolenaar071d4272004-06-13 20:20:40 +0000424 endif
425
426 if exists("fortran_fold_conditionals")
427 if (b:fortran_fixed_source == 1)
428 syn region fortran77Loop transparent fold keepend start="\<do\s\+\z(\d\+\)" end="^\s*\z1\>" contains=ALLBUT,fortranUnitHeader,fortranStructure,fortranStorageClass,fortranType,fortranProgram,fortranModule,fortranSubroutine,fortranFunction,fortranBlockData
429 syn region fortran90Loop transparent fold keepend extend start="\(\<end\s\+\)\@<!\<do\(\s\+\a\|\s*$\)" skip="^\([!c*]\|\s*#\).*$" excludenl end="\<end\s*do\>" contains=ALLBUT,fortranUnitHeader,fortranStructure,fortranStorageClass,fortranType,fortranProgram,fortranModule,fortranSubroutine,fortranFunction,fortranBlockData
430 syn region fortranIfBlock transparent fold keepend extend start="\(\<e\(nd\|lse\)\s\+\)\@<!\<if\s*(.\+)\s*then\>" skip="^\([!c*]\|\s*#\).*$" end="\<end\s*if\>" contains=ALLBUT,fortranUnitHeader,fortranStructure,fortranStorageClass,fortranType,fortranProgram,fortranModule,fortranSubroutine,fortranFunction,fortranBlockData
Bram Moolenaarc0514bf2016-11-17 14:50:09 +0100431 syn region fortranCase transparent fold keepend extend start="\<select\s*\(case\|type\)\>" skip="^\([!c*]\|\s*#\).*$" end="\<end\s*select\>" contains=ALLBUT,fortranUnitHeader,fortranStructure,fortranStorageClass,fortranType,fortranProgram,fortranModule,fortranSubroutine,fortranFunction,fortranBlockData
Bram Moolenaar071d4272004-06-13 20:20:40 +0000432 else
433 syn region fortran77Loop transparent fold keepend start="\<do\s\+\z(\d\+\)" end="^\s*\z1\>" contains=ALLBUT,fortranUnitHeader,fortranStructure,fortranStorageClass,fortranType,fortranProgram,fortranModule,fortranSubroutine,fortranFunction,fortranBlockData
434 syn region fortran90Loop transparent fold keepend extend start="\(\<end\s\+\)\@<!\<do\(\s\+\a\|\s*$\)" skip="^\s*[!#].*$" excludenl end="\<end\s*do\>" contains=ALLBUT,fortranUnitHeader,fortranStructure,fortranStorageClass,fortranType,fortranProgram,fortranModule,fortranSubroutine,fortranFunction,fortranBlockData
Bram Moolenaardae8d212016-02-27 22:40:16 +0100435 syn region fortranIfBlock transparent fold keepend extend start="\(\<e\(nd\|lse\)\s\+\)\@<!\<if\s*(\(.\|&\s*\n\)\+)\(\s\|&\s*\n\)*then\>" skip="^\s*[!#].*$" end="\<end\s*if\>" contains=ALLBUT,fortranUnitHeader,fortranStructure,fortranStorageClass,fortranType,fortranProgram,fortranModule,fortranSubroutine,fortranFunction,fortranBlockData
Bram Moolenaarc0514bf2016-11-17 14:50:09 +0100436 syn region fortranCase transparent fold keepend extend start="\<select\s*\(case\|type\)\>" skip="^\s*[!#].*$" end="\<end\s*select\>" contains=ALLBUT,fortranUnitHeader,fortranStructure,fortranStorageClass,fortranType,fortranProgram,fortranModule,fortranSubroutine,fortranFunction,fortranBlockData
Bram Moolenaar071d4272004-06-13 20:20:40 +0000437 endif
438 endif
439
440 if exists("fortran_fold_multilinecomments")
441 if (b:fortran_fixed_source == 1)
442 syn match fortranMultiLineComments transparent fold "\(^[!c*].*\(\n\|\%$\)\)\{4,}" contains=ALLBUT,fortranMultiCommentLines
443 else
444 syn match fortranMultiLineComments transparent fold "\(^\s*!.*\(\n\|\%$\)\)\{4,}" contains=ALLBUT,fortranMultiCommentLines
445 endif
446 endif
447endif
448
449" Define the default highlighting.
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100450" The default highlighting differs for each dialect.
451" Transparent groups:
452" fortranParen, fortranLeftMargin
453" fortranProgram, fortranModule, fortranSubroutine, fortranFunction,
454" fortranBlockData
455" fortran77Loop, fortran90Loop, fortranIfBlock, fortranCase
456" fortranMultiCommentLines
457hi def link fortranKeyword Keyword
458hi def link fortranConstructName Identifier
459hi def link fortranConditional Conditional
460hi def link fortranRepeat Repeat
461hi def link fortranTodo Todo
462hi def link fortranContinueMark Special
463hi def link fortranString String
464hi def link fortranNumber Number
Bram Moolenaar4f4d51a2020-10-11 13:57:40 +0200465hi def link fortranBinary Number
466hi def link fortranOctal Number
467hi def link fortranHex Number
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100468hi def link fortranOperator Operator
469hi def link fortranBoolean Boolean
470hi def link fortranLabelError Error
471hi def link fortranObsolete Todo
472hi def link fortranType Type
473hi def link fortranStructure Type
474hi def link fortranStorageClass StorageClass
475hi def link fortranCall Function
476hi def link fortranUnitHeader fortranPreCondit
477hi def link fortranReadWrite Keyword
478hi def link fortranIO Keyword
479hi def link fortranIntrinsic Function
480hi def link fortranConstant Constant
Bram Moolenaar071d4272004-06-13 20:20:40 +0000481
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100482" To stop deleted & obsolescent features being highlighted as Todo items,
483" comment out the next 5 lines and uncomment the 5 lines after that
484hi def link fortranUnitHeaderOb fortranObsolete
485hi def link fortranKeywordOb fortranObsolete
486hi def link fortranConditionalOb fortranObsolete
487hi def link fortranTypeOb fortranObsolete
488hi def link fortranKeywordDel fortranObsolete
489"hi def link fortranUnitHeaderOb fortranUnitHeader
490"hi def link fortranKeywordOb fortranKeyword
491"hi def link fortranConditionalOb fortranConditional
492"hi def link fortranTypeOb fortranType
493"hi def link fortranKeywordDel fortranKeyword
Bram Moolenaar071d4272004-06-13 20:20:40 +0000494
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100495if b:fortran_dialect == "F"
496 hi! def link fortranIntrinsicR fortranObsolete
497 hi! def link fortranUnitHeaderR fortranObsolete
498 hi! def link fortranTypeR fortranObsolete
499 hi! def link fortranStorageClassR fortranObsolete
500 hi! def link fortranOperatorR fortranObsolete
501 hi! def link fortranInclude fortranObsolete
502 hi! def link fortranLabelNumber fortranObsolete
503 hi! def link fortranTarget fortranObsolete
504 hi! def link fortranFloatIll fortranObsolete
505 hi! def link fortranIOR fortranObsolete
506 hi! def link fortranKeywordR fortranObsolete
507 hi! def link fortranStringR fortranObsolete
508 hi! def link fortranConditionalR fortranObsolete
509else
510 hi! def link fortranIntrinsicR fortranIntrinsic
511 hi! def link fortranUnitHeaderR fortranPreCondit
512 hi! def link fortranTypeR fortranType
513 hi! def link fortranStorageClassR fortranStorageClass
514 hi! def link fortranOperatorR fortranOperator
515 hi! def link fortranInclude Include
516 hi! def link fortranLabelNumber Special
517 hi! def link fortranTarget Special
518 hi! def link fortranFloatIll fortranFloat
519 hi! def link fortranIOR fortranIO
520 hi! def link fortranKeywordR fortranKeyword
521 hi! def link fortranStringR fortranString
522 hi! def link fortranConditionalR fortranConditional
Bram Moolenaar071d4272004-06-13 20:20:40 +0000523endif
524
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100525hi def link fortranFormatSpec Identifier
526hi def link fortranFloat Float
527hi def link fortranPreCondit PreCondit
528hi def link cIncluded fortranString
529hi def link cInclude Include
530hi def link cPreProc PreProc
531hi def link cPreCondit PreCondit
Bram Moolenaar89bcfda2016-08-30 23:26:57 +0200532hi def link fortranOpenMP PreProc
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100533hi def link fortranParenError Error
534hi def link fortranComment Comment
535hi def link fortranSerialNumber Todo
536hi def link fortranTab Error
537
Ajit-Thakkar4868f632023-08-15 18:05:00 -0300538if exists("fortran_CUDA")
539 hi def link fortranIntrinsicCUDA fortranIntrinsic
540 hi def link fortranTypeCUDA fortranType
541 hi def link fortranStringCUDA fortranString
542endif
543
544if exists("fortran_vendor_intrinsics")
545 hi def link fortranExtraIntrinsic Function
546endif
Bram Moolenaar6be7f872012-01-20 21:08:56 +0100547
Bram Moolenaar071d4272004-06-13 20:20:40 +0000548let b:current_syntax = "fortran"
549
Bram Moolenaarb6b046b2011-12-30 13:11:27 +0100550let &cpo = s:cpo_save
551unlet s:cpo_save
Bram Moolenaar071d4272004-06-13 20:20:40 +0000552" vim: ts=8 tw=132