This file is indexed.

/usr/share/THE/fortran.tld is in the 3.3~b4-1.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below.

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
*
* This file contains the THE Language Definition for FORTRAN
* It is based heavily on Kedit's KLD file format.
*
* Name = FORTRAN
*
:case
  ignore
:option  
  function ( blank
:number
  c
:identifier
  [a-zA-Z_$] [a-zA-Z0-9_$]
:string
  single backslash
  double backslash
:comment
  line C column 1
  line * column 1
  line ! any
:label
* column 1
:match  
  ( )
:keyword
  ALLOCATABLE
  ALLOCATE
  ASSIGN
  AUTOMATIC
  BACKSPACE
  BLOCK
  BYTE
  CALL
  CASE
  CHARACTER
  CLOSE
  COMMON
  COMPLEX
  CONTAINS
  CONTINUE
  CYCLE
  DATA
  DEALLOCATE
  DIMENSION
  DO
  DOUBLE 
  ELSE
  ELSEWHERE
  END
  ENDFILE
  ENTRY
  EQUIVALENCE
  EXIT
  EXTERNAL
  FORALL
  FORMAT
  FUNCTION
  GOTO
  IF
  IMPLICIT
  INQUIRE
  INTEGER
  INTENT
  INTERFACE
  INTRINSIC
  LOGICAL
  MODULE
  NAMELIST
  NULLIFY
  OPEN
  OPTIONAL
  PARAMETER
  PAUSE
  POINTER
  PRECISION
  PRINT
  PRIVATE
  PROCEDURE
  PROGRAM
  PUBLIC
  READ
  REAL
  RETURN
  REWIND
  SAVE
  SELECT
  SEQUENCE
  STATIC
  STOP
  SUBROUTINE
  TARGET
  TYPE
  USE
  VIRTUAL
  VOLATILE
  WAIT
  WHERE
  WHILE
  WRITE
* Other keywords
  ENDDO
  ENDFORALL
  ENDIF
  ENDINTERFACE
  ENDSELECT
  ENDTYPE
  ENDWHERE
  GO
  SELECTCASE
  THEN
  TO
* Logical operators
  AND
  EQV
  OR
  NEQV
  NOT
  XOR
* Relational operators
  EQ
  GT
  GE
  LE
  LT
  NE
:function
  ABORT
  ABS
  ACHAR
  ACOS
  ACOSD
  ADJUSTL
  ADJUSTR
  AIMAG
  AINT
  ALL
  ALLOCATED
  ANINT
  ANY
  ASIN
  ASIND
  ASSOCIATED
  ATAN
  ATAND
  ATAN2
  ATAN2D
  BIT_SIZE
  BTEST
  CEILING
  CHAR
  CMPLX
  CONJG
  COS
  COSD
  COSH
  COUNT
  CSHIFT
  CVMGx
  DATE_AND_TIME
  DBLE
  DCMPLX
  DIGITS
  DIM
  DOT_PRODUCT
  DPROD
  EOSHIFT
  EPSILON
  ERF
  ERFC
  EXP
  EXPONENT
  FLOOR
  FRACTION
  GAMMA
  GETENV
  HFIX
  HUGE
  IACHAR
  IAND
  IBCLR
  IBITS
  IBSET
  ICHAR
  IEOR
  ILEN
  IMAG
  INDEX
  INT
  IOR
  ISHFT
  ISHFTC
  KIND
  LBOUND
  LEADZ
  LEN
  LEN_TRIM
  LGAMMA
  LGE
  LGT
  LLE
  LLT
  LOC
  LOG
  LOGICAL
  LOG10
  LSHIFT
  MATMUL
  MAX
  MAXEXPONENT
  MAXLOC
  MAXVAL
  MERGE
  MIN
  MINEXPONENT
  MINLOC
  MINVAL
  MOD
  MODULO
  MVBITS
  NEAREST
  NINT
  NOT
  NUM_PARTHDS
  NUM_USRTHDS
  NUMBER_OF_PROCESSORS
  PACK
  PRECISION
  PRESENT
  PROCESSORS_SHAPE
  PRODUCT
  QCMPLX
  QEXT
  RADIX
  RAND
  RANDOM_NUMBER
  RANDOM_SEED
  RANGE
  REAL
  REPEAT
  RESHAPE
  RRSPACING
  RSHIFT
  SCALE
  SCAN
  SELECTED_INT_KIND
  SELECTED_REAL_KIND
  SET_EXPONENT
  SHAPE
  SIGN
  SIGNAL
  SIN
  SIND
  SINH
  SIZE
  SPACING
  SPREAD
  SQRT
  SRAND
  SUM
  SYSTEM
  SYSTEM_CLOCK
  TAN
  TAND
  TANH
  TINY
  TRANSFER
  TRANSPOSE
  TRIM
  UBOUND
  UNPACK
  VERIFY
:column
  exclude 2 7