![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM102.f CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / testf77 / tests|
Return to FM102.f CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / testf77 / tests |
1.1 ! root 1: C COMMENT SECTION. 00010102 ! 2: C DATE***82/08/02*18.33.46 ! 3: C OWNER PRE/850703/TC-85- -410/ /FSTC/278FCVS*F78UBP20/ ! 4: C AUDIT FCVS78 V2.0 ! 5: C 00020102 ! 6: C FM102 00030102 ! 7: C 00040102 ! 8: C THIS ROUTINE IS A TEST OF THE A FORMAT AND IS TAPE AND PRINTER00050102 ! 9: C ORIENTED. THE ROUTINE CAN ALSO BE USED FOR DISK. BOTH THE READ 00060102 ! 10: C AND WRITE STATEMENTS ARE TESTED. VARIABLES IN THE INPUT AND 00070102 ! 11: C OUTPUT LISTS ARE ALPHANUMERIC INTEGERS AND ARRAY ELEMENTS OR 00080102 ! 12: C ARRAY NAME REFERENCES. ALL READ AND WRITE STATEMENTS ARE DONE 00090102 ! 13: C WITH FORMAT STATEMENTS. THE ROUTINE HAS AN OPTIONAL SECTION OF 00100102 ! 14: C CODE TO DUMP THE FILE AFTER IT HAS BEEN WRITTEN. DO LOOPS AND 00110102 ! 15: C DO-IMPLIED LISTS ARE USED IN CONJUNCTION WITH A ONE DIMENSIONAL 00120102 ! 16: C INTEGER ARRAY FOR THE DUMP SECTION. 00130102 ! 17: C 00140102 ! 18: C THIS ROUTINE WRITES A SINGLE SEQUENTIAL FILE WHICH IS 00150102 ! 19: C REWOUND AND READ SEQUENTIALLY FORWARD. EVERY RECORD IS READ AND 00160102 ! 20: C CHECKED FOR ACCURACY AND THE END OF FILE ON RECORD 31 IS ALSO 00170102 ! 21: C CHECKED. DURING THE READ AND CHECK PROCESS THE FILE IS REWOUND 00180102 ! 22: C TWICE. THE FIRST PASS CHECKS THE ODD NUMBERED RECORDS AND THE 00190102 ! 23: C SECOND PASS CHECKS THE EVEN NUMBERED RECORDS. 00200102 ! 24: C 00210102 ! 25: C THE LINE CONTINUATION IN COLUMN 6 IS USED IN READ, WRITE, 00220102 ! 26: C AND FORMAT STATEMENTS. FOR BOTH SYNTAX AND SEMANTIC TESTS, ALL 00230102 ! 27: C STATEMENTS SHOULD BE CHECKED VISUALLY FOR THE PROPER FUNCTIONING 00240102 ! 28: C OF THE CONTINUATION LINE. 00250102 ! 29: C 00260102 ! 30: C REFERENCES 00270102 ! 31: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00280102 ! 32: C X3.9-1978 00290102 ! 33: C 00300102 ! 34: C SECTION 8, SPECIFICATION STATEMENTS 00310102 ! 35: C SECTION 9, DATA STATEMENT 00320102 ! 36: C SECTION 11.10, DO STATEMENT 00330102 ! 37: C SECTION 12, INPUT/OUTPUT STATEMENTS 00340102 ! 38: C SECTION 12.8.2, INPUT/OUTPUT LIST 00350102 ! 39: C SECTION 12.9.5.2, FORMATTED DATA TRANSFER 00360102 ! 40: C SECTION 13, FORMAT STATEMENT 00370102 ! 41: C SECTION 13.2.1, EDIT DESCRIPTORS 00380102 ! 42: C 00390102 ! 43: COMMON IACN11(60), IACN12(30) 00400102 ! 44: C 00410102 ! 45: DIMENSION ITEST(7) 00420102 ! 46: DIMENSION IADN11(60), IADN12(30) 00430102 ! 47: DIMENSION IDUMP(136) 00440102 ! 48: CHARACTER*1 NINE,IADN11,IACN11,IDUMP 00450102 ! 49: CHARACTER*2 IADN12,IACN12 00460102 ! 50: DATA NINE/'9'/ 00470102 ! 51: DATA IADN11 /'0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 00480102 ! 52: 1'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 00490102 ! 53: 2'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z', 00500102 ! 54: 3' ', '=', '+', '-', '*', '/', '(', ')', ',', '.','*', '0', '*', 00510102 ! 55: 4'1', '.', '2', ',', '3', ')', '4', '(', '5', '/', '6' / 00520102 ! 56: DATA IADN12 / 00530102 ! 57: 1'6/', '5(', '4)','3,', '2.', '1*', '0*', '.,', ')(', '/*', '-+', 00540102 ! 58: 2'= ', 'ZY', 'XW', 'VU', 'TS', 'RQ', 'PO', 'NM', 'LK', 'JI', 'HG' 00550102 ! 59: 3,'FE', 'DC', 'BA', '98', '76', '54', '32', '10' / 00560102 ! 60: 77701 FORMAT ( 80A1 ) 00570102 ! 61: 77702 FORMAT (10X,19HPREMATURE EOF ONLY ,I3,13H RECORDS LUN ,I2,8H OUT O00580102 ! 62: 1F ,I3,8H RECORDS) 00590102 ! 63: 77703 FORMAT (10X,12HFILE ON LUN ,I2,7H OK... ,I3,8H RECORDS) 00600102 ! 64: 77704 FORMAT (10X,12HFILE ON LUN ,I2,20H TOO LONG MORE THAN ,I3,8H RECOR00610102 ! 65: 1DS) 00620102 ! 66: 77705 FORMAT ( 1X,80A1) 00630102 ! 67: 77706 FORMAT (10X,43HFILE I08 CREATED WITH 31 SEQUENTIAL RECORDS) 00640102 ! 68: 77751 FORMAT (I3, 2I2, 3I3, I4, 60A1 ) 00650102 ! 69: 77752 FORMAT ( I3, 2I2, 3I3, I4, 30A2 ) 00660102 ! 70: C 00670102 ! 71: C 00680102 ! 72: C ********************************************************** 00690102 ! 73: C 00700102 ! 74: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00710102 ! 75: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD 00720102 ! 76: C PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE 00730102 ! 77: C FEDERAL COBOL COMPILER TESTING SERVICE. THE FORTRAN COMPILER 00740102 ! 78: C VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED00750102 ! 79: C DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT ROUTINE IS A FORTRAN 00760102 ! 80: C PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC 00770102 ! 81: C LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT 00780102 ! 82: C OF EXECUTING THESE TESTS. 00790102 ! 83: C 00800102 ! 84: C THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES 00810102 ! 85: C FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978. 00820102 ! 86: C 00830102 ! 87: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO - 00840102 ! 88: C 00850102 ! 89: C DEPARTMENT OF THE NAVY 00860102 ! 90: C FEDERAL COBOL COMPILER TESTING SERVICE 00870102 ! 91: C WASHINGTON, D.C. 20376 00880102 ! 92: C 00890102 ! 93: C ********************************************************** 00900102 ! 94: C 00910102 ! 95: C 00920102 ! 96: C 00930102 ! 97: C INITIALIZATION SECTION 00940102 ! 98: C 00950102 ! 99: C INITIALIZE CONSTANTS 00960102 ! 100: C ************** 00970102 ! 101: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00980102 ! 102: I01 = 5 00990102 ! 103: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 01000102 ! 104: I02 = 6 01010102 ! 105: C SYSTEM ENVIRONMENT SECTION 01020102 ! 106: C 01030102 ! 107: I01 = 5 01040102 ! 108: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 01050102 ! 109: C (UNIT NUMBER FOR CARD READER). 01060102 ! 110: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. 01070102 ! 111: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 01080102 ! 112: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 01090102 ! 113: C 01100102 ! 114: I02 = 6 01110102 ! 115: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 01120102 ! 116: C (UNIT NUMBER FOR PRINTER). 01130102 ! 117: CX021 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. 01140102 ! 118: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 01150102 ! 119: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 01160102 ! 120: C 01170102 ! 121: IVPASS=0 01180102 ! 122: IVFAIL=0 01190102 ! 123: IVDELE=0 01200102 ! 124: ICZERO=0 01210102 ! 125: C 01220102 ! 126: C WRITE PAGE HEADERS 01230102 ! 127: WRITE (I02,90000) 01240102 ! 128: WRITE (I02,90001) 01250102 ! 129: WRITE (I02,90002) 01260102 ! 130: WRITE (I02, 90002) 01270102 ! 131: WRITE (I02,90003) 01280102 ! 132: WRITE (I02,90002) 01290102 ! 133: WRITE (I02,90004) 01300102 ! 134: WRITE (I02,90002) 01310102 ! 135: WRITE (I02,90011) 01320102 ! 136: WRITE (I02,90002) 01330102 ! 137: WRITE (I02,90002) 01340102 ! 138: WRITE (I02,90005) 01350102 ! 139: WRITE (I02,90006) 01360102 ! 140: WRITE (I02,90002) 01370102 ! 141: C 01380102 ! 142: C DEFAULT ASSIGNMENT FOR FILE 03 IS I08 = 7 01390102 ! 143: I08 = 7 01400102 ! 144: OPEN(UNIT=I08,ACCESS='SEQUENTIAL',FORM='FORMATTED') 01410102 ! 145: CX081 THIS CARD IS REPLACED BY THE CONTENTS OF CARD X-081 01420102 ! 146: C 01430102 ! 147: C WRITE SECTION.... 01440102 ! 148: C 01450102 ! 149: C THIS SECTION OF CODE BUILDS A UNIT RECORD FILE ON LUN I08 THAT IS 01460102 ! 150: C 80 CHARACTERS PER RECORD, 31 RECORDS LONG, AND CONSISTS OF ONLY 01470102 ! 151: C INTEGERS AND ALPHANUMERICS ( I AND A FORMAT ). THIS ROUTINE HAS 01480102 ! 152: C ONLY ONE FILE AND FOR PURPOSES OF IDENTIFICATION IS FILE 03. 01490102 ! 153: C ALL ARRAY ELEMENT DATA FOR THE ALPHANUMERIC CHARACTERS IS SET BY 01500102 ! 154: C THE DATA INITIALIZATION STATEMENT. 01510102 ! 155: IPROG = 102 01520102 ! 156: IFILE = 03 01530102 ! 157: ILUN = I08 01540102 ! 158: ITOTR = 31 01550102 ! 159: IRLGN = 80 01560102 ! 160: IEOF = 0000 01570102 ! 161: IFLIP = 1 01580102 ! 162: DO 234 IRNUM = 1, 31 01590102 ! 163: IF ( IRNUM .EQ. 31 ) IEOF = 9999 01600102 ! 164: IF ( IFLIP - 1 ) 232, 232, 233 01610102 ! 165: 232 WRITE ( I08, 77751 ) IPROG,IFILE,ILUN,IRNUM,ITOTR,IRLGN,IEOF,IADN01620102 ! 166: 111 01630102 ! 167: IFLIP = 2 01640102 ! 168: GO TO 234 01650102 ! 169: 233 WRITE ( I08, 77752 ) IPROG,IFILE,ILUN,IRNUM,ITOTR,IRLGN,IEOF,IADN101660102 ! 170: 12 01670102 ! 171: IFLIP = 1 01680102 ! 172: 234 CONTINUE 01690102 ! 173: WRITE (I02,77706) 01700102 ! 174: C 01710102 ! 175: C REWIND SECTION 01720102 ! 176: C 01730102 ! 177: REWIND I08 01740102 ! 178: C 01750102 ! 179: C READ SECTION.... 01760102 ! 180: C 01770102 ! 181: IVTNUM = 23 01780102 ! 182: C 01790102 ! 183: C **** TEST 23 THRU TEST 38 **** 01800102 ! 184: C TEST 23 THRU 38 - THESE TESTS READ THE FILE SEQUENTIALLY FORWARD01810102 ! 185: C AND CHECK THE ODD NUMBERED RECORDS FOR THE RECORD NUMBER AND THE 01820102 ! 186: C VALUE OF SEVERAL OF THE DATA ITEMS WHICH SHOULD REMAIN CONSTANT 01830102 ! 187: C FROM RECORD TO RECORD. 01840102 ! 188: C 01850102 ! 189: IRTST = 1 01860102 ! 190: DO 383 I = 1, 16 01870102 ! 191: C THE INTEGER VARIABLE IS INITIALIZED TO ZERO FOR EACH TEST 23 - 38.01880102 ! 192: IVON01 = 0 01890102 ! 193: C READ AN ODD NUMBERED RECORD.... 01900102 ! 194: READ ( I08, 77751 ) ITEST, IACN11 01910102 ! 195: IF ( ITEST(4) .EQ. IRTST ) IVON01 = IVON01 + 1 01920102 ! 196: C THE ELEMENT (4) SHOULD EQUAL THE RECORD NUMBER.... 01930102 ! 197: IF ( IACN11(1) .EQ. IADN11(1) ) IVON01 = IVON01 + 1 01940102 ! 198: C THE ELEMENT (1) SHOULD EQUAL IADN11(1) = '0' .... 01950102 ! 199: IF ( IACN11(11) .EQ. IADN11(11) ) IVON01 = IVON01 + 1 01960102 ! 200: C THE ELEMENT (11) SHOULD EQUAL IADN11(11) = 'A' .... 01970102 ! 201: IF ( IACN11(36) .EQ. IADN11(36) ) IVON01 = IVON01 + 1 01980102 ! 202: C THE ELEMENT (36) SHOULD EQUAL IADN11(36) = 'Z' .... 01990102 ! 203: IF ( IACN11(44) .EQ. IADN11(44) ) IVON01 = IVON01 + 1 02000102 ! 204: C THE ELEMENT (44) SHOULD EQUAL IADN11(44) = ')' .... 02010102 ! 205: IF ( IACN11(60) .EQ. IADN11(60) ) IVON01 = IVON01 + 1 02020102 ! 206: C THE ELEMENT (60) SHOULD EQUAL IADN11(60) = '6' .... 02030102 ! 207: IF ( IVON01 - 6 ) 20230, 10230, 20230 02040102 ! 208: C WHEN IVON01 = 6 THEN ALL SIX OF THE ITEST ELEMENTS THAT WERE 02050102 ! 209: C CHECKED HAD THE EXPECTED VALUES.... IF IVON01 DOES NOT EQUAL 6 02060102 ! 210: C THEN AT LEAST ONE OF THE VALUES WAS INCORRECT.... 02070102 ! 211: 10230 IVPASS = IVPASS + 1 02080102 ! 212: WRITE (I02,80001) IVTNUM 02090102 ! 213: GO TO 382 02100102 ! 214: 20230 IVFAIL = IVFAIL + 1 02110102 ! 215: IVCOMP = IVON01 02120102 ! 216: IVCORR = 6 02130102 ! 217: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02140102 ! 218: 382 CONTINUE 02150102 ! 219: C DO NOT READ PAST RECORD NUMBER 31 ON THE I = 16 LOOP.... 02160102 ! 220: IF ( I .EQ. 16 ) GO TO 391 02170102 ! 221: C SKIP OVER THE EVEN NUMBERED RECORDS BY AN EXTRA READ.... 02180102 ! 222: READ ( I08, 77752 ) ITEST, IACN12 02190102 ! 223: IVTNUM = IVTNUM + 1 02200102 ! 224: C INCREMENT THE TEST NUMBER.... 02210102 ! 225: IRTST = IRTST + 2 02220102 ! 226: C INCREMENT THE RECORD NUMBER COUNTER.... 02230102 ! 227: 383 CONTINUE 02240102 ! 228: IF ( ICZERO ) 30230, 391, 30230 02250102 ! 229: 30230 IVDELE = IVDELE + 1 02260102 ! 230: WRITE (I02,80003) IVTNUM 02270102 ! 231: 391 CONTINUE 02280102 ! 232: IVTNUM = 39 02290102 ! 233: C 02300102 ! 234: C **** TEST 39 **** 02310102 ! 235: C TEST 39 - THIS CHECKS FOR THE END OF FILE INDICATOR ON THE 31ST 02320102 ! 236: C RECORD. THE EOF INDICATOR IS ITEST(7) AND SHOULD EQUAL 9999 02330102 ! 237: C 02340102 ! 238: IF (ICZERO) 30390, 390, 30390 02350102 ! 239: 390 CONTINUE 02360102 ! 240: IVCOMP = ITEST(7) 02370102 ! 241: GO TO 40390 02380102 ! 242: 30390 IVDELE = IVDELE + 1 02390102 ! 243: WRITE (I02,80003) IVTNUM 02400102 ! 244: IF (ICZERO) 40390, 401, 40390 02410102 ! 245: 40390 IF ( IVCOMP - 9999 ) 20390, 10390, 20390 02420102 ! 246: 10390 IVPASS = IVPASS + 1 02430102 ! 247: WRITE (I02,80001) IVTNUM 02440102 ! 248: GO TO 401 02450102 ! 249: 20390 IVFAIL = IVFAIL + 1 02460102 ! 250: IVCORR = 9999 02470102 ! 251: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02480102 ! 252: 401 CONTINUE 02490102 ! 253: C REWIND THE FILE AGAIN.... 02500102 ! 254: REWIND I08 02510102 ! 255: C READ THE FILE AGAIN 02520102 ! 256: IVTNUM = 40 02530102 ! 257: C **** TEST 40 THRU 54 **** 02540102 ! 258: C TEST 40 THRU 54 - THESE TESTS CHECK THE EVEN NUMBERED RECORDS 02550102 ! 259: C FOR THE CORRECT RECORD NUMBER AND THE VALUE OF SEVERAL DATA ITEMS 02560102 ! 260: C WHICH SHOULD REMAIN CONSTANT FOR EACH RECORD. THESE READ CHECKS 02570102 ! 261: C USE A DIFFERENT FORMAT THAN TESTS 23 THRU 38 BECAUSE THE RECORDS 02580102 ! 262: C WERE WRITTEN USING A FLIP-FLOP BETWEEN TWO FORMATS. 02590102 ! 263: C 02600102 ! 264: IRTST = 2 02610102 ! 265: C THIS RECORD POINTER IS INITIALIZED TO THE SECOND (EVEN) RECORD 02620102 ! 266: DO 532 I = 1, 15 02630102 ! 267: C THE INTEGER VARIABLE IS INITIALIZED TO ZERO FOR EACH TEST 40 - 54 02640102 ! 268: IVON01 = 0 02650102 ! 269: C SKIP OVER THE ODD NUMBERED RECORDS.... 02660102 ! 270: READ ( I08, 77751 ) ITEST, IACN11 02670102 ! 271: C READ THE EVEN NUMBERED RECORDS.... 02680102 ! 272: READ ( I08, 77752 ) ITEST, IACN12 02690102 ! 273: IF ( ITEST(4) .EQ. IRTST ) IVON01 = IVON01 + 1 02700102 ! 274: C CHECK THE RECORD NUMBER.... 02710102 ! 275: IF ( IACN12(1) .EQ. IADN12(1) ) IVON01 = IVON01 + 1 02720102 ! 276: C ELEMENT (1) SHOULD EQUAL '6/' .... 02730102 ! 277: IF ( IACN12(11) .EQ. IADN12(11) ) IVON01 = IVON01 + 1 02740102 ! 278: C ELEMENT (11) SHOULD EQUAL '-+' .... 02750102 ! 279: IF ( IACN12(16) .EQ. IADN12(16) ) IVON01 = IVON01 + 1 02760102 ! 280: C ELEMENT (16) SHOULD EQUAL 'TS' .... 02770102 ! 281: IF ( IACN12(23) .EQ. IADN12(23) ) IVON01 = IVON01 + 1 02780102 ! 282: C ELEMENT (23) SHOULD EQUAL 'FE' .... (THE SYMBOL FOR IRONY) 02790102 ! 283: IF ( IACN12(30) .EQ. IADN12(30) ) IVON01 = IVON01 + 1 02800102 ! 284: C ELEMENT (30) SHOULD EQUAL '10' .... 02810102 ! 285: IF ( IVON01 - 6 ) 20400, 10400, 20400 02820102 ! 286: 10400 IVPASS = IVPASS + 1 02830102 ! 287: WRITE (I02,80001) IVTNUM 02840102 ! 288: GO TO 402 02850102 ! 289: 20400 IVFAIL = IVFAIL + 1 02860102 ! 290: IVCOMP = IVON01 02870102 ! 291: IVCORR = 6 02880102 ! 292: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02890102 ! 293: 402 CONTINUE 02900102 ! 294: IVTNUM = IVTNUM + 1 02910102 ! 295: C INCREMENT THE TEST NUMBER.... 02920102 ! 296: IRTST = IRTST + 2 02930102 ! 297: C INCREMENT THE RECORD NUMBER COUNTER.... 02940102 ! 298: 532 CONTINUE 02950102 ! 299: IF ( ICZERO ) 30400, 411, 30400 02960102 ! 300: 30400 IVDELE = IVDELE + 1 02970102 ! 301: WRITE (I02,80003) IVTNUM 02980102 ! 302: 411 CONTINUE 02990102 ! 303: C THIS CODE IS OPTIONALLY COMPILED AND IS USED TO DUMP THE FILE 03 03000102 ! 304: C TO THE LINE PRINTER. 03010102 ! 305: CDB** 03020102 ! 306: C ILUN = I08 03030102 ! 307: C ITOTR = 31 03040102 ! 308: C IRLGN = 80 03050102 ! 309: C7777 REWIND ILUN 03060102 ! 310: C DO 7778 IRNUM = 1, ITOTR 03070102 ! 311: C READ (ILUN,77701) (IDUMP(ICHAR), ICHAR = 1, IRLGN) 03080102 ! 312: C WRITE ( I02,77705) (IDUMP(ICHAR), ICHAR = 1, IRLGN) 03090102 ! 313: C IF ( IDUMP(20) .EQ. NINE ) GO TO 7779 03100102 ! 314: C7778 CONTINUE 03110102 ! 315: C GO TO 7782 03120102 ! 316: C7779 IF ( IRNUM - ITOTR ) 7780, 7781, 7782 03130102 ! 317: C7780 WRITE (I02,77702) IRNUM,ILUN,ITOTR 03140102 ! 318: C GO TO 7784 03150102 ! 319: C7781 WRITE (I02,77703) ILUN,ITOTR 03160102 ! 320: C GO TO 7784 03170102 ! 321: C7782 WRITE (I02,77704) ILUN, ITOTR 03180102 ! 322: C DO 7783 I = 1, 5 03190102 ! 323: C READ (ILUN,77701) (IDUMP(ICHAR), ICHAR = 1, IRLGN) 03200102 ! 324: C WRITE ( I02,77705) (IDUMP(ICHAR), ICHAR = 1, IRLGN) 03210102 ! 325: C IF ( IDUMP(20) .EQ. NINE ) GO TO 7784 03220102 ! 326: C7783 CONTINUE 03230102 ! 327: C7784 GO TO 99999 03240102 ! 328: CDE** 03250102 ! 329: C WRITE PAGE FOOTINGS AND RUN SUMMARIES 03260102 ! 330: 99999 CONTINUE 03270102 ! 331: WRITE (I02,90002) 03280102 ! 332: WRITE (I02,90006) 03290102 ! 333: WRITE (I02,90002) 03300102 ! 334: WRITE (I02,90002) 03310102 ! 335: WRITE (I02,90007) 03320102 ! 336: WRITE (I02,90002) 03330102 ! 337: WRITE (I02,90008) IVFAIL 03340102 ! 338: WRITE (I02,90009) IVPASS 03350102 ! 339: WRITE (I02,90010) IVDELE 03360102 ! 340: C 03370102 ! 341: C 03380102 ! 342: C TERMINATE ROUTINE EXECUTION 03390102 ! 343: STOP 03400102 ! 344: C 03410102 ! 345: C FORMAT STATEMENTS FOR PAGE HEADERS 03420102 ! 346: 90000 FORMAT (1H1) 03430102 ! 347: 90002 FORMAT (1H ) 03440102 ! 348: 90001 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03450102 ! 349: 90003 FORMAT (1H ,21X,11HVERSION 1.0) 03460102 ! 350: 90004 FORMAT (1H ,10X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 03470102 ! 351: 90005 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL, 5X,8HCOMPUTED,8X,7HCORRECT) 03480102 ! 352: 90006 FORMAT (1H ,5X,46H----------------------------------------------) 03490102 ! 353: 90011 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 03500102 ! 354: C 03510102 ! 355: C FORMAT STATEMENTS FOR RUN SUMMARIES 03520102 ! 356: 90008 FORMAT (1H ,15X,I5,19H ERRORS ENCOUNTERED) 03530102 ! 357: 90009 FORMAT (1H ,15X,I5,13H TESTS PASSED) 03540102 ! 358: 90010 FORMAT (1H ,15X,I5,14H TESTS DELETED) 03550102 ! 359: C 03560102 ! 360: C FORMAT STATEMENTS FOR TEST RESULTS 03570102 ! 361: 80001 FORMAT (1H ,4X,I5,7X,4HPASS) 03580102 ! 362: 80002 FORMAT (1H ,4X,I5,7X,4HFAIL) 03590102 ! 363: 80003 FORMAT (1H ,4X,I5,7X,7HDELETED) 03600102 ! 364: 80004 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 03610102 ! 365: 80005 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 03620102 ! 366: C 03630102 ! 367: 90007 FORMAT (1H ,20X,20HEND OF PROGRAM FM102) 03640102 ! 368: END 03650102
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.