|
|
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 33
15: LAST LINE ON THIS PAGE
16: 1 THIS IS FIRST LINE ON PAGE
17:
18: TEST 34
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 35
30: NEXT LINE CONTAINS 54 CHARACTERS
31: 123456789012345678901234567890123456789012345678901234
32: 1
33:
34: TEST 36
35: THIS TEST PRINTS 3 UNDER I1 DESCRIPTOR
36: 3
37:
38: TEST 37
39: THIS TEST PRINTS 15 UNDER I2 DESCRIPTOR
40: 15
41:
42: TEST 38
43: THIS TEST PRINTS 291 UNDER I3 DESCRIPTOR
44: 291
45:
46: TEST 39
47: THIS TEST PRINTS 4321 UNDER I4 DESCRIPTOR
48: 4321
49:
50: TEST 40
51: THIS TEST PRINTS 12345 UNDER I5 DESCRIPTOR
52: 12345
53:
54: TEST 41
55: THIS TEST PRINTS 1, 22, 333, 4444, AND 25555 UNDER
56: (10X,I1,3X,I2,3X,I3,3X,I4,3X,I5)
57: 1 22 333 4444 25555
58:
59: TEST 42
60: NEXT TWO LINES ARE IDENTICAL
61: IVON01 = 113 IVON02 = 8
62: IVON01 = 113 IVON02 = 8
63: 1
64:
65: TEST 43
66: THIS TEST PRINTS -1 UNDER I2 DESCRIPTOR
67: -1
68:
69: TEST 44
70: THIS TEST PRINTS -22 UNDER I3 DESCRIPTOR
71: -22
72:
73: TEST 45
74: THIS TEST PRINTS -333 UNDER I4 DESCRIPTOR
75: -333
76:
77: TEST 46
78: THIS TEST PRINTS -4444 UNDER I5 DESCRIPTOR
79: -4444
80:
81: TEST 47
82: THIS TEST PRINTS -15555 UNDER DESCRIPTOR I6
83: -15555
84:
85: TEST 48
86: THIS TEST PRINTS -9, -88, -777, -6666, AND -25555
87: UNDER FORMAT 10X,I2,3X,I3,3X,I4,3X,I5,3X,I6
88: -9 -88 -777 -6666 -25555
89:
90: TEST 49
91: THIS TEST PRINTS 5, -54, 543, -5432, AND 32000
92: UNDER I5 NUMERIC FIELD DESCRIPTOR
93: 5 -54 543 -5432 32000
94:
95: ----------------------------------------------
96:
97: END OF PROGRAM FM005
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.