fortran-font-lock-keywords-4

fortran-font-lock-keywords-4 is a variable defined in `fortran.el'.
Its value is shown below.

• This variable may be risky if used as a file-local variable.

Documentation:
Maximum highlighting for Fortran mode.
Consists of level 3 plus all other intrinsics not already highlighted.

Value:

(("\\<\\(block[ 	]*data\\|call\\|entry\\|function\\|program\\|subroutine\\)\\>[ 	]*\\(\\sw+\\)?"
  (1 font-lock-keyword-face)
  (2 font-lock-function-name-face nil t))
 ("\\<\\(byte\\|c\\(?:haracter\\|om\\(?:mon\\|plex\\)\\)\\|d\\(?:ata\\|imension\\|ouble[ 	]*\\(?:complex\\|precision\\)\\)\\|e\\(?:nd[ 	]*\\(?:map\\|structure\\|union\\)\\|quivalence\\|xternal\\)\\|i\\(?:mplicit[ 	]*\\(?:byte\\|c\\(?:haracter\\|omplex\\)\\|double[ 	]*\\(?:complex\\|precision\\)\\|integer\\|logical\\|none\\|real\\)\\|nt\\(?:eger\\|rinsic\\)\\)\\|logical\\|map\\|none\\|parameter\\|re\\(?:al\\|cord\\)\\|s\\(?:\\(?:av\\|tructur\\)e\\)\\|union\\)\\>[ 	(/]*\\(*\\)?"
  (1 font-lock-type-face)
  (fortran-match-and-skip-declaration
   (condition-case nil
       (and
	(match-beginning 2)
	(forward-sexp)
	(forward-sexp))
     (error nil))
   nil
   (1 font-lock-variable-name-face nil t)))
 (", *\\(e\\(nd\\|rr\\)\\)\\> *\\(= *\\([0-9]+\\)\\)?"
  (1 font-lock-keyword-face)
  (4 font-lock-constant-face nil t))
 ("^ \\{5\\}\\([^ 0\n]\\)" 1 font-lock-string-face)
 ("^	\\([1-9]\\)" 1 font-lock-string-face)
 ("^[ 	]*#.*"
  (0 font-lock-preprocessor-face t))
 "\\<\\(backspace\\|c\\(?:\\(?:as\\|los\\|ontinu\\|ycl\\)e\\)\\|e\\(?:lse\\(?:if\\|where\\)?\\|nd\\(?:do\\|if\\)?\\|xit\\)\\|format\\|i\\(?:f\\|n\\(?:\\(?:clud\\|quir\\)e\\)\\)\\|open\\|print\\|re\\(?:ad\\|turn\\|wind\\)\\|s\\(?:elect\\|top\\)\\|then\\|w\\(?:\\(?:h\\(?:er\\|il\\)\\|rit\\)e\\)\\)\\>" "\\.\\(and\\|eqv?\\|false\\|g[et]\\|l[et]\\|n\\(?:e\\(?:qv\\)?\\|ot\\)\\|or\\|true\\)\\."
 ("\\<\\(do\\|go *to\\)\\>[ 	]*\\([0-9]+\\)?"
  (1 font-lock-keyword-face)
  (2 font-lock-constant-face nil t))
 ("^ *\\([0-9]+\\)" . font-lock-constant-face)
 ("\\<\\(a\\(?:bs\\|cos\\|i\\(?:mag\\|nt\\)\\|log\\(?:10\\)?\\|m\\(?:ax[01]\\|in[01]\\|od\\)\\|nint\\|sin\\|tan2?\\)\\|c\\(?:abs\\|cos\\|exp\\|har\\|log\\|mplx\\|o\\(?:njg\\|sh?\\)\\|s\\(?:in\\|qrt\\)\\)\\|d\\(?:a\\(?:bs\\|cos\\|sin\\|tan2?\\)\\|ble\\|cosh?\\|dim\\|exp\\|i\\(?:m\\|nt\\)\\|log\\(?:10\\)?\\|m\\(?:ax1\\|in1\\|od\\)\\|nint\\|prod\\|s\\(?:i\\(?:gn\\|nh?\\)\\|qrt\\)\\|tanh?\\)\\|exp\\|float\\|i\\(?:abs\\|char\\|d\\(?:i\\(?:m\\|nt\\)\\|nint\\)\\|fix\\|n\\(?:dex\\|t\\)\\|sign\\)\\|l\\(?:en\\|g[et]\\|l[et]\\|og\\(?:10\\)?\\)\\|m\\(?:ax[01]?\\|in[01]?\\|od\\)\\|nint\\|real\\|s\\(?:i\\(?:gn\\|nh?\\)\\|ngl\\|qrt\\)\\|tanh?\\)[ 	]*("
  (1 font-lock-builtin-face)))