Variable: f90-font-lock-keywords-3

(("\\_<\\(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\\|\\(?:module[         ]*\\)?\\(?:function\\|subroutine\\)\\|\\(?:sub\\)?module\\|associate\\|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\\)\\_>"
 ("\\_<abstract[     ]*interface\\_>" (0 font-lock-keyword-face t))
 ("\\(&\\)[         ]*\\(!\\|$\\)" (1 font-lock-keyword-face))
 ("^[   0-9]*\\(?:pure\\|elemental\\)?[         ]*\\(real\\|integer\\|c\\(haracter\\|omplex\\)\\|enumerator\\|generic\\|procedure\\|logical\\|double[   ]*precision\\)\\(.*::\\|[       ]*(.*)\\)?\\([^&!\n]*\\(?:&\n[^&!\n]*\\)*\\)"
  (1 font-lock-type-face t) (4 font-lock-variable-name-face append))
 (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))
 "\\_<else\\([       ]*if\\|where\\)?\\_>"
 "\\_<\\(then\\|continue\\|format\\|include\\|\\(?:error[    ]+\\)?stop\\|return\\)\\_>"
 ("\\_<\\(exit\\|cycle\\)[   ]+\\(\\(?:\\sw\\|\\s_\\)+\\)?\\_>"
  (1 font-lock-keyword-face) (2 font-lock-constant-face nil t))
 ("\\_<\\(exit\\|cycle\\)\\_>" (1 font-lock-keyword-face))
 ("\\_<\\(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)
  ("\\_<defined\\_>" 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\\|osh?\\)\\|djust[lr]\\|i\\(?:mag\\|nt\\)\\|ll\\(?:ocated\\)?\\|n\\(?:int\\|y\\)\\|s\\(?:inh?\\|sociated\\)\\|t\\(?:an[2h]?\\|omic_\\(?:define\\|ref\\)\\)\\)\\|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\\(?:ecute_command_line\\|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))
 "\\_<real\\_>" ("\\_<\\(asynchronous\\)[      ]*[^=]" . 1))