" Vim syntax file " Language: Fortran95 (and Fortran90, Fortran77, F and elf90) " Version: 0.82 " Last Change: 2001 Sep 14 " Maintainer: Ajit J. Thakkar ; " For the latest version of this file, see " For instructions on use, do :help fortran from vim " Credits: " Some items based on the fortran syntax file by Mario Eusebio and " Preben Guldberg, and some on suggestions by Andrej Panjkov, " Bram Moolenaar, Thomas Olsen, Michael Sternberg, Christian Reile, " Walter Dieudonné, Alexander Wagner and Roman Bertle. " For version 5.x: Clear all syntax items " For version 6.x: Quit if a syntax file is already loaded if version < 600 syntax clear elseif exists("b:current_syntax") finish endif " let b:fortran_dialect = fortran_dialect if set correctly by user if exists("fortran_dialect") if fortran_dialect =~ '\<\(f\(9[05]\|77\)\|elf\|F\)\>' let b:fortran_dialect = matchstr(fortran_dialect,'\<\(f\(9[05]\|77\)\|elf\|F\)\>') else echohl WarningMsg | echo "Unknown value of fortran_dialect" | echohl None let b:fortran_dialect = "unknown" endif else let b:fortran_dialect = "unknown" endif " fortran_dialect not set or set incorrectly by user, if b:fortran_dialect == "unknown" " set b:fortran_dialect from directive in first three lines of file let b:fortran_retype = getline(1)." ".getline(2)." ".getline(3) if b:fortran_retype =~ '\' let b:fortran_dialect = "F" elseif b:fortran_retype =~ '\' let b:fortran_dialect = "elf" elseif b:fortran_retype =~ '\' let b:fortran_dialect = "f90" elseif b:fortran_retype =~ '\' let b:fortran_dialect = "f95" elseif b:fortran_retype =~ '\' let b:fortran_dialect = "f77" else " no directive found, so assume f95 let b:fortran_dialect = "f95" endif unlet b:fortran_retype endif " Choose between fixed and free source form if this hasn't been done yet if !exists("b:fortran_fixed_source") if b:fortran_dialect == "elf" || b:fortran_dialect == "F" " elf and F require free source form let b:fortran_fixed_source = 0 elseif b:fortran_dialect == "f77" " f77 requires fixed source form let b:fortran_fixed_source = 1 elseif exists("fortran_free_source") " User guarantees free source form for all f90 and f95 files let b:fortran_fixed_source = 0 else " f90 and f95 allow both fixed and free source form. " Assume fixed source form unless signs of free source form " are detected in the first five columns of the first b:lmax lines. " Detection becomes more accurate and time-consuming if more lines " are checked. Increase the limit below if you keep lots of comments at " the very top of each file and you have a fast computer. let b:lmax = 25 if ( b:lmax > line("$") ) let b:lmax = line("$") endif let b:fortran_fixed_source = 1 let b:ln=1 while b:ln <= b:lmax let b:test = strpart(getline(b:ln),0,5) if b:test[0] !~ '[Cc*!#]' && b:test !~ '^ \+[!#]' && b:test =~ '[^ 0-9\t]' let b:fortran_fixed_source = 0 break endif let b:ln = b:ln + 1 endwhile unlet b:lmax b:ln b:test endif endif syn case ignore if b:fortran_dialect == "f77" syn match fortranIdentifier "\<\a\(\a\|\d\)*\>" contains=fortranSerialNumber else syn match fortran90Identifier "\<\a\w*\>" contains=fortranSerialNumber if b:fortran_fixed_source == 1 syn match fortranConstructName "^\s\{6,}\a\w*\s*:" else syn match fortranConstructName "^\s*\a\w*\s*:" endif if version >= 600 && exists("fortran_more_precise") syn match fortranConstructName "\(\" syn match fortranConstructName "\(\" syn match fortranConstructName "\(\" endif endif syn match fortranUnitHeader "\" syn keyword fortranType character complex integer syn keyword fortranType intrinsic syn match fortranType "\" syn keyword fortranStructure dimension syn keyword fortranStorageClass parameter save syn match fortranUnitHeader "\" syn keyword fortranCall call syn match fortranUnitHeader "\" syn match fortranUnitHeader "\" syn keyword fortranStatement return stop syn keyword fortranConditional else then syn match fortranConditional "\" syn match fortranRepeat "\" syn keyword fortranTodo contained todo fixme "Catch errors caused by too many right parentheses syn region fortranParen transparent start="(" end=")" contains=ALLBUT,fortranParenError,@fortranCommentGroup syn match fortranParenError ")" syn match fortranOperator "\.\s*n\=eqv\s*\." syn match fortranOperator "\.\s*\(and\|or\|not\)\s*\." syn match fortranOperator "\(+\|-\|/\|\*\)" syn match fortranBoolean "\.\s*\(true\|false\)\s*\." syn keyword fortranReadWrite backspace close inquire open rewind endfile syn keyword fortranReadWrite read write print "If tabs are allowed then the left margin checks do not work if exists("fortran_have_tabs") syn match fortranTab "\t" transparent else syn match fortranTab "\t" endif syn keyword fortranIO unit file iostat access blank fmt form syn keyword fortranIO recl status exist opened number named name syn keyword fortranIO sequential direct rec syn keyword fortranIO formatted unformatted nextrec syn keyword fortran66Intrinsic cabs ccos cexp clog csin csqrt syn keyword fortran66Intrinsic dacos dasin datan datan2 dcos dcosh syn keyword fortran66Intrinsic ddim dexp dint dlog dlog10 dmod dabs syn keyword fortran66Intrinsic dnint dsign dsin dsinh dsqrt dtan syn keyword fortran66Intrinsic dtanh iabs idim idnint isign idint ifix syn keyword fortran66Intrinsic amax0 amax1 dmax1 max0 max1 syn keyword fortran66Intrinsic amin0 amin1 dmin1 min0 min1 syn keyword fortran66Intrinsic amod float sngl alog alog10 " Intrinsics provided by some vendors syn keyword fortranExtraIntrinsic cdabs cdcos cdexp cdlog cdsin cdsqrt syn keyword fortranExtraIntrinsic cqabs cqcos cqexp cqlog cqsin cqsqrt syn keyword fortranExtraIntrinsic qacos qasin qatan qatan2 qcos qcosh syn keyword fortranExtraIntrinsic qdim qexp iqint qlog qlog10 qmod qabs syn keyword fortranExtraIntrinsic qnint qsign qsin qsinh qsqrt qtan syn keyword fortranExtraIntrinsic qtanh qmax1 qmin1 syn keyword fortranExtraIntrinsic dimag qimag dcmplx qcmplx dconjg qconjg syn keyword fortranExtraIntrinsic gamma dgamma qgamma algama dlgama qlgama syn keyword fortranExtraIntrinsic erf derf qerf erfc derfc qerfc syn keyword fortranExtraIntrinsic dfloat syn keyword fortran77Intrinsic abs acos aimag aint anint asin atan atan2 syn keyword fortran77Intrinsic cos sin tan sinh cosh tanh exp log log10 syn keyword fortran77Intrinsic sign sqrt int cmplx nint min max conjg syn keyword fortran77Intrinsic char ichar index syn match fortran77Intrinsic "\" syn match fortran90Intrinsic "\" "Numbers of various sorts " Integers syn match fortranNumber display "\<\d\+\(_\a\w*\)\=\>" " floating point number, without a decimal point syn match fortranFloatNoDec display "\<\d\+[deq][-+]\=\d\+\(_\a\w*\)\=\>" " floating point number, starting with a decimal point syn match fortranFloatIniDec display "\.\d\+\([deq][-+]\=\d\+\)\=\(_\a\w*\)\=\>" " floating point number, no digits after decimal syn match fortranFloatEndDec display "\<\d\+\.\([deq][-+]\=\d\+\)\=\(_\a\w*\)\=\>" " floating point number, D or Q exponents syn match fortranFloatDExp display "\<\d\+\.\d\+\([dq][-+]\=\d\+\)\=\(_\a\w*\)\=\>" " floating point number syn match fortranFloat display "\<\d\+\.\d\+\(e[-+]\=\d\+\)\=\(_\a\w*\)\=\>" " Numbers in formats syn match fortranFormatSpec display "\d*f\d\+\.\d\+" syn match fortranFormatSpec display "\d*e[sn]\=\d\+\.\d\+\(e\d+\>\)\=" syn match fortranFormatSpec display "\d*\(d\|q\|g\)\d\+\.\d\+\(e\d+\)\=" syn match fortranFormatSpec display "\d\+x\>" " The next match cannot be used because it would pick up identifiers as well " syn match fortranFormatSpec display "\<\(a\|i\)\d\+" " Numbers as labels syn match fortranLabelNumber display "^\d\{1,5}\s"me=e-1 syn match fortranLabelNumber display "^ \d\{1,4}\s"ms=s+1,me=e-1 syn match fortranLabelNumber display "^ \d\{1,3}\s"ms=s+2,me=e-1 syn match fortranLabelNumber display "^ \d\d\=\s"ms=s+3,me=e-1 syn match fortranLabelNumber display "^ \d\s"ms=s+4,me=e-1 if version >= 600 && exists("fortran_more_precise") " Numbers as targets syn match fortranTarget display "\(\" syn match fortranTarget display "\(\" syn match fortranTarget display "\(\" endif syn keyword fortranTypeEx external syn keyword fortranIOEx format syn keyword fortranStatementEx continue syn match fortranStatementEx "\" syn region fortranStringEx start=+'+ end=+'+ contains=fortranContinueMark,fortranLeftMargin,fortranSerialNumber syn keyword fortran77IntrinsicEx dim lge lgt lle llt mod syn keyword fortranStatementOb assign pause to if b:fortran_dialect != "f77" syn keyword fortranType type none syn keyword fortranStructure private public intent optional syn keyword fortranStructure pointer target allocatable syn keyword fortranStorageClass in out syn match fortranStorageClass "\" syn keyword fortranUnitHeader use only contains syn keyword fortranUnitHeader recursive result interface operator syn keyword fortranStatement allocate deallocate nullify cycle exit syn match fortranConditional "\" syn keyword fortranConditional case default where elsewhere syn match fortranOperator "\(\(>\|<\)=\=\|==\|/=\|=\)" syn match fortranOperator "=>" syn region fortranString start=+"+ end=+"+ contains=fortranLeftMargin,fortranContinueMark,fortranSerialNumber syn keyword fortranIO pad position action delim readwrite syn keyword fortranIO eor advance nml syn keyword fortran90Intrinsic adjustl adjustr all allocated any syn keyword fortran90Intrinsic associated bit_size btest ceiling syn keyword fortran90Intrinsic count cshift date_and_time syn keyword fortran90Intrinsic digits dot_product eoshift epsilon exponent syn keyword fortran90Intrinsic floor fraction huge iand ibclr ibits ibset ieor syn keyword fortran90Intrinsic ior ishft ishftc lbound len_trim syn keyword fortran90Intrinsic matmul maxexponent maxloc maxval merge syn keyword fortran90Intrinsic minexponent minloc minval modulo mvbits nearest syn keyword fortran90Intrinsic pack present product radix random_number syn match fortran90Intrinsic "\\(\s*\.\)\@!"me=s+3 syn keyword fortran90Intrinsic random_seed range repeat reshape rrspacing scale syn keyword fortran90Intrinsic selected_int_kind selected_real_kind scan syn keyword fortran90Intrinsic shape size spacing spread set_exponent syn keyword fortran90Intrinsic tiny transpose trim ubound unpack verify syn keyword fortran90Intrinsic precision sum system_clock syn match fortran90Intrinsic "\\s*[(,]"me=s+4 syn match fortranUnitHeader "\" endif endif syn cluster fortranCommentGroup contains=fortranTodo if (b:fortran_fixed_source == 1) if !exists("fortran_have_tabs") "Flag items beyond column 72 syn match fortranSerialNumber excludenl "^.\{73,}$"lc=72 "Flag left margin errors syn match fortranLabelError "^.\{-,4}[^0-9 ]" contains=fortranTab syn match fortranLabelError "^.\{4}\d\S" endif syn match fortranComment excludenl "^[!c*].*$" contains=@fortranCommentGroup syn match fortranLeftMargin transparent "^ \{5}" syn match fortranContinueMark display "^.\{5}\S"lc=5 else syn match fortranContinueMark display "&" endif if b:fortran_dialect != "f77" syn match fortranComment excludenl "!.*$" contains=@fortranCommentGroup endif "cpp is often used with Fortran syn match cPreProc "^\s*#\s*\(define\|ifdef\)\>.*" syn match cPreProc "^\s*#\s*\(elif\|if\)\>.*" syn match cPreProc "^\s*#\s*\(ifndef\|undef\)\>.*" syn match cPreCondit "^\s*#\s*\(else\|endif\)\>.*" syn region cIncluded contained start=+"[^(]+ skip=+\\\\\|\\"+ end=+"+ contains=fortranLeftMargin,fortranContinueMark,fortranSerialNumber syn match cIncluded contained "<[^>]*>" syn match cInclude "^\s*#\s*include\>\s*["<]" contains=cIncluded "Synchronising limits assume that comment and continuation lines are not mixed if (b:fortran_fixed_source == 0) syn sync linecont "&" maxlines=40 else syn sync minlines=20 endif if version >= 600 && exists("fortran_fold") syn sync fromstart if (b:fortran_fixed_source == 1) syn region fortranProgram transparent fold keepend start="^\s*program\s\+\z(\a\w*\)" skip="^\([!c*]\|\s*#\).*$" excludenl end="\\)\=\|$\)" contains=ALLBUT,fortranModule syn region fortranModule transparent fold keepend start="^\s*module\s\+\z(\a\w*\)" skip="^\([!c*]\|\s*#\).*$" excludenl end="\\)\=\|$\)" contains=ALLBUT,fortranProgram syn region fortranFunction transparent fold keepend extend start="^\s*function\s\+\z(\a\w*\)" skip="^\([!c*]\|\s*#\).*$" excludenl end="\\)\=\)" contains=ALLBUT,fortranProgram,fortranModule syn region fortranSubroutine transparent fold keepend extend start="^\s*subroutine\s\+\z(\a\w*\)" skip="^\([!c*]\|\s*#\).*$" excludenl end="\\)\=\)" contains=ALLBUT,fortranProgram,fortranModule syn region fortranBlockData transparent fold keepend start="\= 508 || !exists("did_fortran_syn_inits") if version < 508 let did_fortran_syn_inits = 1 command -nargs=+ HiLink hi link else command -nargs=+ HiLink hi def link endif " The default highlighting differs for each dialect. " Transparent groups: " fortranParen, fortranLeftMargin " fortranProgram, fortranModule, fortranSubroutine, fortranFunction, " fortranBlockData " fortran77Loop, fortran90Loop, fortranIfBlock, fortranCase " fortranMultiCommentLines HiLink fortranStatement Statement HiLink fortranConstructName Special HiLink fortranConditional Conditional HiLink fortranRepeat Repeat HiLink fortranTodo Todo HiLink fortranContinueMark Todo HiLink fortranString String HiLink fortranNumber Number HiLink fortranOperator Operator HiLink fortranBoolean Boolean HiLink fortranLabelError Error HiLink fortranObsolete Todo HiLink fortranType Type HiLink fortranStructure Type HiLink fortranStorageClass StorageClass HiLink fortranCall fortranUnitHeader HiLink fortranUnitHeader fortranPreCondit HiLink fortranReadWrite fortran90Intrinsic HiLink fortranIO fortran90Intrinsic HiLink fortran95Intrinsic fortran90Intrinsic HiLink fortran77Intrinsic fortran90Intrinsic HiLink fortran90Intrinsic Special if ( b:fortran_dialect == "elf" || b:fortran_dialect == "F" ) HiLink fortranStatementOb fortranObsolete HiLink fortran66Intrinsic fortranObsolete HiLink fortran77IntrinsicR fortranObsolete HiLink fortranUnitHeaderR fortranObsolete HiLink fortranTypeR fortranObsolete HiLink fortranStorageClassR fortranObsolete HiLink fortran90StorageClassR fortranObsolete HiLink fortran77OperatorR fortranObsolete HiLink fortranInclude fortranObsolete else HiLink fortranStatementOb Statement HiLink fortran66Intrinsic fortran90Intrinsic HiLink fortran77IntrinsicR fortran90Intrinsic HiLink fortranUnitHeaderR fortranPreCondit HiLink fortranTypeR fortranType HiLink fortranStorageClassR fortranStorageClass HiLink fortran77OperatorR fortranOperator HiLink fortranInclude Include HiLink fortran90StorageClassR fortranStorageClass endif if ( b:fortran_dialect == "F" ) HiLink fortranLabelNumber fortranObsolete HiLink fortranTarget fortranObsolete HiLink fortranFormatSpec fortranObsolete HiLink fortranFloatDExp fortranObsolete HiLink fortranFloatNoDec fortranObsolete HiLink fortranFloatIniDec fortranObsolete HiLink fortranFloatEndDec fortranObsolete HiLink fortranTypeEx fortranObsolete HiLink fortranIOEx fortranObsolete HiLink fortranStatementEx fortranObsolete HiLink fortranStringEx fortranObsolete HiLink fortran77IntrinsicEx fortranObsolete HiLink fortranUnitHeaderEx fortranObsolete HiLink fortranConditionalEx fortranObsolete HiLink fortran90IntrinsicEx fortranObsolete else HiLink fortranLabelNumber Special HiLink fortranTarget Special HiLink fortranFormatSpec Identifier HiLink fortranFloatDExp fortranFloat HiLink fortranFloatNoDec fortranFloat HiLink fortranFloatIniDec fortranFloat HiLink fortranFloatEndDec fortranFloat HiLink fortranTypeEx fortranType HiLink fortranIOEx fortranIO HiLink fortranStatementEx fortranStatement HiLink fortranStringEx fortranString HiLink fortran77IntrinsicEx fortran90Intrinsic HiLink fortranUnitHeaderEx fortranUnitHeader HiLink fortranConditionalEx fortranConditional HiLink fortran90IntrinsicEx fortran90Intrinsic endif HiLink fortranFloat Float HiLink fortran90Identifier fortranIdentifier "Uncomment the next line if you want all fortran variables to be highlighted "HiLink fortranIdentifier Identifier HiLink fortranPreCondit PreCondit HiLink fortranInclude Include HiLink cIncluded fortranString HiLink cInclude Include HiLink cPreProc PreProc HiLink cPreCondit PreCondit HiLink fortranParenError Error HiLink fortranComment Comment HiLink fortranSerialNumber Todo HiLink fortranTab Error " Vendor extensions HiLink fortranExtraIntrinsic Special delcommand HiLink endif let b:current_syntax = "fortran" " vim: ts=8 tw=132