\
!|(^[Cc](\b|[^Oo]))
"
"
'
'
TRUE
FALSE
NOT
AND
OR
XOR
EQV
NEQV
EQ
NE
GT
GE
LT
LE
block data
CALL
case
common
contains
continue
cycle
data
do
elseif
else
elsewhere
enddo
endif
end
external
forall
function
goto
if
implicit none
include
intrinsic
kind
len
module
program
return
save
SELECT
stop
subroutine
then
type
use
where
while
backspace
close
inquire
open
rewind
endfile
read
write
print
unit
file
iostat
access
blank
fmt
form
recl
status
exist
opened
number
named
name
sequential
direct
rec
formatted
unformatted
nextrec
pad
position
action
delim
readwrite
eor
advance
nml
adjustl
adjustr
all
allocated
any
associated
bit_size
btest
ceiling
count
cshift
date_and_time
digits
dim
dot_product
dprod
eoshift
epsilon
exponent
floor
fraction
huge
iand
ibclr
ibits
ibset
ieor
ior
ishft
ishftc
lbound
len_trim
matmul
maxexponent
maxloc
maxval
merge
minexponent
minloc
minval
modulo
mvbits
nearest
pack
present
product
radix
random_number
random_seed
range
repeat
reshape
rrspacing
scale
selected_int_kind
selected_real_kind
scan
shape
size
spacing
spread
set_exponent
tiny
transpose
trim
ubound
unpack
verify
precision
sum
system_clock
abs
acos
aimag
aint
anint
asin
atan
atan2
cos
sin
tan
sinh
cosh
tanh
exp
log
log10
sign
sqrt
int
cmplx
nint
min
max
conjg
char
ichar
index
cabs
ccos
cexp
clog
csin
csqrt
dacos
dasin
datan
datan2
dcos
dcosh
ddim
dexp
dint
dlog
dlog10
dmod
dabs
dnint
dsign
dsin
dsinh
dsqrt
dtan
dtanh
iabs
idim
idnint
isign
idint
ifix
amax0
amax1
dmax1
max0
max1
amin0
amin1
dmin1
loc
min0
min1
amod
float
sngl
alog
alog10
cdabs
cdcos
cdexp
cdlog
cdsin
cdsqrt
cqabs
cqcos
cqexp
cqlog
cqsin
cqsqrt
qacos
qasin
qatan
qatan2
qcos
qcosh
qdim
qexp
iqint
qlog
qlog10
qmod
qabs
qnint
qsign
qsin
qsinh
qsqrt
qtan
qtanh
qmax1
qmin1
dimag
qimag
dcmplx
qcmplx
dconjg
qconjg
gamma
dgamma
qgamma
algama
dlgama
qlgama
erf
derf
qerf
erfc
derfc
qerfc
dfloat
zabs
zcos
zexp
zlog
zsin
zsqrt
REAL
INTEGER
CHARACTER
LOGICAL
COMPLEX
DOUBLE PRECISION
DOUBLE COMPLEX
BYTE
dimension
parameter
intent
private
optional
pointer
target
allocatable
\b([1-9][0-9]*|0)([Uu]([Ll]|LL|ll)?|([Ll]|LL|ll)[Uu]?)?\b
\b([0-9]+[Ee][-]?[0-9]+|([0-9]*\.[0-9]+|[0-9]+\.)([Ee][-]?[0-9]+)?)[fFlL]?
\b0[0-7]+([Uu]([Ll]|LL|ll)?|([Ll]|LL|ll)[Uu]?)?\b
\b0[xX][0-9a-fA-F]+([Uu]([Ll]|LL|ll)?|([Ll]|LL|ll)[Uu]?)?\b