f90-font-lock-keywords

f90-font-lock-keywords 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:
Default expressions to highlight in F90 mode.
Can be overridden by the value of `font-lock-maximum-decoration'.

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)))