48 lines
468 B
FortranFixed
48 lines
468 B
FortranFixed
|
! Enumerate all styles: 0 to 14
|
||
|
! This is not a viable source file, it just illustrates the different states in isolation.
|
||
|
|
||
|
! comment=1
|
||
|
! Comment
|
||
|
|
||
|
! default=0
|
||
|
! w
|
||
|
|
||
|
! number=2
|
||
|
.37
|
||
|
|
||
|
! string1=3
|
||
|
'string'
|
||
|
|
||
|
! string2=4
|
||
|
"string"
|
||
|
|
||
|
! stringeol=5
|
||
|
" unclosed
|
||
|
|
||
|
! operator=6
|
||
|
+
|
||
|
|
||
|
! identifier=7
|
||
|
variable
|
||
|
|
||
|
! word=8
|
||
|
program
|
||
|
|
||
|
! word2=9
|
||
|
system_clock
|
||
|
|
||
|
! word3=10
|
||
|
doublecomplex
|
||
|
|
||
|
! preprocessor=11
|
||
|
!DEC$ ATTRIBUTES DLLEXPORT::sr1
|
||
|
|
||
|
! operator2=12
|
||
|
.lt.
|
||
|
|
||
|
! label=13
|
||
|
999
|
||
|
|
||
|
! continuation=14
|
||
|
&
|