![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM111.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 FM111.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***********************************************************************00010111 ! 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***** FORTRAN 77 00020111 ! 6: C***** FM111 IOFMTS - (353) 00030111 ! 7: C***** 00040111 ! 8: C***********************************************************************00050111 ! 9: C***** GENERAL PURPOSE SUBSET REFS00060111 ! 10: C***** TO TEST ADDITIONAL FEATURES OF READ AND WRITE 12.8 00070111 ! 11: C***** STATEMENTS, FORMATTED RECORDS AND FORMAT STATEMENTS 12.1.1 00080111 ! 12: C***** FOR INTEGER AND REAL DATA TYPES 00090111 ! 13: C***** TO TEST CHARACTER CONSTANTS AS FORMAT SPECIFIERS. 13.1.2 00100111 ! 14: C***** RESTRICTIONS OBSERVED 00110111 ! 15: C***** * H AND X DESCRIPTORS ARE NEVER REPEATED 13.2.1 00120111 ! 16: C***** * FOR W.D DESCRIPTORS, D IS ALWAYS SPECIFIED AND 00130111 ! 17: C***** W IS EQUAL TO OR GREATER THAN D 00140111 ! 18: C***** * FIELD WIDTH IS NEVER ZERO 00150111 ! 19: C***** * IF AN I/O LIST SPECIFIES AT LEAST ONE ITEM 13.3 00160111 ! 20: C***** AT LEAST ONE REPEATABLE EDIT DESCRIPTOR MUST EXIST 00170111 ! 21: C***** IN THE FORMAT SPECIFICATION 00180111 ! 22: C***** * ITEMS IN I/O LIST CORRESPOND TO EDIT DESCRIPTORS 00190111 ! 23: C***** * NEGATIVE OUTPUT VALUES ARE SIGNED 13.5.9 00200111 ! 24: C***** * AN H EDIT DESCRIPTOR IS NEVER USED ON INPUT 13.5.2 00210111 ! 25: C***** * IN THE INPUT FIELD, FOR THE IW EDIT DESCRIPTOR 13.5.9.1 00220111 ! 26: C***** THE CHARACTER STRING MUST BE AN OPTIONALLY SIGNED 00230111 ! 27: C***** INTEGER CONSTANT 00240111 ! 28: C***** GENERAL COMMENTS 00250111 ! 29: C***** PLUS SIGNS FOR INPUT FIELDS ARE USUALLY OMITTED 13.5.9 00260111 ! 30: C INPUT DATA TO THIS SEGMENT CONSISTS OF 8 CARD IMAGES IN COL. 1 - 39 00270111 ! 31: COL. 1-------------------------------------------46 00280111 ! 32: CARD 1 111 2 2 3 3. 3E-1 44 5 5 6 . 67 . 78 8. 8E-1 00290111 ! 33: CARD 2 9 9 00300111 ! 34: CARD 3 2345 1 34512 45123 51234 00310111 ! 35: CARD 4 2345 1 34512 45123 51234 00320111 ! 36: CARD 5 00330111 ! 37: CARD 6 246801357912345678901234 00340111 ! 38: CARD 7 .10203040506070809010E+0233.33 00350111 ! 39: CARD 8 1 2 3 4 5 6 00360111 ! 40: C***** 00370111 ! 41: C***** S P E C I F I C A T I O N S SEGMENT 353 00380111 ! 42: C***** 00390111 ! 43: INTEGER I2I(2,2), I3I(2,2,2), J3I(1,2,3) 00400111 ! 44: REAL A1S(5) 00410111 ! 45: CHARACTER*80 IDATA 00420111 ! 46: C***** 00430111 ! 47: C***** I N P U T - O U T P U T TAPE ASSIGNMENT STATEMENTS 00440111 ! 48: CBB** ********************** BBCCOMNT **********************************00450111 ! 49: C**** 00460111 ! 50: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00470111 ! 51: C**** VERSION 2.0 00480111 ! 52: C**** 00490111 ! 53: C**** 00500111 ! 54: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00510111 ! 55: C**** GENERAL SERVICES ADMINISTRATION 00520111 ! 56: C**** FEDERAL SOFTWARE TESTING CENTER 00530111 ! 57: C**** 5203 LEESBURG PIKE, SUITE 1100 00540111 ! 58: C**** FALLS CHURCH, VA. 22041 00550111 ! 59: C**** 00560111 ! 60: C**** (703) 756-6153 00570111 ! 61: C**** 00580111 ! 62: CBE** ********************** BBCCOMNT **********************************00590111 ! 63: CBB** ********************** BBCINITA **********************************00600111 ! 64: C**** SPECIFICATION STATEMENTS 00610111 ! 65: C**** 00620111 ! 66: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00630111 ! 67: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00640111 ! 68: CBE** ********************** BBCINITA **********************************00650111 ! 69: CBB** ********************** BBCINITB **********************************00660111 ! 70: C**** INITIALIZE SECTION 00670111 ! 71: DATA ZVERS, ZVERSD, ZDATE 00680111 ! 72: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00690111 ! 73: DATA ZCOMPL, ZNAME, ZTAPE 00700111 ! 74: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00710111 ! 75: DATA ZPROJ, ZTAPED, ZPROG 00720111 ! 76: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00730111 ! 77: DATA REMRKS /' '/ 00740111 ! 78: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00750111 ! 79: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00760111 ! 80: C**** 00770111 ! 81: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00780111 ! 82: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00790111 ! 83: CZ03 ZPROG = 'PROGRAM NAME' 00800111 ! 84: ZDATE = '07-Nov-85 ' *RP ! 85: ZCOMPL = 'CCI 5.2 ' *RP ! 86: ZPROJ = 'TC-85- -410' *RP ! 87: ZNAME = ' ' *RP ! 88: ZTAPE = ' ' *RP ! 89: ZTAPED = '850703 ' *RP ! 90: C 00870111 ! 91: IVPASS = 0 00880111 ! 92: IVFAIL = 0 00890111 ! 93: IVDELE = 0 00900111 ! 94: IVINSP = 0 00910111 ! 95: IVTOTL = 0 00920111 ! 96: IVTOTN = 0 00930111 ! 97: ICZERO = 0 00940111 ! 98: C 00950111 ! 99: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00960111 ! 100: I01 = 05 00970111 ! 101: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00980111 ! 102: I02 = 06 00990111 ! 103: C 01000111 ! 104: I01 = 5 01010111 ! 105: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 01020111 ! 106: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 01030111 ! 107: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 01040111 ! 108: C 01050111 ! 109: I02 = 6 01060111 ! 110: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 01070111 ! 111: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 01080111 ! 112: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 01090111 ! 113: C 01100111 ! 114: CBE** ********************** BBCINITB **********************************01110111 ! 115: IRVI = I01 01120111 ! 116: NUVI = I02 01130111 ! 117: C***** TOTAL NUMBER OF EXPECTED TEST 01140111 ! 118: IVTOTL =4 01150111 ! 119: ZPROG='FM111' 01160111 ! 120: CBB** ********************** BBCHED0A **********************************01170111 ! 121: C**** 01180111 ! 122: C**** WRITE REPORT TITLE 01190111 ! 123: C**** 01200111 ! 124: WRITE (I02, 90002) 01210111 ! 125: WRITE (I02, 90006) 01220111 ! 126: WRITE (I02, 90007) 01230111 ! 127: WRITE (I02, 90008) ZVERS, ZVERSD 01240111 ! 128: WRITE (I02, 90009) ZPROG, ZPROG 01250111 ! 129: WRITE (I02, 90010) ZDATE, ZCOMPL 01260111 ! 130: CBE** ********************** BBCHED0A **********************************01270111 ! 131: C***** HEADER FORMAT STATEMENT 01280111 ! 132: WRITE(NUVI, 35300) 01290111 ! 133: 35300 FORMAT(/1X, 35HIOFMTS - (353) ADDITIONAL FORMATTED/16X, 01300111 ! 134: 1 14HDATA TRANSFERS,//2X, 01310111 ! 135: 2 32HSUBSET REFS 12.9.5.2 13.1 13.5) 01320111 ! 136: CBB** ********************** BBCHED0B **********************************01330111 ! 137: C**** WRITE DETAIL REPORT HEADERS 01340111 ! 138: C**** 01350111 ! 139: WRITE (I02,90004) 01360111 ! 140: WRITE (I02,90004) 01370111 ! 141: WRITE (I02,90013) 01380111 ! 142: WRITE (I02,90014) 01390111 ! 143: WRITE (I02,90015) IVTOTL 01400111 ! 144: CBE** ********************** BBCHED0B **********************************01410111 ! 145: C***** 01420111 ! 146: C******************************************************* 01430111 ! 147: C**** TO DELETE A TEST USED CODE SHOWN IN TEST 1 * 01440111 ! 148: C**** REPLACE THE DELETE COMMENT WITH DELETE CODE * 01450111 ! 149: C******************************************************* 01460111 ! 150: CT001* TEST 1 01470111 ! 151: C***** TEST VARIOUS COMBINATION OF BZ AND BN EDIT 13.5.8 01480111 ! 152: C***** DESCRIPTORS, INCLUDING USING EACH AS A LEADING 13.5.9(1)01490111 ! 153: C***** DESCRIPTOR, AND PRECEDING IW, EW.D, AND FW.D DESCRIPTORS. 01500111 ! 154: C***** BN AND BZ HAVE NO EFFECT ON OUTPUT. 13.5.8 01510111 ! 155: C***** CARDS 1-2 01520111 ! 156: C***** 01530111 ! 157: IVTNUM = 1 01540111 ! 158: C**** TO DELETE TEST 1 - CARDS 1 THRU 5 MUST BE BYPASS 01550111 ! 159: C**** USE THE FOLLOWING CODE: 01560111 ! 160: C**** IVDELE=IVDELE+1 01570111 ! 161: C**** WRITE (NUVI,80000) IVTNUM 01580111 ! 162: C**** DO 0031 IPASS=1,5 01590111 ! 163: C0011 FORMAT (A80) 01600111 ! 164: C**** READ (IRVI,0011) IDATA 01610111 ! 165: C0031 CONTINUE 01620111 ! 166: C**** COMMENT OUT OUT FOLLOWING LINES UNTIL NEXT TEST 01630111 ! 167: C************************* 01640111 ! 168: IVINSP=IVINSP+1 01650111 ! 169: WRITE (NUVI,80004) IVTNUM 01660111 ! 170: READ(IRVI, 35301)I2I(1,2), IVI, A1S(3), JVI, KVI, A1S(2), AVS, 01670111 ! 171: 1 A1S(1), I2I(1,1) 01680111 ! 172: 35301 FORMAT(BZ,(2I4, E10.1, BN, 2I4, F5.2, BZ, F5.2, BN, E10.1)) 01690111 ! 173: WRITE(NUVI, 35302)I2I(1,2), IVI, A1S(3), JVI, KVI, A1S(2), AVS, 01700111 ! 174: 1 A1S(1), I2I(1,1) 01710111 ! 175: C****************************TEST 1 ******************** 01720111 ! 176: 35302 FORMAT (1H ,10X,11HCOMPUTED: , 2I5, 1X, E10.5, BN, 2I5, F6.1, 01730111 ! 177: 1 BZ, F6.2, BN, 1X, E8.3, I5) 01740111 ! 178: 70010 FORMAT (1H ,10X,10HCORRECT: , 01750111 ! 179: 1 44H 1110 2020 .30303E-07 44 55 6.6 70.07, 01760111 ! 180: 2 14H .888E+01 99) 01770111 ! 181: WRITE (NUVI,70010) 01780111 ! 182: C***** CARDS 3-4 01790111 ! 183: READ(IRVI, 35303) I3I(1,2,1), A1S(3), AVS, IVI, I2I(1,1), 01800111 ! 184: 1 JVI, BVS, A1S(2), (I3I(KVI,1,1), KVI=1,2) 01810111 ! 185: 35303 FORMAT(BZ, (I5, F5.0, BN, F5.2, 2I5)) 01820111 ! 186: C***************************************************************** 01830111 ! 187: WRITE(NUVI, 35304) I3I(1,2,1), A1S(3), AVS, IVI, I2I(1,1), 01840111 ! 188: 1 JVI, BVS, A1S(2), I3I(1,1,1), I3I(2,1,1) 01850111 ! 189: 35304 FORMAT ( /BN, 11X,11HCOMPUTED: , I5, F7.0, BZ, 1X, F5.2, 01860111 ! 190: 1 2(1X,I4),I5, F7.0, BZ, 1X, F5.2, 2(1X, I4)) 01870111 ! 191: 70011 FORMAT (1H ,10X,10HCORRECT: , 01880111 ! 192: 1 29H 23450 10345. 12.45 1235 1234, 01890111 ! 193: 2 28H 2345 1345. 12.45 1235 1234) 01900111 ! 194: WRITE (NUVI,70011) 01910111 ! 195: C**** CARD 5 01920111 ! 196: CVS = -0.0044 01930111 ! 197: READ(IRVI, 35305) IVI, AVS, A1S(2), JVI, BVS 01940111 ! 198: 35305 FORMAT(BZ, I5, F5.1, BN, F5.1, I5, BZ, F5.1, I5) 01950111 ! 199: C************************************************************** 01960111 ! 200: WRITE(NUVI, 35306) IVI, AVS, A1S(2), JVI, BVS, CVS, CVS 01970111 ! 201: 35306 FORMAT (/11X,11HCOMPUTED: , 01980111 ! 202: 1 I5, 2(3X, F2.1), I5, 3X, E5.1E1, 3X, F2.1, 3X, E6.1E1) 01990111 ! 203: 70012 FORMAT (1H ,10X,10HCORRECT: , 02000111 ! 204: 1 43H 0 .0 .0 0 .0E+0 .0 -.4E-2/) 02010*TI ! 205: WRITE (NUVI,70012) 02020111 ! 206: C***** 02030111 ! 207: CT002* TEST 2 02040111 ! 208: C***** TEST CASES WHERE THE NUMBER OF CHARACTERS TO BE 13.5.9(3) 02050111 ! 209: C***** OUTPUT EXCEEDS THE SPECIFIED OUTPUT FIELD WIDTH, 02060111 ! 210: C***** OR AN EXPONENT EXCEEDS ITS SPECIFIED LENGTH. 02070111 ! 211: C*************************************** 02080111 ! 212: IVTNUM = 2 02090111 ! 213: C***** SEE NOTES TEST 1 TO DELETE TEST (NO READS REQUIRED) 02100111 ! 214: IVINSP=IVINSP+1 02110111 ! 215: WRITE (NUVI,80004) IVTNUM 02120111 ! 216: AVS = 0.12345E+10 02130111 ! 217: C********************************************************* 02140111 ! 218: WRITE(NUVI, 35307) AVS, AVS, AVS, AVS, AVS 02150111 ! 219: 35307 FORMAT (1H ,10X,10HCOMPUTED: , 02160111 ! 220: 1 E9.5E1, 1X, E10.5E2, 1X, E11.5E3,1X,E11.5E4,1X,E10.5) 02170111 ! 221: 70020 FORMAT (1H ,10X,10HCORRECT: , 02180111 ! 222: 1 44H********* .12345E+10 .12345E+010 ***********, 02190111 ! 223: 2 11H .12345E+10/) 02200111 ! 224: WRITE (NUVI,70020) 02210111 ! 225: CT003* TEST 3 02220111 ! 226: C***** 02230111 ! 227: C***** - TEST THAT FW.D AND EW.D MAY HAVE MORE DIGITS 13.5.9(2) 02240111 ! 228: C***** ON INPUT THAN THE PROCESSOR CAN USE. 02250111 ! 229: C***** - READ IN AN ARRAY USING AN IMPLIED DO-LOOP, AND 12.8.2.3 02260111 ! 230: C***** AND TEST VALUE OF THE IMPLIED DO-PARAMETER. 11.10 02270111 ! 231: C***** - USE AS A FORMAT AN INTEGER VARIABLE WHOSE VALUE 10.3 02280111 ! 232: C***** IS ASSIGNED USING AN ASSIGNMENT STATEMENT. 12.4(2) 02290111 ! 233: C***** - TEST THAT ON INPUT, THE X-EDIT DESCRIPTOR MAY 13.5.3 02300111 ! 234: C***** SPECIFY A POSITION BEYOND COLUMN 80 IF THERE ARE 02310111 ! 235: C***** NO MORE ITEMS IN THE I/O LIST. 02320111 ! 236: C***** 02330111 ! 237: IVTNUM = 3 02340111 ! 238: C***** CARDS 6-7 02350111 ! 239: C***** SEE NOTES TEST 1 TO DELETE TEST 02360111 ! 240: C***** CARDS 6 & 7 MUST BE BYPASSED 02370111 ! 241: IVINSP=IVINSP+1 02380111 ! 242: WRITE (NUVI,80004) IVTNUM 02390111 ! 243: ASSIGN 35308 TO JVI 02400111 ! 244: 35308 FORMAT(2F5.2, F14.0 / E25.20, F5.2, 51X) 02410111 ! 245: READ(IRVI, JVI) (A1S(IVI), IVI=1,5) 02420111 ! 246: C************************************************************* 02430111 ! 247: ASSIGN 35309 TO JVI 02440111 ! 248: 35309 FORMAT (11X,10HCOMPUTED: ,I5,1X,F5.2) 02450111 ! 249: 70030 FORMAT (1H ,10X,10HCORRECT: , 02460111 ! 250: 1 11H 6 33.33/) 02470111 ! 251: WRITE(NUVI, JVI) IVI, A1S(5) 02480111 ! 252: WRITE (NUVI,70030) 02490111 ! 253: C***** 02500111 ! 254: CT004* TEST 4 02510111 ! 255: C***** - TEST NESTING OF 3 LEVELS OF PARENTHESES WITHIN A 02520111 ! 256: C***** FORMAT STATEMENT. 02530111 ! 257: C***** - TEST DIFFERENT FORMS OF CHARACTER CONSTANTS USED 12.4(2)02540111 ! 258: C***** AS A FORMAT SPECIFIER, INCLUDING BLANKS BEFORE 13.1.2 02550111 ! 259: C***** THE FIRST PARENTHESIS, AND CHARCTERS AFTER THE 02560111 ! 260: C***** LAST PARENTHESIS. 02570111 ! 261: C***** - 2 CONSECUTIVE APOSTROPHES IN A H-EDIT DESCRIPTOR 13.5.2 02580111 ! 262: C***** CARD 8 02590111 ! 263: IVTNUM = 4 02600111 ! 264: C***** SEE NOTES TEST 1 TO DELETE TEST 02610111 ! 265: C***** NO READS REQUIRED 02620111 ! 266: IVINSP=IVINSP+1 02630111 ! 267: WRITE (NUVI,80004) IVTNUM 02640111 ! 268: READ(IRVI, ' (3(1(2(I5))))') 02650111 ! 269: 1 (((J3I(IVI,JVI,KVI),IVI=1,1),JVI=1,2),KVI=1,3) 02660111 ! 270: C*************************************************** 02670111 ! 271: WRITE(NUVI, 02680111 ! 272: 1 '(/11X, 10HCOMPUTED: ,4(2X, I3) )JUNK') 02690111 ! 273: 2 (J3I(1,2,IVI),IVI=1,3) 02700111 ! 274: WRITE (NUVI, 02710111 ! 275: 1 '(11X,10HCORRECT: , 15H 2 4 6) ') 02720111 ! 276: WRITE (NUVI, 02730111 ! 277: 1 '(/11X,9HCOMPUTED:,21H ''THAT''S ALL FOR NOW'')') 02740111 ! 278: 70040 FORMAT (11X,10HCORRECT: , 02750111 ! 279: 1 20H'THAT'S ALL FOR NOW') 02760111 ! 280: WRITE (NUVI,70040) 02770111 ! 281: C***** 02780111 ! 282: 0041 CONTINUE 02790111 ! 283: C***** END OF TEST SEGMENT 353 02800111 ! 284: CBB** ********************** BBCSUM0 **********************************02810111 ! 285: C**** WRITE OUT TEST SUMMARY 02820111 ! 286: C**** 02830111 ! 287: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02840111 ! 288: WRITE (I02, 90004) 02850111 ! 289: WRITE (I02, 90014) 02860111 ! 290: WRITE (I02, 90004) 02870111 ! 291: WRITE (I02, 90020) IVPASS 02880111 ! 292: WRITE (I02, 90022) IVFAIL 02890111 ! 293: WRITE (I02, 90024) IVDELE 02900111 ! 294: WRITE (I02, 90026) IVINSP 02910111 ! 295: WRITE (I02, 90028) IVTOTN, IVTOTL 02920111 ! 296: CBE** ********************** BBCSUM0 **********************************02930111 ! 297: CBB** ********************** BBCFOOT0 **********************************02940111 ! 298: C**** WRITE OUT REPORT FOOTINGS 02950111 ! 299: C**** 02960111 ! 300: WRITE (I02,90016) ZPROG, ZPROG 02970111 ! 301: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02980111 ! 302: WRITE (I02,90019) 02990111 ! 303: CBE** ********************** BBCFOOT0 **********************************03000111 ! 304: CBB** ********************** BBCFMT0A **********************************03010111 ! 305: C**** FORMATS FOR TEST DETAIL LINES 03020111 ! 306: C**** 03030111 ! 307: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 03040111 ! 308: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 03050111 ! 309: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 03060111 ! 310: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 03070111 ! 311: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 03080111 ! 312: 1I6,/,1H ,15X,10HCORRECT= ,I6) 03090111 ! 313: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03100111 ! 314: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 03110111 ! 315: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03120111 ! 316: 1A21,/,1H ,16X,10HCORRECT= ,A21) 03130111 ! 317: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 03140111 ! 318: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 03150111 ! 319: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 03160111 ! 320: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 03170111 ! 321: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 03180111 ! 322: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 03190111 ! 323: 80050 FORMAT (1H ,48X,A31) 03200111 ! 324: CBE** ********************** BBCFMT0A **********************************03210111 ! 325: CBB** ********************** BBCFMT0B **********************************03220111 ! 326: C**** FORMAT STATEMENTS FOR PAGE HEADERS 03230111 ! 327: C**** 03240111 ! 328: 90002 FORMAT (1H1) 03250111 ! 329: 90004 FORMAT (1H ) 03260111 ! 330: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 03270111 ! 331: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03280111 ! 332: 90008 FORMAT (1H ,21X,A13,A17) 03290111 ! 333: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 03300111 ! 334: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 03310111 ! 335: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 03320111 ! 336: 1 7X,7HREMARKS,24X) 03330111 ! 337: 90014 FORMAT (1H ,46H----------------------------------------------, 03340111 ! 338: 1 33H---------------------------------) 03350111 ! 339: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 03360111 ! 340: C**** 03370111 ! 341: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03380111 ! 342: C**** 03390111 ! 343: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 03400111 ! 344: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 03410111 ! 345: 1 A13) 03420111 ! 346: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 03430111 ! 347: C**** 03440111 ! 348: C**** FORMAT STATEMENTS FOR RUN SUMMARY 03450111 ! 349: C**** 03460111 ! 350: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03470111 ! 351: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03480111 ! 352: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03490111 ! 353: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 03500111 ! 354: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 03510111 ! 355: CBE** ********************** BBCFMT0B **********************************03520111 ! 356: STOP 03530111 ! 357: END 03540111
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.