Variable: f90-font-lock-keywords

(("\\_<\\(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)))