![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM806.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 FM806.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***********************************************************************00010806 ! 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 00020806 ! 6: C***** FM806 YDMAX1 - (166) 00030806 ! 7: C***** 00040806 ! 8: C***********************************************************************00050806 ! 9: C***** GENERAL PURPOSE ANS REF 00060806 ! 10: C***** TEST OF INTRINSIC FUNCTION -- 15.3 00070806 ! 11: C***** DMAX1 -- CHOOSING LARGEST VALUE (TABLE 5)00080806 ! 12: C***** 00090806 ! 13: CBB** ********************** BBCCOMNT **********************************00100806 ! 14: C**** 00110806 ! 15: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120806 ! 16: C**** VERSION 2.0 00130806 ! 17: C**** 00140806 ! 18: C**** 00150806 ! 19: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160806 ! 20: C**** GENERAL SERVICES ADMINISTRATION 00170806 ! 21: C**** FEDERAL SOFTWARE TESTING CENTER 00180806 ! 22: C**** 5203 LEESBURG PIKE, SUITE 1100 00190806 ! 23: C**** FALLS CHURCH, VA. 22041 00200806 ! 24: C**** 00210806 ! 25: C**** (703) 756-6153 00220806 ! 26: C**** 00230806 ! 27: CBE** ********************** BBCCOMNT **********************************00240806 ! 28: C***** S P E C I F I C A T I O N S SEGMENT 166 00250806 ! 29: DOUBLE PRECISION DTAVD, DTBVD, DTCVD, DTDVD, DTEVD, DVCORR 00260806 ! 30: C***** 00270806 ! 31: CBB** ********************** BBCINITA **********************************00280806 ! 32: C**** SPECIFICATION STATEMENTS 00290806 ! 33: C**** 00300806 ! 34: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00310806 ! 35: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00320806 ! 36: CBE** ********************** BBCINITA **********************************00330806 ! 37: CBB** ********************** BBCINITB **********************************00340806 ! 38: C**** INITIALIZE SECTION 00350806 ! 39: DATA ZVERS, ZVERSD, ZDATE 00360806 ! 40: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00370806 ! 41: DATA ZCOMPL, ZNAME, ZTAPE 00380806 ! 42: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00390806 ! 43: DATA ZPROJ, ZTAPED, ZPROG 00400806 ! 44: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00410806 ! 45: DATA REMRKS /' '/ 00420806 ! 46: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00430806 ! 47: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00440806 ! 48: C**** 00450806 ! 49: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00460806 ! 50: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00470806 ! 51: CZ03 ZPROG = 'PROGRAM NAME' 00480806 ! 52: ZDATE = '07-Nov-85 ' *RP ! 53: ZCOMPL = 'CCI 5.2 ' *RP ! 54: ZPROJ = 'TC-85- -410' *RP ! 55: ZNAME = ' ' *RP ! 56: ZTAPE = ' ' *RP ! 57: ZTAPED = '850703 ' *RP ! 58: C 00550806 ! 59: IVPASS = 0 00560806 ! 60: IVFAIL = 0 00570806 ! 61: IVDELE = 0 00580806 ! 62: IVINSP = 0 00590806 ! 63: IVTOTL = 0 00600806 ! 64: IVTOTN = 0 00610806 ! 65: ICZERO = 0 00620806 ! 66: C 00630806 ! 67: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00640806 ! 68: I01 = 05 00650806 ! 69: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00660806 ! 70: I02 = 06 00670806 ! 71: C 00680806 ! 72: I01 = 5 00690806 ! 73: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00700806 ! 74: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00710806 ! 75: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00720806 ! 76: C 00730806 ! 77: I02 = 6 00740806 ! 78: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00750806 ! 79: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00760806 ! 80: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00770806 ! 81: C 00780806 ! 82: CBE** ********************** BBCINITB **********************************00790806 ! 83: NUVI = I02 00800806 ! 84: IVTOTL = 12 00810806 ! 85: ZPROG = 'FM806' 00820806 ! 86: CBB** ********************** BBCHED0A **********************************00830806 ! 87: C**** 00840806 ! 88: C**** WRITE REPORT TITLE 00850806 ! 89: C**** 00860806 ! 90: WRITE (I02, 90002) 00870806 ! 91: WRITE (I02, 90006) 00880806 ! 92: WRITE (I02, 90007) 00890806 ! 93: WRITE (I02, 90008) ZVERS, ZVERSD 00900806 ! 94: WRITE (I02, 90009) ZPROG, ZPROG 00910806 ! 95: WRITE (I02, 90010) ZDATE, ZCOMPL 00920806 ! 96: CBE** ********************** BBCHED0A **********************************00930806 ! 97: C***** 00940806 ! 98: WRITE (NUVI,16601) 00950806 ! 99: 16601 FORMAT (1H , // 1X,36HYDMAX1 - (166) INTRINSIC FUNCTION-- //17X,00960806 ! 100: 1 31HDMAX1 (CHOOSING LARGEST VALUE)//2X, 00970806 ! 101: 2 15HANS REF. - 15.3) 00980806 ! 102: CBB** ********************** BBCHED0B **********************************00990806 ! 103: C**** WRITE DETAIL REPORT HEADERS 01000806 ! 104: C**** 01010806 ! 105: WRITE (I02,90004) 01020806 ! 106: WRITE (I02,90004) 01030806 ! 107: WRITE (I02,90013) 01040806 ! 108: WRITE (I02,90014) 01050806 ! 109: WRITE (I02,90015) IVTOTL 01060806 ! 110: CBE** ********************** BBCHED0B **********************************01070806 ! 111: C***** 01080806 ! 112: CT001* TEST 1 BOTH ZEROES 01090806 ! 113: IVTNUM = 1 01100806 ! 114: DTBVD = 0.0D0 01110806 ! 115: DTDVD = 0.0D0 01120806 ! 116: DTAVD = DMAX1(DTBVD, DTDVD) 01130806 ! 117: IF (DTAVD + 5.0D-10) 20010, 10010, 40010 01140806 ! 118: 40010 IF (DTAVD - 5.0D-10) 10010, 10010, 20010 01150806 ! 119: 10010 IVPASS = IVPASS + 1 01160806 ! 120: WRITE (NUVI, 80002) IVTNUM 01170806 ! 121: GO TO 0011 01180806 ! 122: 20010 IVFAIL = IVFAIL + 1 01190806 ! 123: DVCORR = 0.0D0 01200806 ! 124: WRITE (NUVI, 80031) IVTNUM, DTAVD, DVCORR 01210806 ! 125: 0011 CONTINUE 01220806 ! 126: CT002* TEST 2 ONE NON-ZERO, ONE ZERO 01230806 ! 127: IVTNUM = 2 01240806 ! 128: DTBVD = 5.625D0 01250806 ! 129: DTDVD = 0.0D0 01260806 ! 130: DTAVD = DMAX1(DTBVD, DTDVD) 01270806 ! 131: IF (DTAVD - 5.624999997D0) 20020, 10020, 40020 01280806 ! 132: 40020 IF (DTAVD - 5.625000003D0) 10020, 10020, 20020 01290806 ! 133: 10020 IVPASS = IVPASS + 1 01300806 ! 134: WRITE (NUVI, 80002) IVTNUM 01310806 ! 135: GO TO 0021 01320806 ! 136: 20020 IVFAIL = IVFAIL + 1 01330806 ! 137: DVCORR = 5.625D0 01340806 ! 138: WRITE (NUVI, 80031) IVTNUM, DTAVD, DVCORR 01350806 ! 139: 0021 CONTINUE 01360806 ! 140: CT003* TEST 3 BOTH VALUES EQUAL 01370806 ! 141: IVTNUM = 3 01380806 ! 142: DTBVD = 6.5D0 01390806 ! 143: DTDVD = 6.5D0 01400806 ! 144: DTAVD = DMAX1(DTBVD, DTDVD) 01410806 ! 145: IF (DTAVD - 6.499999996D0) 20030, 10030, 40030 01420806 ! 146: 40030 IF (DTAVD - 6.500000004D0) 10030, 10030, 20030 01430806 ! 147: 10030 IVPASS = IVPASS + 1 01440806 ! 148: WRITE (NUVI, 80002) IVTNUM 01450806 ! 149: GO TO 0031 01460806 ! 150: 20030 IVFAIL = IVFAIL + 1 01470806 ! 151: DVCORR = 6.5D0 01480806 ! 152: WRITE (NUVI, 80031) IVTNUM, DTAVD, DVCORR 01490806 ! 153: 0031 CONTINUE 01500806 ! 154: CT004* TEST 4 VALUES NOT EQUAL 01510806 ! 155: IVTNUM = 4 01520806 ! 156: DTBVD = 7.125D0 01530806 ! 157: DTDVD = 5.125D0 01540806 ! 158: DTAVD = DMAX1(DTBVD, DTDVD) 01550806 ! 159: IF (DTAVD - 7.124999996D0) 20040, 10040, 40040 01560806 ! 160: 40040 IF (DTAVD - 7.125000004D0) 10040, 10040, 20040 01570806 ! 161: 10040 IVPASS = IVPASS + 1 01580806 ! 162: WRITE (NUVI, 80002) IVTNUM 01590806 ! 163: GO TO 0041 01600806 ! 164: 20040 IVFAIL = IVFAIL + 1 01610806 ! 165: DVCORR = 7.125D0 01620806 ! 166: WRITE (NUVI, 80031) IVTNUM, DTAVD, DVCORR 01630806 ! 167: 0041 CONTINUE 01640806 ! 168: CT005* TEST 5 ONE VALUE ZERO, ONE NEGATIVE 01650806 ! 169: IVTNUM = 5 01660806 ! 170: DTBVD = -5.625D0 01670806 ! 171: DTDVD = 0.0D0 01680806 ! 172: DTAVD = DMAX1(DTBVD, DTDVD) 01690806 ! 173: IF (DTAVD + 5.0D-10) 20050, 10050, 40050 01700806 ! 174: 40050 IF (DTAVD - 5.0D-10) 10050, 10050, 20050 01710806 ! 175: 10050 IVPASS = IVPASS + 1 01720806 ! 176: WRITE (NUVI, 80002) IVTNUM 01730806 ! 177: GO TO 0051 01740806 ! 178: 20050 IVFAIL = IVFAIL + 1 01750806 ! 179: DVCORR = 0.0D0 01760806 ! 180: WRITE (NUVI, 80031) IVTNUM, DTAVD, DVCORR 01770806 ! 181: 0051 CONTINUE 01780806 ! 182: CT006* TEST 6 BOTH VALUES EQUAL, BOTH NEGATIVE 01790806 ! 183: IVTNUM = 6 01800806 ! 184: DTBVD = -6.5D0 01810806 ! 185: DTDVD = -6.5D0 01820806 ! 186: DTAVD = DMAX1(DTBVD, DTDVD) 01830806 ! 187: IF (DTAVD + 6.500000004D0) 20060, 10060, 40060 01840806 ! 188: 40060 IF (DTAVD + 6.499999996D0) 10060, 10060, 20060 01850806 ! 189: 10060 IVPASS = IVPASS + 1 01860806 ! 190: WRITE (NUVI, 80002) IVTNUM 01870806 ! 191: GO TO 0061 01880806 ! 192: 20060 IVFAIL = IVFAIL + 1 01890806 ! 193: DVCORR = -6.5D0 01900806 ! 194: WRITE (NUVI, 80031) IVTNUM, DTAVD, DVCORR 01910806 ! 195: 0061 CONTINUE 01920806 ! 196: CT007* TEST 7 VALUES NOT EQUAL, BOTH NEGATIVE 01930806 ! 197: IVTNUM = 7 01940806 ! 198: DTBVD = -7.125D0 01950806 ! 199: DTDVD = -5.125D0 01960806 ! 200: DTAVD = DMAX1(DTBVD, DTDVD) 01970806 ! 201: IF (DTAVD + 5.125000003D0) 20070, 10070, 40070 01980806 ! 202: 40070 IF (DTAVD + 5.124999997D0) 10070, 10070, 20070 01990806 ! 203: 10070 IVPASS = IVPASS + 1 02000806 ! 204: WRITE (NUVI, 80002) IVTNUM 02010806 ! 205: GO TO 0071 02020806 ! 206: 20070 IVFAIL = IVFAIL + 1 02030806 ! 207: DVCORR = -5.125D0 02040806 ! 208: WRITE (NUVI, 80031) IVTNUM, DTAVD, DVCORR 02050806 ! 209: 0071 CONTINUE 02060806 ! 210: CT008* TEST 8 1ST VALUE NON-ZERO, 2ND ZERO PRECEDED BY MINUS SIGN 02070806 ! 211: IVTNUM = 8 02080806 ! 212: DTDVD = 5.625D0 02090806 ! 213: DTEVD = 0.0D0 02100806 ! 214: DTAVD = DMAX1(DTDVD, -DTEVD) 02110806 ! 215: IF (DTAVD - 5.624999997D0) 20080, 10080, 40080 02120806 ! 216: 40080 IF (DTAVD - 5.625000003D0) 10080, 10080, 20080 02130806 ! 217: 10080 IVPASS = IVPASS + 1 02140806 ! 218: WRITE (NUVI, 80002) IVTNUM 02150806 ! 219: GO TO 0081 02160806 ! 220: 20080 IVFAIL = IVFAIL + 1 02170806 ! 221: DVCORR = 5.625D0 02180806 ! 222: WRITE (NUVI, 80031) IVTNUM, DTAVD, DVCORR 02190806 ! 223: 0081 CONTINUE 02200806 ! 224: CT009* TEST 9 ARITHMETIC EXPRESSIONS PRESENTED TO FUNCTION 02210806 ! 225: IVTNUM = 9 02220806 ! 226: DTDVD = 3.5D0 02230806 ! 227: DTEVD = 4.0D0 02240806 ! 228: DTAVD = DMAX1(DTDVD + DTEVD, -DTEVD - DTDVD) 02250806 ! 229: IF (DTAVD - 7.499999996D0) 20090, 10090, 40090 02260806 ! 230: 40090 IF (DTAVD - 7.500000004D0) 10090, 10090, 20090 02270806 ! 231: 10090 IVPASS = IVPASS + 1 02280806 ! 232: WRITE (NUVI, 80002) IVTNUM 02290806 ! 233: GO TO 0091 02300806 ! 234: 20090 IVFAIL = IVFAIL + 1 02310806 ! 235: DVCORR = 7.5D0 02320806 ! 236: WRITE (NUVI, 80031) IVTNUM, DTAVD, DVCORR 02330806 ! 237: 0091 CONTINUE 02340806 ! 238: CT010* TEST 10 3 ARGUMENTS 02350806 ! 239: IVTNUM = 10 02360806 ! 240: DTBVD = 0.0D0 02370806 ! 241: DTCVD = -1.99D0 02380806 ! 242: DTAVD = DMAX1(DTCVD, DTBVD, -DTCVD) 02390806 ! 243: IF (DTAVD - 1.98999999D0) 20100, 10100, 40100 02400806 ! 244: 40100 IF (DTAVD - 1.99000001D0) 10100, 10100, 20100 02410806 ! 245: 10100 IVPASS = IVPASS + 1 02420806 ! 246: WRITE (NUVI, 80002) IVTNUM 02430806 ! 247: GO TO 0101 02440806 ! 248: 20100 IVFAIL = IVFAIL + 1 02450806 ! 249: DVCORR = 1.99D0 02460806 ! 250: WRITE (NUVI, 80031) IVTNUM, DTAVD, DVCORR 02470806 ! 251: 0101 CONTINUE 02480806 ! 252: CT011* TEST 11 4 ARGUMENTS 02490806 ! 253: IVTNUM = 11 02500806 ! 254: C***** ARGUMENTS OF HIGH AND LOW MAGNITUDES 02510806 ! 255: DTAVD = 1.0D-34 02520806 ! 256: DTBVD = -1.0D-34 02530806 ! 257: DTCVD = 1.0D+34 02540806 ! 258: DTAVD = DMAX1(DTAVD, DTBVD, DTCVD, -DTCVD) 02550806 ! 259: IF (DTAVD - 0.9999999995D34) 20110, 10110, 40110 02560806 ! 260: 40110 IF (DTAVD - 1.000000001D34) 10110, 10110, 20110 02570806 ! 261: 10110 IVPASS = IVPASS + 1 02580806 ! 262: WRITE (NUVI, 80002) IVTNUM 02590806 ! 263: GO TO 0111 02600806 ! 264: 20110 IVFAIL = IVFAIL + 1 02610806 ! 265: DVCORR = 1.0D+34 02620806 ! 266: WRITE (NUVI, 80031) IVTNUM, DTAVD, DVCORR 02630806 ! 267: 0111 CONTINUE 02640806 ! 268: CT012* TEST 12 5 ARGUMENTS 02650806 ! 269: IVTNUM = 12 02660806 ! 270: DTDVD = 3.5D0 02670806 ! 271: DTEVD = 4.5D0 02680806 ! 272: DTAVD = DMAX1(DTDVD, -DTDVD, -DTEVD, +DTDVD, DTEVD) 02690806 ! 273: IF (DTAVD - 4.499999997D0) 20120, 10120, 40120 02700806 ! 274: 40120 IF (DTAVD - 4.500000003D0) 10120, 10120, 20120 02710806 ! 275: 10120 IVPASS = IVPASS + 1 02720806 ! 276: WRITE (NUVI, 80002) IVTNUM 02730806 ! 277: GO TO 0121 02740806 ! 278: 20120 IVFAIL = IVFAIL + 1 02750806 ! 279: DVCORR = 4.5D0 02760806 ! 280: WRITE (NUVI, 80031) IVTNUM, DTAVD, DVCORR 02770806 ! 281: 0121 CONTINUE 02780806 ! 282: C***** 02790806 ! 283: CBB** ********************** BBCSUM0 **********************************02800806 ! 284: C**** WRITE OUT TEST SUMMARY 02810806 ! 285: C**** 02820806 ! 286: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02830806 ! 287: WRITE (I02, 90004) 02840806 ! 288: WRITE (I02, 90014) 02850806 ! 289: WRITE (I02, 90004) 02860806 ! 290: WRITE (I02, 90020) IVPASS 02870806 ! 291: WRITE (I02, 90022) IVFAIL 02880806 ! 292: WRITE (I02, 90024) IVDELE 02890806 ! 293: WRITE (I02, 90026) IVINSP 02900806 ! 294: WRITE (I02, 90028) IVTOTN, IVTOTL 02910806 ! 295: CBE** ********************** BBCSUM0 **********************************02920806 ! 296: CBB** ********************** BBCFOOT0 **********************************02930806 ! 297: C**** WRITE OUT REPORT FOOTINGS 02940806 ! 298: C**** 02950806 ! 299: WRITE (I02,90016) ZPROG, ZPROG 02960806 ! 300: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02970806 ! 301: WRITE (I02,90019) 02980806 ! 302: CBE** ********************** BBCFOOT0 **********************************02990806 ! 303: CBB** ********************** BBCFMT0A **********************************03000806 ! 304: C**** FORMATS FOR TEST DETAIL LINES 03010806 ! 305: C**** 03020806 ! 306: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 03030806 ! 307: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 03040806 ! 308: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 03050806 ! 309: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 03060806 ! 310: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 03070806 ! 311: 1I6,/,1H ,15X,10HCORRECT= ,I6) 03080806 ! 312: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03090806 ! 313: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 03100806 ! 314: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03110806 ! 315: 1A21,/,1H ,16X,10HCORRECT= ,A21) 03120806 ! 316: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 03130806 ! 317: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 03140806 ! 318: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 03150806 ! 319: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 03160806 ! 320: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 03170806 ! 321: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 03180806 ! 322: 80050 FORMAT (1H ,48X,A31) 03190806 ! 323: CBE** ********************** BBCFMT0A **********************************03200806 ! 324: CBB** ********************** BBCFMAT1 **********************************03210806 ! 325: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 03220806 ! 326: C**** 03230806 ! 327: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03240806 ! 328: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 03250806 ! 329: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 03260806 ! 330: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 03270806 ! 331: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 03280806 ! 332: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 03290806 ! 333: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 03300806 ! 334: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 03310806 ! 335: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03320806 ! 336: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 03330806 ! 337: 21H(,F12.5,2H, ,F12.5,1H)) 03340806 ! 338: CBE** ********************** BBCFMAT1 **********************************03350806 ! 339: CBB** ********************** BBCFMT0B **********************************03360806 ! 340: C**** FORMAT STATEMENTS FOR PAGE HEADERS 03370806 ! 341: C**** 03380806 ! 342: 90002 FORMAT (1H1) 03390806 ! 343: 90004 FORMAT (1H ) 03400806 ! 344: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 03410806 ! 345: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03420806 ! 346: 90008 FORMAT (1H ,21X,A13,A17) 03430806 ! 347: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 03440806 ! 348: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 03450806 ! 349: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 03460806 ! 350: 1 7X,7HREMARKS,24X) 03470806 ! 351: 90014 FORMAT (1H ,46H----------------------------------------------, 03480806 ! 352: 1 33H---------------------------------) 03490806 ! 353: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 03500806 ! 354: C**** 03510806 ! 355: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03520806 ! 356: C**** 03530806 ! 357: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 03540806 ! 358: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 03550806 ! 359: 1 A13) 03560806 ! 360: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 03570806 ! 361: C**** 03580806 ! 362: C**** FORMAT STATEMENTS FOR RUN SUMMARY 03590806 ! 363: C**** 03600806 ! 364: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03610806 ! 365: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03620806 ! 366: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03630806 ! 367: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 03640806 ! 368: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 03650806 ! 369: CBE** ********************** BBCFMT0B **********************************03660806 ! 370: C***** END OF TEST SEGMENT 166 03670806 ! 371: STOP 03680806 ! 372: END 03690806 ! 373: 03700806
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.