![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM107.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 FM107.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. 00010107 ! 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 00020107 ! 6: C FM107 00030107 ! 7: C 00040107 ! 8: C THIS ROUTINE IS A TEST OF THE I FORMAT AND IS TAPE AND PRINTER00050107 ! 9: C ORIENTED. THE ROUTINE CAN ALSO BE USED FOR DISK. BOTH THE READ 00060107 ! 10: C AND WRITE STATEMENTS ARE TESTED. VARIABLES IN THE INPUT AND 00070107 ! 11: C OUTPUT LISTS ARE INTEGER VARIABLE AND INTEGER ARRAY ELEMENT OR 00080107 ! 12: C ARRAY NAME REFERENCES. ALL READ AND WRITE STATEMENTS ARE DONE 00090107 ! 13: C WITH FORMAT STATEMENTS. THE ROUTINE HAS AN OPTIONAL SECTION OF 00100107 ! 14: C CODE TO DUMP THE FILE AFTER IT HAS BEEN WRITTEN. DO LOOPS AND 00110107 ! 15: C DO-IMPLIED LISTS ARE USED IN CONJUNCTION WITH A ONE DIMENSIONAL 00120107 ! 16: C INTEGER ARRAY FOR THE DUMP SECTION. 00130107 ! 17: C 00140107 ! 18: C THE MAJOR PURPOSE OF THIS ROUTINE IS TO TEST WHETHER THE LAST 00150107 ! 19: C SET OF PARENTHESES WILL BE REPEATED IN A FORMAT STATEMENT IF THE 00160107 ! 20: C NUMBER OF DATA ITEMS IN THE INPUT/OUTPUT LIST IS GREATER THAN THE 00170107 ! 21: C NUMBER OF FIELD SPECIFICATIONS WITHIN THE FORMAT STATEMENT. 00180107 ! 22: C IN ADDITION THE USE OF TWO AND THREE DIMENSIONED ARRAYS IS TESTED 00190107 ! 23: C IN THE IMPLIED-DO LISTS IN BOTH THE WRITE AND READ SECTIONS. 00200107 ! 24: C 00210107 ! 25: C THIS ROUTINE WRITES A SINGLE SEQUENTIAL FILE WHICH IS 00220107 ! 26: C REWOUND AND READ SEQUENTIALLY FORWARD. EVERY FOURTH RECORD IS 00230107 ! 27: C CHECKED DURING THE READ TEST SECTION PLUS THE LAST TWO RECORDS 00240107 ! 28: C AND THE END OF FILE ON THE LAST RECORD. 00250107 ! 29: C 00260107 ! 30: C THE LINE CONTINUATION IN COLUMN 6 IS USED IN READ, WRITE, 00270107 ! 31: C AND FORMAT STATEMENTS. FOR BOTH SYNTAX AND SEMANTIC TESTS, ALL 00280107 ! 32: C STATEMENTS SHOULD BE CHECKED VISUALLY FOR THE PROPER FUNCTIONING 00290107 ! 33: C OF THE CONTINUATION LINE. 00300107 ! 34: C 00310107 ! 35: C REFERENCES 00320107 ! 36: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00330107 ! 37: C X3.9-1978 00340107 ! 38: C 00350107 ! 39: C SECTION 8, SPECIFICATION STATEMENTS 00360107 ! 40: C SECTION 9, DATA STATEMENT 00370107 ! 41: C SECTION 11.10, DO STATEMENT 00380107 ! 42: C SECTION 12, INPUT/OUTPUT STATEMENTS 00390107 ! 43: C SECTION 12.8.2, INPUT/OUTPUT LIST 00400107 ! 44: C SECTION 12.9.5.2, FORMATTED DATA TRANSFER 00410107 ! 45: C SECTION 13, FORMAT STATEMENT 00420107 ! 46: C SECTION 13.2.1, EDIT DESCRIPTORS 00430107 ! 47: C 00440107 ! 48: DIMENSION IADN21(31,20), IADN31(31,10,2) 00450107 ! 49: DIMENSION ITEST(27) 00460107 ! 50: DIMENSION IDUMP(136) 00470107 ! 51: CHARACTER*1 NINE,IDUMP 00480107 ! 52: DATA NINE/'9'/ 00490107 ! 53: C 00500107 ! 54: 77701 FORMAT ( 80A1 ) 00510107 ! 55: 77702 FORMAT (10X,19HPREMATURE EOF ONLY ,I3,13H RECORDS LUN ,I2,8H OUT O00520107 ! 56: 1F ,I3,8H RECORDS) 00530107 ! 57: 77703 FORMAT (10X,12HFILE ON LUN ,I2,7H OK... ,I3,8H RECORDS) 00540107 ! 58: 77704 FORMAT (10X,12HFILE ON LUN ,I2,20H NO EOF.. MORE THAN ,I3,8H RECOR00550107 ! 59: 1DS) 00560107 ! 60: 77705 FORMAT ( 1X,80A1) 00570107 ! 61: 77706 FORMAT (10X,44HFILE I06 CREATED WITH 137 SEQUENTIAL RECORDS ) 00580107 ! 62: 77751 FORMAT ( I3, 2(1I2), 3(1I3), I4, 10(1I3) ) 00590107 ! 63: 77752 FORMAT ( I3,2(1I2), 3(1I3), I4, 3(1I3) ) 00600107 ! 64: 77753 FORMAT ( //////////////// I3,2I2,3I3,I4,10(I3) ) 00610107 ! 65: C 00620107 ! 66: C 00630107 ! 67: C ********************************************************** 00640107 ! 68: C 00650107 ! 69: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00660107 ! 70: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD 00670107 ! 71: C PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE 00680107 ! 72: C FEDERAL COBOL COMPILER TESTING SERVICE. THE FORTRAN COMPILER 00690107 ! 73: C VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED00700107 ! 74: C DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT ROUTINE IS A FORTRAN 00710107 ! 75: C PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC 00720107 ! 76: C LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT 00730107 ! 77: C OF EXECUTING THESE TESTS. 00740107 ! 78: C 00750107 ! 79: C THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES 00760107 ! 80: C FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978. 00770107 ! 81: C 00780107 ! 82: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO - 00790107 ! 83: C 00800107 ! 84: C DEPARTMENT OF THE NAVY 00810107 ! 85: C FEDERAL COBOL COMPILER TESTING SERVICE 00820107 ! 86: C WASHINGTON, D.C. 20376 00830107 ! 87: C 00840107 ! 88: C ********************************************************** 00850107 ! 89: C 00860107 ! 90: C 00870107 ! 91: C 00880107 ! 92: C INITIALIZATION SECTION 00890107 ! 93: C 00900107 ! 94: C INITIALIZE CONSTANTS 00910107 ! 95: C ************** 00920107 ! 96: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00930107 ! 97: I01 = 5 00940107 ! 98: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00950107 ! 99: I02 = 6 00960107 ! 100: C SYSTEM ENVIRONMENT SECTION 00970107 ! 101: C 00980107 ! 102: I01 = 5 00990107 ! 103: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 01000107 ! 104: C (UNIT NUMBER FOR CARD READER). 01010107 ! 105: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. 01020107 ! 106: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 01030107 ! 107: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 01040107 ! 108: C 01050107 ! 109: I02 = 6 01060107 ! 110: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 01070107 ! 111: C (UNIT NUMBER FOR PRINTER). 01080107 ! 112: CX021 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. 01090107 ! 113: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 01100107 ! 114: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 01110107 ! 115: C 01120107 ! 116: IVPASS=0 01130107 ! 117: IVFAIL=0 01140107 ! 118: IVDELE=0 01150107 ! 119: ICZERO=0 01160107 ! 120: C 01170107 ! 121: C WRITE PAGE HEADERS 01180107 ! 122: WRITE (I02,90000) 01190107 ! 123: WRITE (I02,90001) 01200107 ! 124: WRITE (I02,90002) 01210107 ! 125: WRITE (I02, 90002) 01220107 ! 126: WRITE (I02,90003) 01230107 ! 127: WRITE (I02,90002) 01240107 ! 128: WRITE (I02,90004) 01250107 ! 129: WRITE (I02,90002) 01260107 ! 130: WRITE (I02,90011) 01270107 ! 131: WRITE (I02,90002) 01280107 ! 132: WRITE (I02,90002) 01290107 ! 133: WRITE (I02,90005) 01300107 ! 134: WRITE (I02,90006) 01310107 ! 135: WRITE (I02,90002) 01320107 ! 136: C 01330107 ! 137: C DEFAULT ASSIGNMENT FOR FILE 08 IS I06 = 7 01340107 ! 138: I06 = 7 01350107 ! 139: OPEN(UNIT=I06,ACCESS='SEQUENTIAL',FORM='FORMATTED') 01360107 ! 140: CX061 THIS CARD IS REPLACED BY THE CONTENTS OF CARD X-061 01370107 ! 141: C 01380107 ! 142: C WRITE SECTION.... 01390107 ! 143: C 01400107 ! 144: C THIS SECTION OF CODE BUILDS A UNIT RECORD FILE ON LUN I06 THAT IS 01410107 ! 145: C 80 CHARACTERS PER RECORD, 31 RECORDS SETS, AND CONSISTS OF ONLY 01420107 ! 146: C INTEGERS ( I FORMAT ). THIS IS THE ONLY FILE TESTED IN THE 01430107 ! 147: C ROUTINE FM107 AND FOR PURPOSES OF IDENTIFICATION IS FILE 08. 01440107 ! 148: IPROG = 107 01450107 ! 149: IFILE = 08 01460107 ! 150: ILUN = I06 01470107 ! 151: ITOTR = 137 01480107 ! 152: IRLGN = 80 01490107 ! 153: IEOF = 0000 01500107 ! 154: C THESE DO-LOOPS ARE TO SET THE VALUES INTO THE TWO AND THREE 01510107 ! 155: C DIMENSIONED ARRAYS FOR THE I/O LISTS.... 01520107 ! 156: DO 1143 IRNUM = 1, 31 01530107 ! 157: DO 1142 J = 1, 20 01540107 ! 158: IADN21(IRNUM,J) = IRNUM + J + 99 01550107 ! 159: 1142 CONTINUE 01560107 ! 160: 1143 CONTINUE 01570107 ! 161: C 01580107 ! 162: DO 1146 IRNUM = 1, 31 01590107 ! 163: DO 1145 J = 1, 10 01600107 ! 164: DO 1144 K = 1, 2 01610107 ! 165: IADN31(IRNUM,J,K) = IRNUM + J + K + 298 01620107 ! 166: 1144 CONTINUE 01630107 ! 167: 1145 CONTINUE 01640107 ! 168: 1146 CONTINUE 01650107 ! 169: IFLIP = 1 01660107 ! 170: DO 1149 IRNUM = 1, 31 01670107 ! 171: IF ( IRNUM .EQ. 31 ) IEOF = 9999 01680107 ! 172: IF ( IFLIP - 1 ) 1147, 1147, 1148 01690107 ! 173: 1147 WRITE ( I06, 77751 ) IPROG, IFILE, ILUN, IRNUM, ITOTR, IRLGN, IEOF01700107 ! 174: 1,(IADN21(IRNUM,J), J = 1, 20) 01710107 ! 175: IFLIP = 2 01720107 ! 176: GO TO 1149 01730107 ! 177: 1148 WRITE ( I06, 77752 ) IPROG, IFILE, ILUN, IRNUM, ITOTR, IRLGN, IEOF01740107 ! 178: 1,((IADN31(IRNUM,J,K), K = 1, 2), J = 1, 10) 01750107 ! 179: IFLIP = 1 01760107 ! 180: 1149 CONTINUE 01770107 ! 181: WRITE (I02,77706) 01780107 ! 182: C 01790107 ! 183: C REWIND SECTION 01800107 ! 184: C 01810107 ! 185: REWIND I06 01820107 ! 186: C 01830107 ! 187: C READ SECTION.... 01840107 ! 188: C 01850107 ! 189: IVTNUM = 114 01860107 ! 190: C 01870107 ! 191: C **** TEST 114 THRU TEST 121 **** 01880107 ! 192: C TEST 114 THRU 121 - THESE TESTS READ THE SEQUENTIAL FILE 01890107 ! 193: C PREVIOUSLY WRITTEN ON LUN I06 AND CHECK THE FIRST AND EVERY FOURTH01900107 ! 194: C RECORD. THE VALUES CHECKED ARE THE RECORD NUMBER - IRNUM AND 01910107 ! 195: C SEVERAL VALUES IN THE INTEGER ARRAY WHICH SHOULD FOLLOW A 01920107 ! 196: C CALCULATED PATTERN WITH RESPECT TO THE SUBSCRIPTS AND THE RECORD 01930107 ! 197: C NUMBER.... 01940107 ! 198: C 01950107 ! 199: IRNUM = 1 01960107 ! 200: READ(I06,77751) ITEST 01970107 ! 201: C READ THE FIRST RECORD.... 01980107 ! 202: DO 1212 I = 1, 8 01990107 ! 203: IVON01 = 0 02000107 ! 204: C THE INTEGER VARIABLE IS INITIALIZED TO ZERO FOR EACH TEST 02010107 ! 205: IF ( ITEST(4) .EQ. IRNUM ) IVON01 = IVON01 + 1 02020107 ! 206: C THE ELEMENT (4) SHOULD EQUAL THE RECORD NUMBER.... 02030107 ! 207: C THE FOLLOWING TESTS ARE FOR ODD NUMBERED RECORDS 02040107 ! 208: IF ( ITEST(8) .EQ. IADN21(IRNUM,1) ) IVON01 = IVON01 + 1 02050107 ! 209: C ELEMENT (8) SHOULD EQUAL IRNUM + 100 .... 02060107 ! 210: IF ( ITEST(12) .EQ. IADN21(IRNUM,5) ) IVON01 = IVON01 + 1 02070107 ! 211: C ELEMENT (12) SHOULD EQUAL IRNUM + 104 .... 02080107 ! 212: IF ( ITEST(16) .EQ. IADN21(IRNUM,9) ) IVON01 = IVON01 + 1 02090107 ! 213: C ELEMENT (16) SHOULD EQUAL IRNUM + 108 .... 02100107 ! 214: IF ( ITEST(20) .EQ. IADN21(IRNUM,13) ) IVON01 = IVON01 + 1 02110107 ! 215: C ELEMENT (20) SHOULD EQUAL IRNUM + 112 .... 02120107 ! 216: IF ( ITEST(27) .EQ. IADN21(IRNUM,20) ) IVON01 = IVON01 + 1 02130107 ! 217: C ELEMENT (27) SHOULD EQUAL IRNUM + 119 .... 02140107 ! 218: C WHEN IVON01 = 6 THEN ALL SIX OF THE ITEST ELEMENTS THAT WERE 02150107 ! 219: C CHECKED HAD THE EXPECTED VALUES.... IF IVON01 DOES NOT EQUAL 6 02160107 ! 220: C THEN AT LEAST ONE OF THE VALUES WAS INCORRECT.... 02170107 ! 221: 41200 IF ( IVON01 - 6 ) 21200, 11200, 21200 02180107 ! 222: 11200 IVPASS = IVPASS + 1 02190107 ! 223: WRITE (I02,80001) IVTNUM 02200107 ! 224: GO TO 1210 02210107 ! 225: 21200 IVFAIL = IVFAIL + 1 02220107 ! 226: IVCOMP = IVON01 02230107 ! 227: IVCORR = 6 02240107 ! 228: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02250107 ! 229: 1210 CONTINUE 02260107 ! 230: IVTNUM = IVTNUM + 1 02270107 ! 231: C INCREMENT THE TEST NUMBER.... 02280107 ! 232: C 02290107 ! 233: IF ( I .EQ. 8 ) GO TO 1221 02300107 ! 234: C THIS CODE IS TO SKIP READING PAST THE END OF FILE BY NOT READING 02310107 ! 235: C FOUR RECORDS PAST RECORD NUMBER 29 ON THE 8TH LOOP.... 02320107 ! 236: C 02330107 ! 237: READ ( I06,77753 ) ITEST 02340107 ! 238: C READ FOUR RECORDS ON LUN I06.... 02350107 ! 239: IRNUM = IRNUM + 4 02360107 ! 240: C INCREMENT THE RECORD NUMBER COUNTER.... 02370107 ! 241: 1212 CONTINUE 02380107 ! 242: IF ( ICZERO ) 31200, 1221, 31200 02390107 ! 243: 31200 IVDELE = IVDELE + 1 02400107 ! 244: WRITE (I02,80003) IVTNUM 02410107 ! 245: 1221 CONTINUE 02420107 ! 246: IVTNUM = 122 02430107 ! 247: C 02440107 ! 248: C **** TEST 122 **** 02450107 ! 249: C TEST 122 - THIS CHECKS THE VALUE OF THE VARIABLE ITEST(27) 02460107 ! 250: C ON RECORD NUMBER 30. ELEMENT (20) SHOULD EQUAL IADN31(30,2,10) 02470107 ! 251: C WHICH SHOULD BE EQUAL TO 340 .... 02480107 ! 252: C 02490107 ! 253: IF (ICZERO) 31220, 1220, 31220 02500107 ! 254: 1220 CONTINUE 02510107 ! 255: READ ( I06,77752 ) ITEST 02520107 ! 256: IVCOMP = ITEST(27) 02530107 ! 257: GO TO 41220 02540107 ! 258: 31220 IVDELE = IVDELE + 1 02550107 ! 259: WRITE (I02,80003) IVTNUM 02560107 ! 260: IF (ICZERO) 41220, 1231, 41220 02570107 ! 261: 41220 IF ( IVCOMP - 340 ) 21220, 11220, 21220 02580107 ! 262: 11220 IVPASS = IVPASS + 1 02590107 ! 263: WRITE (I02,80001) IVTNUM 02600107 ! 264: GO TO 1231 02610107 ! 265: 21220 IVFAIL = IVFAIL + 1 02620107 ! 266: IVCORR = 340 02630107 ! 267: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02640107 ! 268: 1231 CONTINUE 02650107 ! 269: IVTNUM = 123 02660107 ! 270: C 02670107 ! 271: C **** TEST 123 **** 02680107 ! 272: C TEST 123 - THIS CHECKS THE VALUE OF VARIABLE ITEST(27) ON 02690107 ! 273: C RECORD NUMBER 31 WHICH SHOULD EQUAL IADN21(31,20) = 31 + 20 + 99 02700107 ! 274: C ITEST(27) SHOULD EQUAL 150 .... 02710107 ! 275: C 02720107 ! 276: IF (ICZERO) 31230, 1230, 31230 02730107 ! 277: 1230 CONTINUE 02740107 ! 278: READ ( I06,77751) ITEST 02750107 ! 279: IVCOMP = ITEST(27) 02760107 ! 280: GO TO 41230 02770107 ! 281: 31230 IVDELE = IVDELE + 1 02780107 ! 282: WRITE (I02,80003) IVTNUM 02790107 ! 283: IF (ICZERO) 41230, 1241, 41230 02800107 ! 284: 41230 IF ( IVCOMP - 150 ) 21230, 11230, 21230 02810107 ! 285: 11230 IVPASS = IVPASS + 1 02820107 ! 286: WRITE (I02,80001) IVTNUM 02830107 ! 287: GO TO 1241 02840107 ! 288: 21230 IVFAIL = IVFAIL + 1 02850107 ! 289: IVCORR = 150 02860107 ! 290: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02870107 ! 291: 1241 CONTINUE 02880107 ! 292: IVTNUM = 124 02890107 ! 293: C 02900107 ! 294: C **** TEST 124 **** 02910107 ! 295: C TEST 124 - THIS CHECKS FOR THE PROPER 9999 EOF INDICATOR ON 02920107 ! 296: C RECORD NUMBER 31 .... 02930107 ! 297: C 02940107 ! 298: IF (ICZERO) 31240, 1240, 31240 02950107 ! 299: 1240 CONTINUE 02960107 ! 300: IVCOMP = ITEST(7) 02970107 ! 301: GO TO 41240 02980107 ! 302: 31240 IVDELE = IVDELE + 1 02990107 ! 303: WRITE (I02,80003) IVTNUM 03000107 ! 304: IF (ICZERO) 41240, 1251, 41240 03010107 ! 305: 41240 IF ( IVCOMP - 9999 ) 21240, 11240, 21240 03020107 ! 306: 11240 IVPASS = IVPASS + 1 03030107 ! 307: WRITE (I02,80001) IVTNUM 03040107 ! 308: GO TO 1251 03050107 ! 309: 21240 IVFAIL = IVFAIL + 1 03060107 ! 310: IVCORR = 9999 03070107 ! 311: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03080107 ! 312: 1251 CONTINUE 03090107 ! 313: C THIS CODE IS OPTIONALLY COMPILED AND IS USED TO DUMP THE FILE 08 03100107 ! 314: C TO THE LINE PRINTER. 03110107 ! 315: CDB** 03120107 ! 316: C ILUN = I06 03130107 ! 317: C ITOTR = 137 03140107 ! 318: C IRLGN = 80 03150107 ! 319: C7777 REWIND ILUN 03160107 ! 320: C IENDC = 0 03170107 ! 321: C IRCNT = 0 03180107 ! 322: C DO 7778 IRNUM = 1, ITOTR 03190107 ! 323: C READ (ILUN,77701) (IDUMP(ICHAR), ICHAR = 1, IRLGN) 03200107 ! 324: C WRITE ( I02,77705) (IDUMP(ICHAR), ICHAR = 1, IRLGN) 03210107 ! 325: C IRCNT = IRCNT + 1 03220107 ! 326: C IF ( IDUMP(20) .EQ. NINE ) IENDC = IRNUM 03230107 ! 327: C7778 CONTINUE 03240107 ! 328: C IF ( IENDC - 136 ) 7780, 7779, 7782 03250107 ! 329: C7779 IF ( IRCNT - ITOTR ) 7780, 7781, 7782 03260107 ! 330: C7780 WRITE (I02,77702) IRNUM,ILUN,ITOTR 03270107 ! 331: C GO TO 7784 03280107 ! 332: C7781 WRITE (I02,77703) ILUN,ITOTR 03290107 ! 333: C GO TO 7784 03300107 ! 334: C7782 WRITE (I02,77704) ILUN, ITOTR 03310107 ! 335: C DO 7783 I = 1, 5 03320107 ! 336: C READ (ILUN,77701) (IDUMP(ICHAR), ICHAR = 1, IRLGN) 03330107 ! 337: C WRITE ( I02,77705) (IDUMP(ICHAR), ICHAR = 1, IRLGN) 03340107 ! 338: C IF ( IDUMP(20) .EQ. NINE ) GO TO 7784 03350107 ! 339: C7783 CONTINUE 03360107 ! 340: C7784 GO TO 99999 03370107 ! 341: CDE** 03380107 ! 342: C WRITE PAGE FOOTINGS AND RUN SUMMARIES 03390107 ! 343: 99999 CONTINUE 03400107 ! 344: WRITE (I02,90002) 03410107 ! 345: WRITE (I02,90006) 03420107 ! 346: WRITE (I02,90002) 03430107 ! 347: WRITE (I02,90002) 03440107 ! 348: WRITE (I02,90007) 03450107 ! 349: WRITE (I02,90002) 03460107 ! 350: WRITE (I02,90008) IVFAIL 03470107 ! 351: WRITE (I02,90009) IVPASS 03480107 ! 352: WRITE (I02,90010) IVDELE 03490107 ! 353: C 03500107 ! 354: C 03510107 ! 355: C TERMINATE ROUTINE EXECUTION 03520107 ! 356: STOP 03530107 ! 357: C 03540107 ! 358: C FORMAT STATEMENTS FOR PAGE HEADERS 03550107 ! 359: 90000 FORMAT (1H1) 03560107 ! 360: 90002 FORMAT (1H ) 03570107 ! 361: 90001 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03580107 ! 362: 90003 FORMAT (1H ,21X,11HVERSION 1.0) 03590107 ! 363: 90004 FORMAT (1H ,10X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 03600107 ! 364: 90005 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL, 5X,8HCOMPUTED,8X,7HCORRECT) 03610107 ! 365: 90006 FORMAT (1H ,5X,46H----------------------------------------------) 03620107 ! 366: 90011 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 03630107 ! 367: C 03640107 ! 368: C FORMAT STATEMENTS FOR RUN SUMMARIES 03650107 ! 369: 90008 FORMAT (1H ,15X,I5,19H ERRORS ENCOUNTERED) 03660107 ! 370: 90009 FORMAT (1H ,15X,I5,13H TESTS PASSED) 03670107 ! 371: 90010 FORMAT (1H ,15X,I5,14H TESTS DELETED) 03680107 ! 372: C 03690107 ! 373: C FORMAT STATEMENTS FOR TEST RESULTS 03700107 ! 374: 80001 FORMAT (1H ,4X,I5,7X,4HPASS) 03710107 ! 375: 80002 FORMAT (1H ,4X,I5,7X,4HFAIL) 03720107 ! 376: 80003 FORMAT (1H ,4X,I5,7X,7HDELETED) 03730107 ! 377: 80004 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 03740107 ! 378: 80005 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 03750107 ! 379: C 03760107 ! 380: 90007 FORMAT (1H ,20X,20HEND OF PROGRAM FM107) 03770107 ! 381: END 03780107
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.