|
1 | 1 | >C This file demonstrates the syntax of "implicit arrays" (Implied-DO) |
2 | | -#^ source.fortran.fixed comment.line.fortran |
3 | | -# ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ source.fortran.fixed comment.line.fortran |
| 2 | +#^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ source.fortran.fixed comment.line.fortran |
4 | 3 | >C in Fixed Form Fortran. |
5 | | -#^ source.fortran.fixed comment.line.fortran |
6 | | -# ^^^^^^^^^^^^^^^^^^^^^^^^^^^ source.fortran.fixed comment.line.fortran |
| 4 | +#^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ source.fortran.fixed comment.line.fortran |
7 | 5 | >C Covers: DATA statements, I/O lists, and Array Constructors. |
8 | | -#^ source.fortran.fixed comment.line.fortran |
9 | | -# ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ source.fortran.fixed comment.line.fortran |
| 6 | +#^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ source.fortran.fixed comment.line.fortran |
10 | 7 | > |
11 | 8 | > program implicit_arrays_fixed |
12 | 9 | #^^^^^^ source.fortran.fixed constant.numeric.fortran |
|
55 | 52 | # ^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran meta.specification.type.fortran meta.name-list.fortran meta.parameter.fortran punctuation.parentheses.right.fortran |
56 | 53 | > |
57 | 54 | >C ========================================== |
58 | | -#^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
59 | | -# ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
| 55 | +#^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
60 | 56 | >C 1. DATA Statements (Implied-DO) |
61 | | -#^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
62 | | -# ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
| 57 | +#^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
63 | 58 | >C ========================================== |
64 | | -#^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
65 | | -# ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
| 59 | +#^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
66 | 60 | > |
67 | 61 | > data (a(i), i=1, 5) /1, 2, 3, 4, 5/ |
68 | 62 | #^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran constant.numeric.fortran |
|
94 | 88 | # ^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran |
95 | 89 | > |
96 | 90 | >C Continuation in DATA implied-do |
97 | | -#^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
98 | | -# ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
| 91 | +#^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
99 | 92 | > data (a(i), |
100 | 93 | #^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran constant.numeric.fortran |
101 | 94 | # ^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran keyword.control.data.fortran |
|
129 | 122 | # ^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran |
130 | 123 | > |
131 | 124 | >C ========================================== |
132 | | -#^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
133 | | -# ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
| 125 | +#^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
134 | 126 | >C 2. I/O Lists |
135 | | -#^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
136 | | -# ^^^^^^^^^^^^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
| 127 | +#^^^^^^^^^^^^^^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
137 | 128 | >C ========================================== |
138 | | -#^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
139 | | -# ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
| 129 | +#^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
140 | 130 | > |
141 | 131 | > print *, (a(i), i=1, 10) |
142 | 132 | #^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran constant.numeric.fortran |
|
159 | 149 | # ^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran punctuation.parentheses.right.fortran |
160 | 150 | > |
161 | 151 | >C Nested implied-do in I/O |
162 | | -#^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
163 | | -# ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
| 152 | +#^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
164 | 153 | > write(*,*) ((b(i,j), i=1, 3), j=1, 3) |
165 | 154 | #^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran constant.numeric.fortran |
166 | 155 | # ^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran meta.statement.IO.fortran keyword.control.write.fortran |
|
194 | 183 | # ^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran meta.statement.IO.fortran punctuation.parentheses.right.fortran |
195 | 184 | > |
196 | 185 | >C Complex continuation in I/O list |
197 | | -#^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
198 | | -# ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
| 186 | +#^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
199 | 187 | > print *, (a(i), |
200 | 188 | #^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran constant.numeric.fortran |
201 | 189 | # ^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran keyword.control.print.fortran |
|
255 | 243 | # ^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran meta.statement.IO.fortran punctuation.parentheses.right.fortran |
256 | 244 | > |
257 | 245 | >C With expressions in bounds |
258 | | -#^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
259 | | -# ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
| 246 | +#^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran meta.statement.IO.fortran comment.line.fortran |
260 | 247 | > print *, (a(i), i=1, 2*5) |
261 | 248 | #^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran constant.numeric.fortran |
262 | 249 | # ^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran keyword.control.print.fortran |
|
280 | 267 | # ^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran punctuation.parentheses.right.fortran |
281 | 268 | > |
282 | 269 | >C ========================================== |
283 | | -#^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
284 | | -# ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
| 270 | +#^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
285 | 271 | >C 3. Array Constructors (Supported in F90 fixed form) |
286 | | -#^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
287 | | -# ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
| 272 | +#^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
288 | 273 | >C ========================================== |
289 | | -#^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
290 | | -# ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
| 274 | +#^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
291 | 275 | > |
292 | 276 | >C Old style (/ /) |
293 | | -#^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
294 | | -# ^^^^^^^^^^^^^^^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
| 277 | +#^^^^^^^^^^^^^^^^^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
295 | 278 | > a = (/ (i, i=1, 10) /) |
296 | 279 | #^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran constant.numeric.fortran |
297 | 280 | # ^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran meta.parameter.fortran |
|
313 | 296 | # ^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran meta.contructor.array punctuation.bracket.left.fortran |
314 | 297 | > |
315 | 298 | >C Split across lines |
316 | | -#^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
317 | | -# ^^^^^^^^^^^^^^^^^^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
| 299 | +#^^^^^^^^^^^^^^^^^^^^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
318 | 300 | > a = (/ (i, |
319 | 301 | #^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran constant.numeric.fortran |
320 | 302 | # ^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran meta.parameter.fortran |
|
339 | 321 | # ^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran meta.contructor.array punctuation.bracket.left.fortran |
340 | 322 | > |
341 | 323 | >C Nested |
342 | | -#^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
343 | | -# ^^^^^^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
| 324 | +#^^^^^^^^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
344 | 325 | > a = (/ ((i+j, i=1, 2), j=1, 2), 0, 0, 0, 0, 0, 0 /) |
345 | 326 | #^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran constant.numeric.fortran |
346 | 327 | # ^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran meta.parameter.fortran |
|
384 | 365 | # ^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran meta.contructor.array punctuation.bracket.left.fortran |
385 | 366 | > |
386 | 367 | >C ========================================== |
387 | | -#^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
388 | | -# ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
| 368 | +#^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
389 | 369 | >C 4. Whitespace stress test |
390 | | -#^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
391 | | -# ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
| 370 | +#^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
392 | 371 | >C ========================================== |
393 | | -#^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
394 | | -# ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
| 372 | +#^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran comment.line.fortran |
395 | 373 | > |
396 | 374 | > a = (/ ( i , i = 1 , 10 ) /) |
397 | 375 | #^^^^^^ source.fortran.fixed meta.program.fortran meta.block.specification.program.fortran constant.numeric.fortran |
|
0 commit comments