1{
2   Copyright (C) 1995 Free Software Foundation, Inc.
3   Contributed by James Craig Burley.
4
5This file is part of GNU Fortran.
6
7GNU Fortran is free software; you can redistribute it and/or modify
8it under the terms of the GNU General Public License as published by
9the Free Software Foundation; either version 2, or (at your option)
10any later version.
11
12GNU Fortran is distributed in the hope that it will be useful,
13but WITHOUT ANY WARRANTY; without even the implied warranty of
14MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15GNU General Public License for more details.
16
17You should have received a copy of the GNU General Public License
18along with GNU Fortran; see the file COPYING.  If not, write to
19the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
2002111-1307, USA.
21
22}
23
24FFESTR_first // // ffestrFirst ffestr_first 1 1
25;Accept ACCEPT
26;Allocatable ALLOCATABLE
27;Allocate ALLOCATE
28Assign ASSIGN
29Backspace BACKSPACE
30Block BLOCK
31BlockData BLOCKDATA
32Byte BYTE
33Call CALL
34Case CASE
35CaseDefault CASEDEFAULT
36Character CHRCTR
37Close CLOSE
38Common COMMON
39Complex CMPLX
40;Contains CONTAINS
41Continue CONTINUE
42Cycle CYCLE
43Data DATA
44;Deallocate DEALLOCATE
45Decode DECODE
46Define DEFINE
47;DefineFile DEFINEFILE
48Delete DELETE
49Dimension DIMENSION
50Do DO
51Double DBL
52DoubleComplex DBLCMPLX
53DoublePrecision DBLPRCSN
54DoWhile DOWHILE
55Else ELSE
56ElseIf ELSEIF
57;ElseWhere ELSEWHERE
58Encode ENCODE
59End END
60EndBlock ENDBLOCK
61EndBlockData ENDBLOCKDATA
62EndDo ENDDO
63EndFile ENDFILE
64EndFunction ENDFUNCTION
65EndIf ENDIF
66;EndInterface ENDINTERFACE
67;EndMap ENDMAP
68;EndModule ENDMODULE
69EndProgram ENDPROGRAM
70EndSelect ENDSELECT
71;EndStructure ENDSTRUCTURE
72EndSubroutine ENDSUBROUTINE
73;EndType ENDTYPE
74;EndUnion ENDUNION
75;EndWhere ENDWHERE
76Entry ENTRY
77Equivalence EQUIVALENCE
78Exit EXIT
79External EXTERNAL
80Find FIND
81Format FORMAT
82Function FUNCTION
83Go GO
84GoTo GOTO
85If IF
86Implicit IMPLICIT
87Include INCLUDE
88Inquire INQUIRE
89Integer INTGR
90;Intent INTENT
91;Interface INTERFACE
92;InterfaceAssignment INTERFACEASSGNMNT
93;InterfaceOperator INTERFACEOPERATOR
94Intrinsic INTRINSIC
95Logical LGCL
96;Map MAP
97;Module MODULE
98;ModuleProcedure MODULEPROCEDURE
99NameList NAMELIST
100;Nullify NULLIFY
101Open OPEN
102;Optional OPTIONAL
103Parameter PARAMETER
104Pause PAUSE
105;Pointer POINTER
106Print PRINT
107;Private PRIVATE
108Program PROGRAM
109;Public PUBLIC
110Read READ
111Real REAL
112;Record RECORD
113;Recursive RECURSIVE
114;RecursiveFunction RECURSIVEFNCTN
115Return RETURN
116Rewind REWIND
117;Rewrite REWRITE
118Save SAVE
119Select SELECT
120SelectCase SELECTCASE
121;Sequence SEQUENCE
122Stop STOP
123;Structure STRUCTURE
124Subroutine SUBROUTINE
125;Target TARGET
126Then THEN
127Type TYPE
128;Union UNION
129;Unlock UNLOCK
130;Use USE
131Virtual VIRTUAL
132Volatile VOLATILE
133;Where WHERE
134Word WORD
135Write WRITE
136