| 1 |
| FORTRAN COMPILER VALIDATION SYSTEM |
| |
| |
| VERSION 2.1 |
| |
| FOR OFFICIAL USE ONLY - COPYRIGHT 1978 |
| |
| SUBSET LEVEL TEST |
| |
| |
| ---------------------------------------------- |
| |
| TEST 156 |
| LAST LINE ON THIS PAGE |
| 1 THIS IS FIRST LINE ON PAGE |
| |
| TEST 157 |
| |
| THERE IS ONE BLANK LINE BEFORE THIS LINE |
| |
| |
| THERE ARE TWO BLANK LINES BEFORE THIS LINE |
| |
| |
| |
| THERE ARE THREE BLANK LINES BEFORE THIS LINE |
| |
| TEST 158 |
| NEXT LINE CONTAINS 54 CHARACTERS |
| 123456789012345678901234567890123456789012345678901234 |
| |
| TEST 159 |
| THIS TEST PRINTS 3 UNDER I1 DESCRIPTOR |
| 3 |
| |
| TEST 160 |
| THIS TEST PRINTS 15 UNDER I2 DESCRIPTOR |
| 15 |
| |
| TEST 161 |
| THIS TEST PRINTS 291 UNDER I3 DESCRIPTOR |
| 291 |
| |
| TEST 162 |
| THIS TEST PRINTS 4321 UNDER I4 DESCRIPTOR |
| 4321 |
| |
| TEST 163 |
| THIS TEST PRINTS 12345 UNDER I5 DESCRIPTOR |
| 12345 |
| |
| TEST 164 |
| THIS TEST PRINTS 1, 22, 333, 4444, AND 25555 UNDER |
| (10X,I1,3X,I2,3X,I3,3X,I4,3X,I5) |
| 1 22 333 4444 25555 |
| |
| TEST 165 |
| NEXT TWO LINES ARE IDENTICAL |
| IVON01 = 113 IVON02 = 8 |
| IVON01 = 113 IVON02 = 8 |
| |
| TEST 166 |
| THIS TEST PRINTS -1 UNDER I2 DESCRIPTOR |
| -1 |
| |
| TEST 167 |
| THIS TEST PRINTS -22 UNDER I3 DESCRIPTOR |
| -22 |
| |
| TEST 168 |
| THIS TEST PRINTS -333 UNDER I4 DESCRIPTOR |
| -333 |
| |
| TEST 169 |
| THIS TEST PRINTS -4444 UNDER I5 DESCRIPTOR |
| -4444 |
| |
| TEST 170 |
| THIS TEST PRINTS -15555 UNDER DESCRIPTOR I6 |
| -15555 |
| |
| TEST 171 |
| THIS TEST PRINTS -9, -88, -777, -6666, AND -25555 |
| UNDER FORMAT 10X,I2,3X,I3,3X,I4,3X,I5,3X,I6 |
| -9 -88 -777 -6666 -25555 |
| |
| TEST 172 |
| THIS TEST PRINTS 5, -54, 543, -5432, AND 32000 |
| UNDER I5 NUMERIC FIELD DESCRIPTOR |
| 5 -54 543 -5432 32000 |
| |
| TEST 173 |
| |
| THERE IS ONE BLANK LINE BEFORE THIS LINE |
| 0 |
| THERE ARE TWO BLANK LINES BEFORE THIS LINE |
| |
| 0 |
| THERE ARE THREE BLANK LINES BEFORE THIS LINE |
| 0 |
| 0 |
| THERE ARE FOUR BLANK LINES BEFORE THIS LINE |
| |
| TEST 174 |
| |
| 1ST LINE - AABBCCDD |
| + WWXXYYZZ OVERPRINTS - 2ND LINE |
| |
| |
| |
| |
| |
| |
| |
| 11 44 1ST LINE |
| + 22 55 2ND |
| + 33 66 3RD |
| |
| TEST 175 |
| THIS TESTS PRINTS 3. UNDER F3.0 DESCRIPTOR |
| 3. |
| |
| TEST 176 |
| THIS TEST PRINTS -15. WITH F4.0 DESCRIPTOR |
| -15. |
| |
| TEST 177 |
| THIS TEST PRINTS -0.12345E+03 USING E12.5 |
| -0.12345E+03 |
| |
| ---------------------------------------------- |
| |
| END OF PROGRAM FM109 |
| exit 0 |