1" Vim syntax file 2" Language: Fortran 2008 (and older: Fortran 2003, 95, 90, and 77) 3" Version: 0.96 4" Last Change: 2015 Nov. 30 5" Maintainer: Ajit J. Thakkar <[email protected]>; <http://www2.unb.ca/~ajit/> 6" Usage: For instructions, do :help fortran-syntax from Vim 7" Credits: 8" Version 0.1 was based on the fortran 77 syntax file by Mario Eusebio and 9" Preben Guldberg. Useful suggestions and contributions were made by: Andrej Panjkov, 10" Bram Moolenaar, Thomas Olsen, Michael Sternberg, Christian Reile, 11" Walter Dieudonn�, Alexander Wagner, Roman Bertle, Charles Rendleman, 12" Andrew Griffiths, Joe Krahn, Hendrik Merx, and Matt Thompson. 13 14if exists("b:current_syntax") 15 finish 16endif 17 18let s:cpo_save = &cpo 19set cpo&vim 20 21" Choose fortran_dialect using the priority: 22" source file directive > buffer-local value > global value > file extension 23" first try using directive in first three lines of file 24let b:fortran_retype = getline(1)." ".getline(2)." ".getline(3) 25if b:fortran_retype =~? '\<fortran_dialect\s*=\s*F\>' 26 let b:fortran_dialect = "F" 27elseif b:fortran_retype =~? '\<fortran_dialect\s*=\s*f08\>' 28 let b:fortran_dialect = "f08" 29elseif !exists("b:fortran_dialect") 30 if exists("g:fortran_dialect") && g:fortran_dialect =~# '\<F\|f08\>' 31 " try global variable 32 let b:fortran_dialect = g:fortran_dialect 33 else " nothing found, so use default 34 let b:fortran_dialect = "f08" 35 endif 36endif 37unlet! b:fortran_retype 38" make sure buffer-local value is not invalid 39if b:fortran_dialect !~# '\<F\|f08\>' 40 let b:fortran_dialect = "f08" 41endif 42 43" Choose between fixed and free source form if this hasn't been done yet 44if !exists("b:fortran_fixed_source") 45 if b:fortran_dialect == "F" 46 " F requires free source form 47 let b:fortran_fixed_source = 0 48 elseif exists("fortran_free_source") 49 " User guarantees free source form for all fortran files 50 let b:fortran_fixed_source = 0 51 elseif exists("fortran_fixed_source") 52 " User guarantees fixed source form for all fortran files 53 let b:fortran_fixed_source = 1 54 elseif expand("%:e") ==? "f\<90\|95\|03\|08\>" 55 " Free-form file extension defaults as in Intel ifort, gcc(gfortran), NAG, Pathscale, and Cray compilers 56 let b:fortran_fixed_source = 0 57 elseif expand("%:e") ==? "f\|f77\|for" 58 " Fixed-form file extension defaults 59 let b:fortran_fixed_source = 1 60 else 61 " Modern fortran still allows both free and fixed source form. 62 " Assume fixed source form unless signs of free source form 63 " are detected in the first five columns of the first s:lmax lines. 64 " Detection becomes more accurate and time-consuming if more lines 65 " are checked. Increase the limit below if you keep lots of comments at 66 " the very top of each file and you have a fast computer. 67 let s:lmax = 500 68 if ( s:lmax > line("$") ) 69 let s:lmax = line("$") 70 endif 71 let b:fortran_fixed_source = 1 72 let s:ln=1 73 while s:ln <= s:lmax 74 let s:test = strpart(getline(s:ln),0,5) 75 if s:test !~ '^[Cc*]' && s:test !~ '^ *[!#]' && s:test =~ '[^ 0-9\t]' && s:test !~ '^[ 0-9]*\t' 76 let b:fortran_fixed_source = 0 77 break 78 endif 79 let s:ln = s:ln + 1 80 endwhile 81 unlet! s:lmax s:ln s:test 82 endif 83endif 84 85syn case ignore 86 87if b:fortran_fixed_source == 1 88 syn match fortranConstructName "^\s\{6,}\zs\a\w*\ze\s*:" 89else 90 syn match fortranConstructName "^\s*\zs\a\w*\ze\s*:" 91endif 92if exists("fortran_more_precise") 93 syn match fortranConstructName "\(\<end\s*do\s\+\)\@<=\a\w*" 94 syn match fortranConstructName "\(\<end\s*if\s\+\)\@<=\a\w*" 95 syn match fortranConstructName "\(\<end\s*select\s\+\)\@<=\a\w*" 96endif 97 98syn match fortranUnitHeader "\<end\>" 99syn match fortranType "\<character\>" 100syn match fortranType "\<complex\>" 101syn match fortranType "\<integer\>" 102syn keyword fortranType intrinsic 103syn match fortranType "\<implicit\>" 104syn keyword fortranStructure dimension 105syn keyword fortranStorageClass parameter save 106syn match fortranUnitHeader "\<subroutine\>" 107syn keyword fortranCall call 108syn match fortranUnitHeader "\<function\>" 109syn match fortranUnitHeader "\<program\>" 110syn keyword fortranKeyword return stop 111syn keyword fortranConditional else then 112syn match fortranConditional "\<if\>" 113syn match fortranConditionalOb "\<if\s*(.*)\s*\d\+\s*,\s*\d\+\s*,\s*\d\+\s*$" 114syn match fortranRepeat "\<do\>" 115 116syn keyword fortranTodo contained todo fixme 117 118"Catch errors caused by too many right parentheses 119syn region fortranParen transparent start="(" end=")" contains=ALLBUT,fortranParenError,@fortranCommentGroup,cIncluded,@spell 120syn match fortranParenError ")" 121 122syn match fortranOperator "\.\s*n\=eqv\s*\." 123syn match fortranOperator "\.\s*\(and\|or\|not\)\s*\." 124syn match fortranOperator "\(+\|-\|/\|\*\)" 125syn match fortranTypeOb "\<character\s*\*" 126 127syn match fortranBoolean "\.\s*\(true\|false\)\s*\." 128 129syn keyword fortranReadWrite backspace close endfile inquire open print read rewind write 130 131"If tabs are allowed then the left margin checks do not work 132if exists("fortran_have_tabs") 133 syn match fortranTab "\t" transparent 134else 135 syn match fortranTab "\t" 136endif 137 138syn keyword fortranIO access blank direct exist file fmt form formatted iostat name named nextrec number opened rec recl sequential status unformatted unit 139 140syn 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 141 142" Intrinsics provided by some vendors 143syn 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 144 145syn 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 146syn match fortranIntrinsic "\<len\s*[(,]"me=s+3 147syn match fortranIntrinsic "\<real\s*("me=s+4 148syn match fortranType "\<implicit\s\+real" 149syn match fortranType "^\s*real\>" 150syn match fortranIntrinsic "\<logical\s*("me=s+7 151syn match fortranType "\<implicit\s\+logical" 152syn match fortranType "^\s*logical\>" 153 154"Numbers of various sorts 155" Integers 156syn match fortranNumber display "\<\d\+\(_\a\w*\)\=\>" 157" floating point number, without a decimal point 158syn match fortranFloatIll display "\<\d\+[deq][-+]\=\d\+\(_\a\w*\)\=\>" 159" floating point number, starting with a decimal point 160syn match fortranFloatIll display "\.\d\+\([deq][-+]\=\d\+\)\=\(_\a\w*\)\=\>" 161" floating point number, no digits after decimal 162syn match fortranFloatIll display "\<\d\+\.\([deq][-+]\=\d\+\)\=\(_\a\w*\)\=\>" 163" floating point number, D or Q exponents 164syn match fortranFloatIll display "\<\d\+\.\d\+\([dq][-+]\=\d\+\)\=\(_\a\w*\)\=\>" 165" floating point number 166syn match fortranFloat display "\<\d\+\.\d\+\(e[-+]\=\d\+\)\=\(_\a\w*\)\=\>" 167" Numbers in formats 168syn match fortranFormatSpec display "\d*f\d\+\.\d\+" 169syn match fortranFormatSpec display "\d*e[sn]\=\d\+\.\d\+\(e\d+\>\)\=" 170syn match fortranFormatSpec display "\d*\(d\|q\|g\)\d\+\.\d\+\(e\d+\)\=" 171syn match fortranFormatSpec display "\d\+x\>" 172" The next match cannot be used because it would pick up identifiers as well 173" syn match fortranFormatSpec display "\<\(a\|i\)\d\+" 174 175" Numbers as labels 176syn match fortranLabelNumber display "^\d\{1,5}\s"me=e-1 177syn match fortranLabelNumber display "^ \d\{1,4}\s"ms=s+1,me=e-1 178syn match fortranLabelNumber display "^ \d\{1,3}\s"ms=s+2,me=e-1 179syn match fortranLabelNumber display "^ \d\d\=\s"ms=s+3,me=e-1 180syn match fortranLabelNumber display "^ \d\s"ms=s+4,me=e-1 181 182if exists("fortran_more_precise") 183 " Numbers as targets 184 syn match fortranTarget display "\(\<if\s*(.\+)\s*\)\@<=\(\d\+\s*,\s*\)\{2}\d\+\>" 185 syn match fortranTarget display "\(\<do\s\+\)\@<=\d\+\>" 186 syn match fortranTarget display "\(\<go\s*to\s*(\=\)\@<=\(\d\+\s*,\s*\)*\d\+\>" 187endif 188 189syn keyword fortranTypeR external 190syn keyword fortranIOR format 191syn match fortranKeywordR "\<continue\>" 192syn match fortranKeyword "^\s*\d\+\s\+continue\>" 193syn match fortranKeyword "\<go\s*to\>" 194syn match fortranKeywordDel "\<go\s*to\ze\s\+.*,\s*(.*$" 195syn match fortranKeywordOb "\<go\s*to\ze\s*(\d\+.*$" 196syn region fortranStringR start=+'+ end=+'+ contains=fortranContinueMark,fortranLeftMargin,fortranSerialNumber 197syn keyword fortranIntrinsicR dim lge lgt lle llt mod 198syn keyword fortranKeywordDel assign pause 199 200syn match fortranType "\<type\>" 201syn keyword fortranType none 202 203syn keyword fortranStructure private public intent optional 204syn keyword fortranStructure pointer target allocatable 205syn keyword fortranStorageClass in out 206syn match fortranStorageClass "\<kind\s*="me=s+4 207syn match fortranStorageClass "\<len\s*="me=s+3 208 209syn match fortranUnitHeader "\<module\>" 210syn keyword fortranUnitHeader use only contains 211syn keyword fortranUnitHeader result operator assignment 212syn match fortranUnitHeader "\<interface\>" 213syn match fortranUnitHeader "\<recursive\>" 214syn keyword fortranKeyword allocate deallocate nullify cycle exit 215syn match fortranConditional "\<select\>" 216syn keyword fortranConditional case default where elsewhere 217 218syn match fortranOperator "\(\(>\|<\)=\=\|==\|/=\|=\)" 219syn match fortranOperator "=>" 220 221syn region fortranString start=+"+ end=+"+ contains=fortranLeftMargin,fortranContinueMark,fortranSerialNumber 222syn keyword fortranIO pad position action delim readwrite 223syn keyword fortranIO eor advance nml 224 225syn keyword 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 226syn keyword fortranIntrinsic scale scan selected_int_kind selected_real_kind set_exponent shape size spacing spread sum system_clock tiny transpose trim ubound unpack verify 227syn match fortranIntrinsic "\<not\>\(\s*\.\)\@!"me=s+3 228syn match fortranIntrinsic "\<kind\>\s*[(,]"me=s+4 229 230syn match fortranUnitHeader "\<end\s*function" 231syn match fortranUnitHeader "\<end\s*interface" 232syn match fortranUnitHeader "\<end\s*module" 233syn match fortranUnitHeader "\<end\s*program" 234syn match fortranUnitHeader "\<end\s*subroutine" 235syn match fortranRepeat "\<end\s*do" 236syn match fortranConditional "\<end\s*where" 237syn match fortranConditional "\<select\s*case" 238syn match fortranConditional "\<end\s*select" 239syn match fortranType "\<end\s*type" 240syn match fortranType "\<in\s*out" 241 242syn keyword fortranType procedure 243syn match fortranType "\<module\ze\s\+procedure\>" 244syn keyword fortranIOR namelist 245syn keyword fortranConditionalR while 246syn keyword fortranIntrinsicR achar iachar transfer 247 248syn keyword fortranInclude include 249syn keyword fortranStorageClassR sequence 250 251syn match fortranConditional "\<end\s*if" 252syn match fortranIO contains=fortranOperator "\<e\(nd\|rr\)\s*=\s*\d\+" 253syn match fortranConditional "\<else\s*if" 254 255syn keyword fortranUnitHeaderOb entry 256syn match fortranTypeR display "double\s\+precision" 257syn match fortranTypeR display "double\s\+complex" 258syn match fortranUnitHeaderR display "block\s\+data" 259syn keyword fortranStorageClassR common equivalence data 260syn keyword fortranIntrinsicR dble dprod 261syn match fortranOperatorR "\.\s*[gl][et]\s*\." 262syn match fortranOperatorR "\.\s*\(eq\|ne\)\s*\." 263 264syn keyword fortranRepeat forall 265syn match fortranRepeat "\<end\s*forall" 266syn keyword fortranIntrinsic null cpu_time 267syn match fortranType "\<elemental\>" 268syn match fortranType "\<pure\>" 269if exists("fortran_more_precise") 270 syn match fortranConstructName "\(\<end\s*forall\s\+\)\@<=\a\w*\>" 271endif 272 273if b:fortran_dialect == "f08" 274 " F2003 275 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 276 " ISO_C_binding 277 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 278 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 279 syn keyword fortranIntrinsic iso_c_binding c_loc c_funloc c_associated c_f_pointer c_f_procpointer 280 syn keyword fortranType c_ptr c_funptr 281 " ISO_Fortran_env 282 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 283 " IEEE_arithmetic 284 syn keyword fortranIntrinsic ieee_arithmetic ieee_support_underflow_control ieee_get_underflow_mode ieee_set_underflow_mode 285 286 syn keyword fortranReadWrite flush wait 287 syn keyword fortranIO decimal round iomsg 288 syn keyword fortranType asynchronous nopass non_overridable pass protected volatile abstract extends import 289 syn keyword fortranType non_intrinsic value bind deferred generic final enumerator 290 syn match fortranType "\<class\>" 291 syn match fortranType "\<associate\>" 292 syn match fortranType "\<end\s*associate" 293 syn match fortranType "\<enum\s*,\s*bind\s*(\s*c\s*)" 294 syn match fortranType "\<end\s*enum" 295 syn match fortranConditional "\<select\s*type" 296 syn match fortranConditional "\<type\s*is\>" 297 syn match fortranConditional "\<class\s*is\>" 298 syn match fortranUnitHeader "\<abstract\s*interface\>" 299 syn match fortranOperator "\([\|]\)" 300 301 " F2008 302 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 303 syn keyword fortranIntrinsic atomic_define atomic_ref execute_command_line leadz trailz storage_size merge_bits 304 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 305 syn keyword fortranIO newunit 306 syn keyword fortranType contiguous 307 308" CUDA fortran 309 syn match fortranTypeCUDA "\<attributes\>" 310 syn keyword fortranTypeCUDA host global device value 311 syn keyword fortranTypeCUDA shared constant pinned texture 312 syn keyword fortranTypeCUDA dim1 dim2 dim3 dim4 313 syn keyword fortranTypeCUDA cudadeviceprop cuda_count_kind cuda_stream_kind 314 syn keyword fortranTypeCUDA cudaEvent cudaFuncAttributes cudaArrayPtr 315 syn keyword fortranTypeCUDA cudaSymbol cudaChannelFormatDesc cudaPitchedPtr 316 syn keyword fortranTypeCUDA cudaExtent cudaMemcpy3DParms 317 syn keyword fortranTypeCUDA cudaFuncCachePreferNone cudaFuncCachePreferShared 318 syn keyword fortranTypeCUDA cudaFuncCachePreferL1 cudaLimitStackSize 319 syn keyword fortranTypeCUDA cudaLimitPrintfSize cudaLimitMallocHeapSize 320 syn keyword fortranTypeCUDA cudaSharedMemBankSizeDefault cudaSharedMemBankSizeFourByte cudaSharedMemBankSizeEightByte 321 syn keyword fortranTypeCUDA cudaEventDefault cudaEventBlockingSync cudaEventDisableTiming 322 syn keyword fortranTypeCUDA cudaMemcpyHostToDevice cudaMemcpyDeviceToHost 323 syn keyword fortranTypeCUDA cudaMemcpyDeviceToDevice 324 syn keyword fortranTypeCUDA cudaErrorNotReady cudaSuccess cudaErrorInvalidValue 325 syn keyword fortranTypeCUDA c_devptr 326 327 syn match fortranStringCUDA "blockidx%[xyz]" 328 syn match fortranStringCUDA "blockdim%[xyz]" 329 syn match fortranStringCUDA "griddim%[xyz]" 330 syn match fortranStringCUDA "threadidx%[xyz]" 331 332 syn keyword fortranIntrinsicCUDA warpsize syncthreads syncthreads_and syncthreads_count syncthreads_or threadfence threadfence_block threadfence_system gpu_time allthreads anythread ballot 333 syn keyword fortranIntrinsicCUDA atomicadd atomicsub atomicmax atomicmin atomicand atomicor atomicxor atomicexch atomicinc atomicdec atomiccas sizeof __shfl __shfl_up __shfl_down __shfl_xor 334 syn keyword fortranIntrinsicCUDA cudaChooseDevice cudaDeviceGetCacheConfig cudaDeviceGetLimit cudaDeviceGetSharedMemConfig cudaDeviceReset cudaDeviceSetCacheConfig cudaDeviceSetLimit cudaDeviceSetSharedMemConfig cudaDeviceSynchronize cudaGetDevice cudaGetDeviceCount cudaGetDeviceProperties cudaSetDevice cudaSetDeviceFlags cudaSetValidDevices 335 syn keyword fortranIntrinsicCUDA cudaThreadExit cudaThreadSynchronize cudaGetLastError cudaGetErrorString cudaPeekAtLastError cudaStreamCreate cudaStreamDestroy cudaStreamQuery cudaStreamSynchronize cudaStreamWaitEvent cudaEventCreate cudaEventCreateWithFlags cudaEventDestroy cudaEventElapsedTime cudaEventQuery cudaEventRecord cudaEventSynchronize 336 syn keyword fortranIntrinsicCUDA cudaFuncGetAttributes cudaFuncSetCacheConfig cudaFuncSetSharedMemConfig cudaSetDoubleForDevice cudaSetDoubleForHost cudaFree cudaFreeArray cudaFreeHost cudaGetSymbolAddress cudaGetSymbolSize 337 syn keyword fortranIntrinsicCUDA cudaHostAlloc cudaHostGetDevicePointer cudaHostGetFlags cudaHostRegister cudaHostUnregister cudaMalloc cudaMallocArray cudaMallocHost cudaMallocPitch cudaMalloc3D cudaMalloc3DArray 338 syn keyword fortranIntrinsicCUDA cudaMemcpy cudaMemcpyArraytoArray cudaMemcpyAsync cudaMemcpyFromArray cudaMemcpyFromSymbol cudaMemcpyFromSymbolAsync cudaMemcpyPeer cudaMemcpyPeerAsync cudaMemcpyToArray cudaMemcpyToSymbol cudaMemcpyToSymbolAsync cudaMemcpy2D cudaMemcpy2DArrayToArray cudaMemcpy2DAsync cudaMemcpy2DFromArray cudaMemcpy2DToArray cudaMemcpy3D cudaMemcpy3DAsync 339 syn keyword fortranIntrinsicCUDA cudaMemGetInfo cudaMemset cudaMemset2D cudaMemset3D cudaDeviceCanAccessPeer cudaDeviceDisablePeerAccess cudaDeviceEnablePeerAccess cudaPointerGetAttributes cudaDriverGetVersion cudaRuntimeGetVersion 340 341 syn region none matchgroup=fortranType start="<<<" end=">>>" contains=ALLBUT,none 342endif 343 344syn cluster fortranCommentGroup contains=fortranTodo 345 346if (b:fortran_fixed_source == 1) 347 if !exists("fortran_have_tabs") 348 "Flag items beyond column 72 349 syn match fortranSerialNumber excludenl "^.\{73,}$"lc=72 350 "Flag left margin errors 351 syn match fortranLabelError "^.\{-,4}[^0-9 ]" contains=fortranTab 352 syn match fortranLabelError "^.\{4}\d\S" 353 endif 354 syn match fortranComment excludenl "^[!c*].*$" contains=@fortranCommentGroup,@spell 355 syn match fortranLeftMargin transparent "^ \{5}" 356 syn match fortranContinueMark display "^.\{5}\S"lc=5 357else 358 syn match fortranContinueMark display "&" 359endif 360 361syn match fortranComment excludenl "!.*$" contains=@fortranCommentGroup,@spell 362 363"cpp is often used with Fortran 364syn match cPreProc "^\s*#\s*\(define\|ifdef\)\>.*" 365syn match cPreProc "^\s*#\s*\(elif\|if\)\>.*" 366syn match cPreProc "^\s*#\s*\(ifndef\|undef\)\>.*" 367syn match cPreCondit "^\s*#\s*\(else\|endif\)\>.*" 368syn region cIncluded contained start=+"[^(]+ skip=+\\\\\|\\"+ end=+"+ contains=fortranLeftMargin,fortranContinueMark,fortranSerialNumber 369syn match cIncluded contained "<[^>]*>" 370syn match cInclude "^\s*#\s*include\>\s*["<]" contains=cIncluded 371 372"Synchronising limits assume that comment and continuation lines are not mixed 373if exists("fortran_fold") || exists("fortran_more_precise") 374 syn sync fromstart 375elseif (b:fortran_fixed_source == 0) 376 syn sync linecont "&" minlines=30 377else 378 syn sync minlines=30 379endif 380 381if exists("fortran_fold") 382 383 if (b:fortran_fixed_source == 1) 384 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 385 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 386 syn region fortranFunction transparent fold keepend extend start="^\s*\(elemental \|pure \|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 387 syn region fortranSubroutine transparent fold keepend extend start="^\s*\(elemental \|pure \|recursive \)\=\s*subroutine\s\+\z(\a\w*\)" skip="^\([!c*]\|\s*#\).*$" excludenl end="\<end\s*\($\|subroutine\(\s\+\z1\>\)\=\)" contains=ALLBUT,fortranProgram,fortranModule 388 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 389 syn region fortranInterface transparent fold keepend extend start="^\s*interface\>" skip="^\([!c*]\|\s*#\).*$" excludenl end="\<end\s*interface\>" contains=ALLBUT,fortranProgram,fortranModule,fortran77Loop,fortranCase,fortran90Loop,fortranIfBlock 390 syn region fortranTypeDef transparent fold keepend extend start="^\s*type\s*\(,\s*\(public\|private\)\)\=\s*::" skip="^\([!c*]\|\s*#\).*$" excludenl end="\<end\s*type\>" contains=ALLBUT,fortranProgram,fortranModule,fortran77Loop,fortranCase,fortran90Loop,fortranIfBlock 391 else 392 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 393 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 394 syn region fortranFunction transparent fold keepend extend start="^\s*\(elemental \|pure \|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 395 syn region fortranSubroutine transparent fold keepend extend start="^\s*\(elemental \|pure \|recursive \)\=\s*subroutine\s\+\z(\a\w*\)" skip="^\s*[!#].*$" excludenl end="\<end\s*\($\|subroutine\(\s\+\z1\>\)\=\)" contains=ALLBUT,fortranProgram,fortranModule 396 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 397 syn region fortranInterface transparent fold keepend extend start="^\s*interface\>" skip="^\s*[!#].*$" excludenl end="\<end\s*interface\>" contains=ALLBUT,fortranProgram,fortranModule,fortran77Loop,fortranCase,fortran90Loop,fortranIfBlock 398 syn region fortranTypeDef transparent fold keepend extend start="^\s*type\s*\(,\s*\(public\|private\)\)\=\s*::" skip="^\s*[!#].*$" excludenl end="\<end\s*type\>" contains=ALLBUT,fortranProgram,fortranModule,fortran77Loop,fortranCase,fortran90Loop,fortranIfBlock 399 endif 400 401 if exists("fortran_fold_conditionals") 402 if (b:fortran_fixed_source == 1) 403 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 404 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 405 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 406 syn region fortranCase transparent fold keepend extend start="\<select\s*case\>" skip="^\([!c*]\|\s*#\).*$" end="\<end\s*select\>" contains=ALLBUT,fortranUnitHeader,fortranStructure,fortranStorageClass,fortranType,fortranProgram,fortranModule,fortranSubroutine,fortranFunction,fortranBlockData 407 else 408 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 409 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 410 syn region fortranIfBlock transparent fold keepend extend start="\(\<e\(nd\|lse\)\s\+\)\@<!\<if\s*(.\+)\s*then\>" skip="^\s*[!#].*$" end="\<end\s*if\>" contains=ALLBUT,fortranUnitHeader,fortranStructure,fortranStorageClass,fortranType,fortranProgram,fortranModule,fortranSubroutine,fortranFunction,fortranBlockData 411 syn region fortranCase transparent fold keepend extend start="\<select\s*case\>" skip="^\s*[!#].*$" end="\<end\s*select\>" contains=ALLBUT,fortranUnitHeader,fortranStructure,fortranStorageClass,fortranType,fortranProgram,fortranModule,fortranSubroutine,fortranFunction,fortranBlockData 412 endif 413 endif 414 415 if exists("fortran_fold_multilinecomments") 416 if (b:fortran_fixed_source == 1) 417 syn match fortranMultiLineComments transparent fold "\(^[!c*].*\(\n\|\%$\)\)\{4,}" contains=ALLBUT,fortranMultiCommentLines 418 else 419 syn match fortranMultiLineComments transparent fold "\(^\s*!.*\(\n\|\%$\)\)\{4,}" contains=ALLBUT,fortranMultiCommentLines 420 endif 421 endif 422endif 423 424" Define the default highlighting. 425" The default highlighting differs for each dialect. 426" Transparent groups: 427" fortranParen, fortranLeftMargin 428" fortranProgram, fortranModule, fortranSubroutine, fortranFunction, 429" fortranBlockData 430" fortran77Loop, fortran90Loop, fortranIfBlock, fortranCase 431" fortranMultiCommentLines 432hi def link fortranKeyword Keyword 433hi def link fortranConstructName Identifier 434hi def link fortranConditional Conditional 435hi def link fortranRepeat Repeat 436hi def link fortranTodo Todo 437hi def link fortranContinueMark Special 438hi def link fortranString String 439hi def link fortranNumber Number 440hi def link fortranOperator Operator 441hi def link fortranBoolean Boolean 442hi def link fortranLabelError Error 443hi def link fortranObsolete Todo 444hi def link fortranType Type 445hi def link fortranStructure Type 446hi def link fortranStorageClass StorageClass 447hi def link fortranCall Function 448hi def link fortranUnitHeader fortranPreCondit 449hi def link fortranReadWrite Keyword 450hi def link fortranIO Keyword 451hi def link fortranIntrinsic Function 452hi def link fortranConstant Constant 453 454" To stop deleted & obsolescent features being highlighted as Todo items, 455" comment out the next 5 lines and uncomment the 5 lines after that 456hi def link fortranUnitHeaderOb fortranObsolete 457hi def link fortranKeywordOb fortranObsolete 458hi def link fortranConditionalOb fortranObsolete 459hi def link fortranTypeOb fortranObsolete 460hi def link fortranKeywordDel fortranObsolete 461"hi def link fortranUnitHeaderOb fortranUnitHeader 462"hi def link fortranKeywordOb fortranKeyword 463"hi def link fortranConditionalOb fortranConditional 464"hi def link fortranTypeOb fortranType 465"hi def link fortranKeywordDel fortranKeyword 466 467if b:fortran_dialect == "F" 468 hi! def link fortranIntrinsicR fortranObsolete 469 hi! def link fortranUnitHeaderR fortranObsolete 470 hi! def link fortranTypeR fortranObsolete 471 hi! def link fortranStorageClassR fortranObsolete 472 hi! def link fortranOperatorR fortranObsolete 473 hi! def link fortranInclude fortranObsolete 474 hi! def link fortranLabelNumber fortranObsolete 475 hi! def link fortranTarget fortranObsolete 476 hi! def link fortranFloatIll fortranObsolete 477 hi! def link fortranIOR fortranObsolete 478 hi! def link fortranKeywordR fortranObsolete 479 hi! def link fortranStringR fortranObsolete 480 hi! def link fortranConditionalR fortranObsolete 481else 482 hi! def link fortranIntrinsicR fortranIntrinsic 483 hi! def link fortranUnitHeaderR fortranPreCondit 484 hi! def link fortranTypeR fortranType 485 hi! def link fortranStorageClassR fortranStorageClass 486 hi! def link fortranOperatorR fortranOperator 487 hi! def link fortranInclude Include 488 hi! def link fortranLabelNumber Special 489 hi! def link fortranTarget Special 490 hi! def link fortranFloatIll fortranFloat 491 hi! def link fortranIOR fortranIO 492 hi! def link fortranKeywordR fortranKeyword 493 hi! def link fortranStringR fortranString 494 hi! def link fortranConditionalR fortranConditional 495endif 496 497" CUDA 498hi def link fortranIntrinsicCUDA fortranIntrinsic 499hi def link fortranTypeCUDA fortranType 500hi def link fortranStringCUDA fortranString 501 502hi def link fortranFormatSpec Identifier 503hi def link fortranFloat Float 504hi def link fortranPreCondit PreCondit 505hi def link cIncluded fortranString 506hi def link cInclude Include 507hi def link cPreProc PreProc 508hi def link cPreCondit PreCondit 509hi def link fortranParenError Error 510hi def link fortranComment Comment 511hi def link fortranSerialNumber Todo 512hi def link fortranTab Error 513 514" Uncomment the next line if you use extra intrinsics provided by vendors 515"hi def link fortranExtraIntrinsic Function 516 517let b:current_syntax = "fortran" 518 519let &cpo = s:cpo_save 520unlet s:cpo_save 521" vim: ts=8 tw=132 522