states c7 c6 c5 c4 c3 c2 c1 f2 f1 ni mc s4 s3 s2 s1 sb sa of format errline end inline comment cmdline
symbols tab cmpiler drective nonexec if format ho t1 t2 x1 x2 name punctuation rcommand program operator q1 q2 qa qb number comment space debug digit all zero amp close semi end any
classes label sub comment error code
states
state cmdline spacetrap
fonts tab _ comment C end KK rcommand K nonexec M program S cmpiler D format M name A drective D digit L space _ semi P amp F
changes end end comment comment name inline program inline rcommand inline cmpiler inline nonexec inline drective inline format format semi cmdline amp mc
unknown errline
end
state mc
fonts amp F comment C
changes comment c1
unknown errline
return cmdline
end
state end
fonts rcommand K program V amp KF cmpiler KD nonexec M format KM name KA number A punctuation A drective KD comment KC number KN space K_ semi KP
changes rcommand inline program inline amp ni cmpiler inline nonexec inline format inline name inline number inline punctuation inline drective inline comment comment digit inline space inline semi inline
unknown errline
end
state comment spacetrap
fonts all C
end
state errline spacetrap
fonts all E
end
state c1 spacetrap
fonts all C
return cmdline
end
state inline
fonts tab _ comment C rcommand K program S nonexec M operator P ho N t1 N t2 N x1 N x2 N name A punctuation P close P number N q1 EE q2 EE amp F semi P any E
changes comment comment q1 sa q2 sb semi cmdline amp ni
end
state ni
fonts tab _ comment C rcommand K program S nonexec M operator P ho N t1 N t2 N x1 N x2 N name A punctuation P close P number N q1 EE q2 EE amp F any E
changes comment c2 rcommand inline nonexec inline program inline name inline operator inline punctuation inline close inline number inline q1 sa q2 sb drective inline semi inline
return inline
end
state c2 spacetrap
fonts all C
return inline
end
state sa spacetrap
fonts amp QF q1 Q qa EE
changes q1 inline amp s3
end
state sb spacetrap
fonts amp QF q2 Q qb EE
changes q2 inline amp s4
end
state s3
fonts comment C amp QF q1 Q qa EE
changes comment c6 q1 inline qa sa
return sa
end
state s4
fonts comment C amp QF q2 Q qb EE
changes comment c7 q2 inline qb sb
return sb
end
state c6 spacetrap
fonts all C
return sa
end
state c7 spacetrap
fonts all C
return sb
end
state format
fonts if A amp QF close QP comment C q1 EE q2 EE punctuation QP any E
changes comment comment q1 f1 q2 f2 amp of close cmdline semi cmdline
* return cmdline
end
state of
fonts if A amp F close P comment C q1 EE q2 EE punctuation P any E
changes comment c3 q1 f1 q2 f2 amp of close cmdline semi cmdline
unknown errline
return format
end
state c3 spacetrap
fonts all C
return format
end
state f1 spacetrap
fonts amp QF q1 Q qa EE
changes q1 format amp s1
end
state s1
fonts comment C amp F qa Q
changes comment c4 qa f1
return f1
end
state f2 spacetrap
fonts amp QF q2 Q qb EE
changes q2 format amp s2
end
state s2
fonts comment C amp F qb Q
changes comment c5 qb f2
return f2
end
state c4 spacetrap
fonts all C
return f1
end
state c5 spacetrap
fonts all C
return f2
end
symbols
symbol all
form
!
symbol tab
form
T
symbol space
form
' '
symbol any
form
.
symbol digit
form
0
symbol comment
form
'!'
symbol amp
sizelist small
&
symbol close
sizelist small
)
symbol semi
sizelist small
;
symbol debug
form
' >D'
symbol zero
form
'0'
symbol cmpiler
alphalist upper single ['@']({[$,'_','$']})
@PROCESS
symbol drective
form
['@','%']({[$,'_','$']})
symbol name
form
[A,a,'_','$']({[$,'_','$']})
symbol punctuation
sizelist small
%
(
*
+
,
-
.
/
:
<
=
>
\
_
symbol ho
form
[#]['H','h']($)
symbol t1
form
['O','o','b','B']['"',''''](#)['"','''']
symbol t2
form
['"',''''](#)['"','''']['O','o','b','B']
symbol x1
form
['z','Z''X','x']['"','''']($)['"','''']
symbol x2
form
['"',''''](#,$)['"','''']['z','Z''X','x']
symbol number
form
[#('.'),'.'](#)([' >E',' >D']('-','+')#)
symbol q1
form
''''
symbol qa
form
/'''&'
symbol q2
form
'"'
symbol qb
form
/'"&'
symbol end
alphalist upper single &
END
symbol program
alphalist upper small [A,a,'_','$']({[&,'_','$']})
ASSIGNMENT
BLOCK
BLOCKDATA
DATA
ENDBLOCKDATA
ENDFUNCTION
ENDINTERFACE
ENDMODULE
ENDPROGRAM
ENDSUBROUTINE
ENTRY
EXTRINSIC
FUNCTION
MODULE
OPERATOR
PROCEDURE
PROGRAM
PURE
RECURSIVE
RESULT
SUBROUTINE
symbol format
alphalist upper single &
FORMAT
symbol if
form
[$,'$','_']
symbol nonexec
alphalist upper large [A,a,'_','$']({[&,'_','$']})
%VAL
%REF
@PROCESS
ALLOCATABLE
AUTOMATIC
BYTE
CHARACTER
COMMON
COMPLEX
DATA
DIMENSION
DOUBLE
DOUBLECOMPLEX
DOUBLEPRECISION
EJECT
ENDTYPE
EQUIVALENCE
EXTERNAL
HPF
HPF_LOCAL
HPF_SERIAL
IMPLICIT
IN
INCLUDE
INOUT
INTEGER
INTENT
INTRINSIC
KIND
LEN
LOGICAL
NAMELIST
NONE
ONLY
OPTIONAL
OUT
PARAMETER
POINTER
PRECISION
PRIVATE
PUBLIC
REAL
SAVE
SEQUENCE
SOURCEFORM
STATIC
TARGET
TYPE
USE
VIRTUAL
VOLATILE
symbol rcommand
alphalist upper large [A,a,'_','$']({[&,'_','$']})
