contrib/gcc/f/str-1t.fin

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