text/x-fortran
*.f;*.f9[05];*.for
!
\.
\.
true
false
not
and
or
xor
eqv
neqv
eq
ne
gt
ge
lt
le
allocate
assign
assignment
block data
call
case
common
contains
continue
cycle
data
deallocate
default
do
elemental
elseif
else
elsewhere
enddo
endif
endselect
end
entry
equivalence
exit
external
forall
function
go to
goto
if
implicit none
in
include
inout
interface
intrinsic
kind
len
module
namelist
nullify
only
operator
out
pause
private
program
public
pure
recursive
result
return
save
select
stop
subroutine
then
type
use
where
while
backspace
close
endfile
format
inquire
open
print
read
rewind
write
access
action
advance
blank
delim
direct
end
eor
err
exist
file
fmt
form
formatted
iolength
iostat
name
named
nextrec
nml
number
opened
pad
position
readwrite
rec
recl
sequential
size
status
unformatted
unit
write
abs
achar
acos
adjustl
adjustr
aimag
aint
algama
allocated
all
alog10
alog
amax0
amax1
amin0
amin1
amod
anint
any
asin
associated
atan2
atan
bit_size
btest
c_associated
c_loc
c_funloc
c_f_pointer
c_f_procpointer
cabs
ccos
cdabs
cdcos
cdexp
cdlog
cdsin
cdsqrt
ceiling
cexp
char
clog
cmplx
command_argument_count
conjg
cosh
cos
count
cpu_time
cqabs
cqcos
cqexp
cqlog
cqsin
cqsqrt
cshift
csin
csqrt
dabs
dacos
dasin
datan2
datan
date_and_time
dble
dcmplx
dconjg
dcosh
dcos
ddim
derf
derfc
dexp
dfloat
dgamma
digits
dim
dimag
dint
dlgama
dlog10
dlog
dmax1
dmin1
dmod
dnint
dot_product
dprod
dsign
dsinh
dsin
dsqrt
dtanh
dtan
eoshift
epsilon
erfc
erf
exp
exponent
float
floor
fraction
gamma
getarg
get_command
get_command_argument
get_environment_variable
huge
iabs
iachar
iand
iargc
ibclr
ibits
ibset
ichar
idim
idint
idnint
ieor
ifix
index
int
ior
iqint
is_iostat_end
is_iostat_eor
ishftc
ishft
isign
kind
lbound
len_trim
len
lge
lgt
lle
llt
loc
log10
log
logical
matmul
max0
max1
maxexponent
maxloc
maxval
max
merge
min0
min1
minexponent
minloc
minval
min
mod
modulo
move_alloc
mvbits
nearest
new_line
nint
not
null
or
pack
precision
present
product
qabs
qacos
qasin
qatan2
qatan
qcmplx
qconjg
qcosh
qcos
qdim
qerf
qerfc
qexp
qgamma
qimag
qlgama
qlog10
qlog
qmax1
qmin1
qmod
qnint
qsign
qsinh
qsin
qsqrt
qtanh
qtan
radix
random_number
random_seed
range
real
repeat
reshape
rrspacing
scale
scan
selected_char_kind
selected_int_kind
selected_real_kind
set_exponent
shape
sign
sinh
sin
size
sngl
spacing
spread
sqrt
sum
system_clock
tanh
tan
tiny
transfer
transpose
trim
ubound
unpack
verify
zabs
zcos
zexp
zlog
zsin
zsqrt
byte
character
complex
double complex
double precision
integer
logical
procedure
real
allocatable
dimension
external
intent
intrinsic
optional
parameter
pointer
private
public
save
target
,\s*\%[
\%[
(?<![\w\.])
[+-]?
((\.[0-9]+ | [0-9]+\.[0-9]*) ([ed][+-]?[0-9]*)? |
([0-9]+[ed][+-]?[0-9]*))
([_]([0-9]+|[a-z][\w_]*))?
(?![\w\.])
(?<![\w\.])
[+-]? ([1-9][0-9]*|0)
([_]([0-9]+|[a-z][\w_]*))?
(?![\w\.])
\bb'[01]+'|\bb"[01]+"|
\bo'[0-7]+'|\bo"[0-7]+"|
\bz'[0-9a-f]+'|\bz"[0-9a-f]+"