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