|
|
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.