|
|
1.1 root 1: 1
2: FORTRAN COMPILER VALIDATION SYSTEM
3:
4:
5: VERSION 1.0
6:
7: FOR OFFICIAL USE ONLY - COPYRIGHT 1978
8:
9: SUBSET LEVEL TEST
10:
11:
12: ----------------------------------------------
13:
14: TEST 156
15: LAST LINE ON THIS PAGE
16: 1 THIS IS FIRST LINE ON PAGE
17:
18: TEST 157
19:
20: THERE IS ONE BLANK LINE BEFORE THIS LINE
21:
22:
23: THERE ARE TWO BLANK LINES BEFORE THIS LINE
24:
25:
26:
27: THERE ARE THREE BLANK LINES BEFORE THIS LINE
28:
29: TEST 158
30: NEXT LINE CONTAINS 54 CHARACTERS
31: 123456789012345678901234567890123456789012345678901234
32:
33: TEST 159
34: THIS TEST PRINTS 3 UNDER I1 DESCRIPTOR
35: 3
36:
37: TEST 160
38: THIS TEST PRINTS 15 UNDER I2 DESCRIPTOR
39: 15
40:
41: TEST 161
42: THIS TEST PRINTS 291 UNDER I3 DESCRIPTOR
43: 291
44:
45: TEST 162
46: THIS TEST PRINTS 4321 UNDER I4 DESCRIPTOR
47: 4321
48:
49: TEST 163
50: THIS TEST PRINTS 12345 UNDER I5 DESCRIPTOR
51: 12345
52:
53: TEST 164
54: THIS TEST PRINTS 1, 22, 333, 4444, AND 25555 UNDER
55: (10X,I1,3X,I2,3X,I3,3X,I4,3X,I5)
56: 1 22 333 4444 25555
57:
58: TEST 165
59: NEXT TWO LINES ARE IDENTICAL
60: IVON01 = 113 IVON02 = 8
61: IVON01 = 113 IVON02 = 8
62:
63: TEST 166
64: THIS TEST PRINTS -1 UNDER I2 DESCRIPTOR
65: -1
66:
67: TEST 167
68: THIS TEST PRINTS -22 UNDER I3 DESCRIPTOR
69: -22
70:
71: TEST 168
72: THIS TEST PRINTS -333 UNDER I4 DESCRIPTOR
73: -333
74:
75: TEST 169
76: THIS TEST PRINTS -4444 UNDER I5 DESCRIPTOR
77: -4444
78:
79: TEST 170
80: THIS TEST PRINTS -15555 UNDER DESCRIPTOR I6
81: -15555
82:
83: TEST 171
84: THIS TEST PRINTS -9, -88, -777, -6666, AND -25555
85: UNDER FORMAT 10X,I2,3X,I3,3X,I4,3X,I5,3X,I6
86: -9 -88 -777 -6666 -25555
87:
88: TEST 172
89: THIS TEST PRINTS 5, -54, 543, -5432, AND 32000
90: UNDER I5 NUMERIC FIELD DESCRIPTOR
91: 5 -54 543 -5432 32000
92:
93: TEST 173
94:
95: THERE IS ONE BLANK LINE BEFORE THIS LINE
96: 0
97: THERE ARE TWO BLANK LINES BEFORE THIS LINE
98:
99: 0
100: THERE ARE THREE BLANK LINES BEFORE THIS LINE
101: 0
102: 0
103: THERE ARE FOUR BLANK LINES BEFORE THIS LINE
104:
105: TEST 174
106:
107: 1ST LINE - AABBCCDD
108: + WWXXYYZZ OVERPRINTS - 2ND LINE
109:
110:
111:
112:
113:
114:
115:
116: 11 44 1ST LINE
117: + 22 55 2ND
118: + 33 66 3RD
119:
120: TEST 175
121: THIS TESTS PRINTS 3. UNDER F3.0 DESCRIPTOR
122: 3.
123:
124: TEST 176
125: THIS TEST PRINTS -15. WITH F4.0 DESCRIPTOR
126: -15.
127:
128: TEST 177
129: THIS TEST PRINTS -0.12345E+03 USING E12.5
130: -0.12345E+03
131:
132: ----------------------------------------------
133:
134: END OF PROGRAM FM109
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.