f90-font-lock-keywords-4
f90-font-lock-keywords-4 is a variable defined in `
f90.el'.
Its value is shown
below.
- This variable may be risky if used as a file-local variable.
Documentation:
Highlights all F90 and HPF keywords and constants.
Value:
(("\\_<\\(module[ ]*procedure\\)\\_>\\([^()\n]*::\\)?[ ]*\\([^&!\n]*\\)"
(1 font-lock-keyword-face)
(3 font-lock-function-name-face nil t))
(f90-typedef-matcher
(1 font-lock-keyword-face)
(2 font-lock-function-name-face))
("\\_<\\(\\(?:end[ ]*\\)?interface[ ]*\\(?:assignment\\|operator\\|read\\|write\\)\\)[ ]*("
(1 font-lock-keyword-face t))
("\\_<\\(\\(?:end[ ]*\\)?\\(program\\|\\(?:sub\\)?module\\|function\\|associate\\|subroutine\\|interface\\)\\|use\\|call\\)\\_>[ ]*\\(\\(?:\\sw\\|\\s_\\)+\\)?"
(1 font-lock-keyword-face)
(3 font-lock-function-name-face nil t))
("\\_<\\(submodule\\)\\_>[ ]*([^)\n]+)[ ]*\\(\\(?:\\sw\\|\\s_\\)+\\)?"
(1 font-lock-keyword-face)
(2 font-lock-function-name-face nil t))
("\\_<\\(use\\)[ ]*,[ ]*\\(\\(?:non_\\)?intrinsic\\)[ ]*::[ ]*\\(\\(?:\\sw\\|\\s_\\)+\\)"
(1 font-lock-keyword-face)
(2 font-lock-keyword-face)
(3 font-lock-function-name-face))
"\\_<\\(\\(end[ ]*\\)?block[ ]*data\\|contains\\)\\_>"
("\\_"
(0 font-lock-keyword-face t))
("^[ 0-9]*\\(?:pure\\|elemental\\)?[ ]*\\(real\\|integer\\|c\\(haracter\\|omplex\\)\\|enumerator\\|generic\\|procedure\\|logical\\|double[ ]*precision\\)\\(.*::\\|[ ]*(.*)\\)?\\([^&!\n]*\\)"
(1 font-lock-type-face t)
(4 font-lock-variable-name-face t))
(f90-typedec-matcher
(1 font-lock-type-face)
(2 font-lock-variable-name-face))
("\\_<\\(\\(real\\|integer\\|c\\(haracter\\|omplex\\)\\|logical\\|double[ ]*precision\\|\\(?:type\\|class\\)[ ]*([ ]*\\(?:\\sw\\|\\s_\\)+[ ]*)\\)[ ]*\\)\\(function\\)\\_>[ ]*\\(\\(?:\\sw\\|\\s_\\)+\\)[ ]*\\(([^&!\n]*)\\)"
(1 font-lock-type-face t)
(4 font-lock-keyword-face t)
(5 font-lock-function-name-face t)
(6 'default t))
("\\_<\\(enum\\)[ ]*,"
(1 font-lock-keyword-face))
("\\_<\\(end[ ]*\\(do\\|if\\|enum\\|select\\|forall\\|where\\|block\\|critical\\)\\)\\_>\\([ ]+\\(\\(?:\\sw\\|\\s_\\)+\\)\\)?"
(1 font-lock-keyword-face)
(3 font-lock-constant-face nil t))
("^[ 0-9]*\\(\\(\\(?:\\sw\\|\\s_\\)+\\)[ ]*:[ ]*\\)?\\(\\(if\\|do\\([ ]*while\\)?\\|select[ ]*\\(?:case\\|type\\)\\|where\\|forall\\|block\\|critical\\)\\)\\_>"
(2 font-lock-constant-face nil t)
(3 font-lock-keyword-face))
("\\_<\\(implicit\\)[ ]*\\(real\\|integer\\|c\\(haracter\\|omplex\\)\\|enumerator\\|procedure\\|logical\\|double[ ]*precision\\|type[ ]*(\\(?:\\sw\\|\\s_\\)+)\\|none\\)[ ]*"
(1 font-lock-keyword-face)
(2 font-lock-type-face))
("\\_<\\(namelist\\|common\\)[ ]*/\\(\\(?:\\sw\\|\\s_\\)+\\)?/"
(1 font-lock-keyword-face)
(2 font-lock-constant-face nil t))
"\\_"
("\\(&\\)[ ]*\\(!\\|$\\)"
(1 font-lock-keyword-face))
"\\_<\\(then\\|continue\\|format\\|include\\|stop\\|return\\)\\_>"
("\\_<\\(exit\\|cycle\\)[ ]*\\(\\(?:\\sw\\|\\s_\\)+\\)?\\_>"
(1 font-lock-keyword-face)
(2 font-lock-constant-face nil t))
("\\_<\\(case\\)[ ]*\\(default\\|(\\)" . 1)
("\\_<\\(class\\)[ ]*default" . 1)
("\\_<\\(\\(type\\|class\\)[ ]*is\\)[ ]*("
(1 font-lock-keyword-face t))
("\\_<\\(do\\|go[ ]*to\\)\\_>[ ]*\\([0-9]+\\)"
(1 font-lock-keyword-face)
(2 font-lock-constant-face))
("^[ ]*\\([0-9]+\\)[ ]*[a-z]+"
(1 font-lock-constant-face t))
("^#[ ]*\\(?:\\sw\\|\\s_\\)+"
(0 font-lock-preprocessor-face t)
("\\_" nil nil
(0 font-lock-preprocessor-face)))
("^#"
("\\(&&\\|||\\)" nil nil
(0 font-lock-constant-face t)))
("^#[ ]*define[ ]+\\(\\(?:\\sw\\|\\s_\\)+\\)("
(1 font-lock-function-name-face))
("^#[ ]*define[ ]+\\(\\(?:\\sw\\|\\s_\\)+\\)"
(1 font-lock-variable-name-face))
("^#[ ]*include[ ]+\\(<.+>\\)"
(1 font-lock-string-face))
"\\_<\\(?:a\\(?:bstract\\|llocat\\(?:\\(?:abl\\)?e\\)\\|ssign\\(?:ment\\)?\\)\\|backspace\\|c\\(?:lose\\|o\\(?:dimension\\|n\\(?:current\\|tiguous\\)\\)\\)\\|d\\(?:e\\(?:allocate\\|ferred\\)\\|imension\\)\\|e\\(?:lemental\\|n\\(?:dfile\\|try\\)\\|quivalence\\|xternal\\)\\|final\\|i\\(?:mport\\|n\\(?:quire\\|t\\(?:ent\\|rinsic\\)\\)\\)\\|n\\(?:o\\(?:n_\\(?:intrinsic\\|overridable\\)\\|pass\\)\\|ullify\\)\\|o\\(?:nly\\|p\\(?:e\\(?:n\\|rator\\)\\|tional\\)\\)\\|p\\(?:a\\(?:rameter\\|ss\\|use\\)\\|ointer\\|r\\(?:i\\(?:nt\\|vate\\)\\|otected\\)\\|u\\(?:blic\\|re\\)\\)\\|re\\(?:ad\\|cursive\\|sult\\|wind\\)\\|s\\(?:ave\\|e\\(?:lect\\|quence\\)\\|ync \\(?:all\\|memory\\)\\)\\|target\\|\\(?:v\\(?:alu\\|olatil\\)\\|writ\\)e\\)\\_>" "\\.\\(and\\|eqv?\\|false\\|g[et]\\|l[et]\\|n\\(?:e\\(?:qv\\)?\\|ot\\)\\|or\\|true\\)\\."
("\\_<\\(a\\(?:bs\\|c\\(?:har\\|os\\)\\|djust[lr]\\|i\\(?:mag\\|nt\\)\\|ll\\(?:ocated\\)?\\|n\\(?:int\\|y\\)\\|s\\(?:in\\|sociated\\)\\|tan2?\\)\\|b\\(?:essel_\\(?:j[01n]\\|y[01n]\\)\\|g[et]\\|i\\(?:nd\\|t_size\\)\\|l[et]\\|test\\)\\|c\\(?:_\\(?:associated\\|f\\(?:_p\\(?:\\(?:rocp\\)?ointer\\)\\|unloc\\)\\|loc\\|sizeof\\)\\|eiling\\|har\\|mplx\\|o\\(?:m\\(?:mand_argument_count\\|piler_\\(?:options\\|version\\)\\)\\|njg\\|sh?\\|unt\\)\\|pu_time\\|shift\\)\\|d\\(?:ate_and_time\\|ble\\|i\\(?:gits\\|m\\)\\|ot_product\\|prod\\|shift[lr]\\)\\|e\\(?:oshift\\|psilon\\|rf\\(?:c\\(?:_scaled\\)?\\)?\\|x\\(?:p\\(?:onent\\)?\\|tends\\(?:_type_of\\)?\\)\\)\\|f\\(?:indloc\\|l\\(?:oor\\|ush\\)\\|raction\\)\\|g\\(?:amma\\|et_\\(?:command\\(?:_argument\\)?\\|environment_variable\\)\\)\\|h\\(?:uge\\|ypot\\)\\|i\\(?:a\\(?:char\\|ll\\|n[dy]\\)\\|b\\(?:clr\\|its\\|set\\)\\|char\\|e\\(?:ee_\\(?:get_underflow_mode\\|s\\(?:et_underflow_mode\\|upport_underflow_control\\)\\)\\|or\\)\\|mage_index\\|n\\(?:dex\\|t\\)\\|or\\|parity\\|s\\(?:_contiguous\\|hftc?\\)\\)\\|kind\\|l\\(?:bound\\|cobound\\|e\\(?:adz\\|n\\(?:_trim\\)?\\)\\|g[et]\\|l[et]\\|o\\(?:ck\\|g\\(?:10\\|_gamma\\|ical\\)?\\)\\)\\|m\\(?:a\\(?:sk[lr]\\|tmul\\|x\\(?:exponent\\|loc\\|val\\)?\\)\\|erge\\(?:_bits\\)?\\|in\\(?:exponent\\|loc\\|val\\)?\\|o\\(?:d\\(?:ulo\\)?\\|ve_alloc\\)\\|vbits\\)\\|n\\(?:e\\(?:arest\\|w_line\\)\\|int\\|o\\(?:rm2\\|t\\)\\|u\\(?:ll\\|m_images\\)\\)\\|p\\(?:a\\(?:ck\\|rity\\)\\|op\\(?:cnt\\|par\\)\\|r\\(?:e\\(?:cision\\|sent\\)\\|oduct\\)\\)\\|r\\(?:a\\(?:dix\\|n\\(?:dom_\\(?:number\\|seed\\)\\|ge\\)\\)\\|e\\(?:peat\\|shape\\)\\|rspacing\\)\\|s\\(?:ame_type_as\\|ca\\(?:le\\|n\\)\\|e\\(?:lected_\\(?:\\(?:char\\|int\\|real\\)_kind\\)\\|t_exponent\\)\\|h\\(?:ape\\|ift[alr]\\)\\|i\\(?:gn\\|nh?\\|ze\\)\\|p\\(?:acing\\|read\\)\\|qrt\\|torage_size\\|um\\|y\\(?:nc images\\|stem_clock\\)\\)\\|t\\(?:anh?\\|his_image\\|iny\\|r\\(?:a\\(?:ilz\\|ns\\(?:fer\\|pose\\)\\)\\|im\\)\\)\\|u\\(?:bound\\|cobound\\|n\\(?:\\(?:lo\\|pa\\)ck\\)\\)\\|verify\\|wait\\)[ ]*("
(1 font-lock-keyword-face keep))
"\\_"
("\\_<\\(asynchronous\\)[ ]*[^=]" . 1)
("\\_<\\(?:atomic_\\(?:\\(?:int\\|logical\\)_kind\\)\\|c\\(?:_\\(?:alert\\|b\\(?:ackspace\\|ool\\)\\|c\\(?:arriage_return\\|har\\)\\|double\\(?:_complex\\)?\\|f\\(?:loat\\(?:_complex\\)?\\|orm_feed\\|unptr\\)\\|horizontal_tab\\|int\\(?:\\(?:16\\|32\\|64\\|8\\|_\\(?:fast\\(?:16\\|32\\|64\\|8\\)\\|least\\(?:16\\|32\\|64\\|8\\)\\)\\|max\\|ptr\\)_t\\)?\\|long\\(?:_\\(?:double\\(?:_complex\\)?\\|long\\)\\)?\\|n\\(?:ew_line\\|ull_\\(?:\\(?:cha\\|\\(?:fun\\)?pt\\)r\\)\\)\\|ptr\\|s\\(?:hort\\|i\\(?:gned_char\\|ze_t\\)\\)\\|vertical_tab\\)\\|haracter_\\(?:kinds\\|storage_size\\)\\)\\|error_unit\\|file_storage_size\\|i\\(?:eee_\\(?:arithmetic\\|\\(?:exception\\|feature\\)s\\)\\|n\\(?:put_unit\\|t\\(?:16\\|32\\|64\\|8\\|eger_kinds\\)\\)\\|ostat_\\(?:e\\(?:nd\\|or\\)\\|inquire_internal_unit\\)\\|so_\\(?:c_binding\\|fortran_env\\)\\)\\|lo\\(?:ck_type\\|gical_kinds\\)\\|numeric_storage_size\\|output_unit\\|real\\(?:128\\|32\\|64\\|_kinds\\)\\)\\_>" . font-lock-constant-face)
"\\_<\\(?:a\\(?:l\\(?:ign\\|l_\\(?:prefix\\|s\\(?:catter\\|uffix\\)\\)\\)\\|ny_\\(?:prefix\\|s\\(?:catter\\|uffix\\)\\)\\)\\|block\\|c\\(?:o\\(?:py_\\(?:prefix\\|s\\(?:catter\\|uffix\\)\\)\\|unt_\\(?:prefix\\|s\\(?:catter\\|uffix\\)\\)\\)\\|yclic\\)\\|d\\(?:istribute\\|ynamic\\)\\|extrinsic\\|grade_\\(?:down\\|up\\)\\|hpf_\\(?:alignment\\|distribution\\|template\\)\\|i\\(?:a\\(?:ll\\(?:_\\(?:prefix\\|s\\(?:catter\\|uffix\\)\\)\\)?\\|ny\\(?:_\\(?:prefix\\|s\\(?:catter\\|uffix\\)\\)\\)?\\)\\|len\\|n\\(?:\\(?:dependen\\|heri\\)t\\)\\|parity\\(?:_\\(?:prefix\\|s\\(?:catter\\|uffix\\)\\)\\)?\\)\\|leadz\\|m\\(?:axval_\\(?:prefix\\|s\\(?:catter\\|uffix\\)\\)\\|inval_\\(?:prefix\\|s\\(?:catter\\|uffix\\)\\)\\)\\|n\\(?:ew\\|umber_of_processors\\)\\|onto\\|p\\(?:arity\\(?:_\\(?:prefix\\|s\\(?:catter\\|uffix\\)\\)\\)?\\|op\\(?:cnt\\|par\\)\\|ro\\(?:cessors\\(?:_shape\\)?\\|duct_\\(?:prefix\\|s\\(?:catter\\|uffix\\)\\)\\)\\|ure\\)\\|re\\(?:align\\|distribute\\)\\|sum_\\(?:prefix\\|s\\(?:catter\\|uffix\\)\\)\\|template\\|with\\)\\_>")