![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM814.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 FM814.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***********************************************************************00010814 ! 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 00020814 ! 6: C***** FM814 00030814 ! 7: C***** YDEXP - (179) 00040814 ! 8: C***** 00050814 ! 9: C***********************************************************************00060814 ! 10: C***** GENERAL PURPOSE ANS REF 00070814 ! 11: C***** TEST INTRINSIC FUNCTION DEXP 15.3 00080814 ! 12: C***** TABLE 5 00090814 ! 13: C***** 00100814 ! 14: CBB** ********************** BBCCOMNT **********************************00110814 ! 15: C**** 00120814 ! 16: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130814 ! 17: C**** VERSION 2.0 00140814 ! 18: C**** 00150814 ! 19: C**** 00160814 ! 20: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170814 ! 21: C**** GENERAL SERVICES ADMINISTRATION 00180814 ! 22: C**** FEDERAL SOFTWARE TESTING CENTER 00190814 ! 23: C**** 5203 LEESBURG PIKE, SUITE 1100 00200814 ! 24: C**** FALLS CHURCH, VA. 22041 00210814 ! 25: C**** 00220814 ! 26: C**** (703) 756-6153 00230814 ! 27: C**** 00240814 ! 28: CBE** ********************** BBCCOMNT **********************************00250814 ! 29: C***** 00260814 ! 30: C***** S P E C I F I C A T I O N S SEGMENT 179 00270814 ! 31: DOUBLE PRECISION AVD, BVD, DVCORR 00280814 ! 32: C***** 00290814 ! 33: CBB** ********************** BBCINITA **********************************00300814 ! 34: C**** SPECIFICATION STATEMENTS 00310814 ! 35: C**** 00320814 ! 36: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00330814 ! 37: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00340814 ! 38: CBE** ********************** BBCINITA **********************************00350814 ! 39: CBB** ********************** BBCINITB **********************************00360814 ! 40: C**** INITIALIZE SECTION 00370814 ! 41: DATA ZVERS, ZVERSD, ZDATE 00380814 ! 42: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00390814 ! 43: DATA ZCOMPL, ZNAME, ZTAPE 00400814 ! 44: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00410814 ! 45: DATA ZPROJ, ZTAPED, ZPROG 00420814 ! 46: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00430814 ! 47: DATA REMRKS /' '/ 00440814 ! 48: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00450814 ! 49: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00460814 ! 50: C**** 00470814 ! 51: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00480814 ! 52: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00490814 ! 53: CZ03 ZPROG = 'PROGRAM NAME' 00500814 ! 54: ZDATE = '07-Nov-85 ' *RP ! 55: ZCOMPL = 'CCI 5.2 ' *RP ! 56: ZPROJ = 'TC-85- -410' *RP ! 57: ZNAME = ' ' *RP ! 58: ZTAPE = ' ' *RP ! 59: ZTAPED = '850703 ' *RP ! 60: C 00570814 ! 61: IVPASS = 0 00580814 ! 62: IVFAIL = 0 00590814 ! 63: IVDELE = 0 00600814 ! 64: IVINSP = 0 00610814 ! 65: IVTOTL = 0 00620814 ! 66: IVTOTN = 0 00630814 ! 67: ICZERO = 0 00640814 ! 68: C 00650814 ! 69: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00660814 ! 70: I01 = 05 00670814 ! 71: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00680814 ! 72: I02 = 06 00690814 ! 73: C 00700814 ! 74: I01 = 5 00710814 ! 75: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00720814 ! 76: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00730814 ! 77: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00740814 ! 78: C 00750814 ! 79: I02 = 6 00760814 ! 80: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00770814 ! 81: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00780814 ! 82: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00790814 ! 83: C 00800814 ! 84: CBE** ********************** BBCINITB **********************************00810814 ! 85: NUVI = I02 00820814 ! 86: IVTOTL = 19 00830814 ! 87: ZPROG = 'FM814' 00840814 ! 88: CBB** ********************** BBCHED0A **********************************00850814 ! 89: C**** 00860814 ! 90: C**** WRITE REPORT TITLE 00870814 ! 91: C**** 00880814 ! 92: WRITE (I02, 90002) 00890814 ! 93: WRITE (I02, 90006) 00900814 ! 94: WRITE (I02, 90007) 00910814 ! 95: WRITE (I02, 90008) ZVERS, ZVERSD 00920814 ! 96: WRITE (I02, 90009) ZPROG, ZPROG 00930814 ! 97: WRITE (I02, 90010) ZDATE, ZCOMPL 00940814 ! 98: CBE** ********************** BBCHED0A **********************************00950814 ! 99: C***** 00960814 ! 100: C***** HEADER FOR SEGMENT 179 00970814 ! 101: WRITE(NUVI,17900) 00980814 ! 102: 17900 FORMAT(1H , / 35H YDEXP - (179) INTRINSIC FUNCTIONS// 00990814 ! 103: 1 37H DEXP (DOUBLE PRECISION EXPONENTIAL)// 01000814 ! 104: 2 17H ANS REF. - 15.3) 01010814 ! 105: CBB** ********************** BBCHED0B **********************************01020814 ! 106: C**** WRITE DETAIL REPORT HEADERS 01030814 ! 107: C**** 01040814 ! 108: WRITE (I02,90004) 01050814 ! 109: WRITE (I02,90004) 01060814 ! 110: WRITE (I02,90013) 01070814 ! 111: WRITE (I02,90014) 01080814 ! 112: WRITE (I02,90015) IVTOTL 01090814 ! 113: CBE** ********************** BBCHED0B **********************************01100814 ! 114: C***** 01110814 ! 115: CT001* TEST 1 ZERO, SINCE EXP(0) = 1 01120814 ! 116: IVTNUM = 1 01130814 ! 117: BVD = 0.0D0 01140814 ! 118: AVD = DEXP(BVD) 01150814 ! 119: IF (AVD - 0.9999999995D+00) 20010, 10010, 40010 01160814 ! 120: 40010 IF (AVD - 0.1000000001D+01) 10010, 10010, 20010 01170814 ! 121: 10010 IVPASS = IVPASS + 1 01180814 ! 122: WRITE (NUVI, 80002) IVTNUM 01190814 ! 123: GO TO 0011 01200814 ! 124: 20010 IVFAIL = IVFAIL + 1 01210814 ! 125: DVCORR = 0.10000000000000000000D+01 01220814 ! 126: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01230814 ! 127: 0011 CONTINUE 01240814 ! 128: CT002* TEST 2 ONE, SINCE EXP(1) = E 01250814 ! 129: IVTNUM = 2 01260814 ! 130: AVD = DEXP(1.0D0) 01270814 ! 131: IF (AVD - 0.2718281827D+01) 20020, 10020, 40020 01280814 ! 132: 40020 IF (AVD - 0.2718281830D+01) 10020, 10020, 20020 01290814 ! 133: 10020 IVPASS = IVPASS + 1 01300814 ! 134: WRITE (NUVI, 80002) IVTNUM 01310814 ! 135: GO TO 0021 01320814 ! 136: 20020 IVFAIL = IVFAIL + 1 01330814 ! 137: DVCORR = 0.27182818284590452354D+01 01340814 ! 138: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01350814 ! 139: 0021 CONTINUE 01360814 ! 140: CT003* TEST 3 01370814 ! 141: IVTNUM = 3 01380814 ! 142: AVD = DEXP(2.0D0) 01390814 ! 143: IF (AVD - 0.7389056095D+01) 20030, 10030, 40030 01400814 ! 144: 40030 IF (AVD - 0.7389056103D+01) 10030, 10030, 20030 01410814 ! 145: 10030 IVPASS = IVPASS + 1 01420814 ! 146: WRITE (NUVI, 80002) IVTNUM 01430814 ! 147: GO TO 0031 01440814 ! 148: 20030 IVFAIL = IVFAIL + 1 01450814 ! 149: DVCORR = 0.73890560989306502272D+01 01460814 ! 150: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01470814 ! 151: 0031 CONTINUE 01480814 ! 152: CT004* TEST 4 01490814 ! 153: IVTNUM = 4 01500814 ! 154: AVD = DEXP(5.125D0) 01510814 ! 155: IF (AVD - 0.1681741415D+03) 20040, 10040, 40040 01520814 ! 156: 40040 IF (AVD - 0.1681741418D+03) 10040, 10040, 20040 01530814 ! 157: 10040 IVPASS = IVPASS + 1 01540814 ! 158: WRITE (NUVI, 80002) IVTNUM 01550814 ! 159: GO TO 0041 01560814 ! 160: 20040 IVFAIL = IVFAIL + 1 01570814 ! 161: DVCORR = 0.16817414165184545127D+03 01580814 ! 162: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01590814 ! 163: 0041 CONTINUE 01600814 ! 164: CT005* TEST 5 01610814 ! 165: IVTNUM = 5 01620814 ! 166: AVD = DEXP(15.0D0) 01630814 ! 167: IF (AVD - 0.3269017370D+07) 20050, 10050, 40050 01640814 ! 168: 40050 IF (AVD - 0.3269017374D+07) 10050, 10050, 20050 01650814 ! 169: 10050 IVPASS = IVPASS + 1 01660814 ! 170: WRITE (NUVI, 80002) IVTNUM 01670814 ! 171: GO TO 0051 01680814 ! 172: 20050 IVFAIL = IVFAIL + 1 01690814 ! 173: DVCORR = 0.32690173724721106393D+07 01700814 ! 174: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01710814 ! 175: 0051 CONTINUE 01720814 ! 176: CT006* TEST 6 01730814 ! 177: IVTNUM = 6 01740814 ! 178: BVD = 20.5D0 01750814 ! 179: AVD = DEXP(BVD) 01760814 ! 180: IF (AVD - 0.7999021770D+09) 20060, 10060, 40060 01770814 ! 181: 40060 IF (AVD - 0.7999021779D+09) 10060, 10060, 20060 01780814 ! 182: 10060 IVPASS = IVPASS + 1 01790814 ! 183: WRITE (NUVI, 80002) IVTNUM 01800814 ! 184: GO TO 0061 01810814 ! 185: 20060 IVFAIL = IVFAIL + 1 01820814 ! 186: DVCORR = 0.79990217747550540670D+09 01830814 ! 187: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01840814 ! 188: 0061 CONTINUE 01850814 ! 189: CT007* TEST 7 01860814 ! 190: IVTNUM = 7 01870814 ! 191: BVD = 4.5D0 01880814 ! 192: AVD = DEXP(BVD - 7.5D0) 01890814 ! 193: IF (AVD - 0.4978706834D-01) 20070, 10070, 40070 01900814 ! 194: 40070 IF (AVD - 0.4978706840D-01) 10070, 10070, 20070 01910814 ! 195: 10070 IVPASS = IVPASS + 1 01920814 ! 196: WRITE (NUVI, 80002) IVTNUM 01930814 ! 197: GO TO 0071 01940814 ! 198: 20070 IVFAIL = IVFAIL + 1 01950814 ! 199: DVCORR = 0.49787068367863942979D-01 01960814 ! 200: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01970814 ! 201: 0071 CONTINUE 01980814 ! 202: CT008* TEST 8 01990814 ! 203: IVTNUM = 8 02000814 ! 204: BVD = 0.25D0 02010814 ! 205: AVD = DEXP(BVD - 5.0D0) 02020814 ! 206: IF (AVD - 0.8651695198D-02) 20080, 10080, 40080 02030814 ! 207: 40080 IF (AVD - 0.8651695208D-02) 10080, 10080, 20080 02040814 ! 208: 10080 IVPASS = IVPASS + 1 02050814 ! 209: WRITE (NUVI, 80002) IVTNUM 02060814 ! 210: GO TO 0081 02070814 ! 211: 20080 IVFAIL = IVFAIL + 1 02080814 ! 212: DVCORR = 0.86516952031206341771D-02 02090814 ! 213: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02100814 ! 214: 0081 CONTINUE 02110814 ! 215: CT009* TEST 9 02120814 ! 216: IVTNUM = 9 02130814 ! 217: AVD = DEXP(0.5D0 * (-20.0D0)) 02140814 ! 218: IF (AVD - 0.4539992974D-04) 20090, 10090, 40090 02150814 ! 219: 40090 IF (AVD - 0.4539992979D-04) 10090, 10090, 20090 02160814 ! 220: 10090 IVPASS = IVPASS + 1 02170814 ! 221: WRITE (NUVI, 80002) IVTNUM 02180814 ! 222: GO TO 0091 02190814 ! 223: 20090 IVFAIL = IVFAIL + 1 02200814 ! 224: DVCORR = 0.45399929762484851536D-04 02210814 ! 225: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02220814 ! 226: 0091 CONTINUE 02230814 ! 227: CT010* TEST 10 02240814 ! 228: IVTNUM = 10 02250814 ! 229: BVD = 30.5D0 02260814 ! 230: AVD = DEXP(BVD / (-2.0D0)) 02270814 ! 231: IF (AVD - 0.2382369666D-06) 20100, 10100, 40100 02280814 ! 232: 40100 IF (AVD - 0.2382369669D-06) 10100, 10100, 20100 02290814 ! 233: 10100 IVPASS = IVPASS + 1 02300814 ! 234: WRITE (NUVI, 80002) IVTNUM 02310814 ! 235: GO TO 0101 02320814 ! 236: 20100 IVFAIL = IVFAIL + 1 02330814 ! 237: DVCORR = 0.23823696675018179180D-06 02340814 ! 238: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02350814 ! 239: 0101 CONTINUE 02360814 ! 240: CT011* TEST 11 VALUES CLOSE TO 1.0 02370814 ! 241: IVTNUM = 11 02380814 ! 242: AVD = DEXP(0.9921875D0) 02390814 ! 243: IF (AVD - 0.2697127990D+01) 20110, 10110, 40110 02400814 ! 244: 40110 IF (AVD - 0.2697127993D+01) 10110, 10110, 20110 02410814 ! 245: 10110 IVPASS = IVPASS + 1 02420814 ! 246: WRITE (NUVI, 80002) IVTNUM 02430814 ! 247: GO TO 0111 02440814 ! 248: 20110 IVFAIL = IVFAIL + 1 02450814 ! 249: DVCORR = 0.26971279914439187908D+01 02460814 ! 250: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02470814 ! 251: 0111 CONTINUE 02480814 ! 252: CT012* TEST 12 02490814 ! 253: IVTNUM = 12 02500814 ! 254: BVD = 0.9990234375D0 02510814 ! 255: AVD = DEXP(BVD) 02520814 ! 256: IF (AVD - 0.2715628550D+01) 20120, 10120, 40120 02530814 ! 257: 40120 IF (AVD - 0.2715628554D+01) 10120, 10120, 20120 02540814 ! 258: 10120 IVPASS = IVPASS + 1 02550814 ! 259: WRITE (NUVI, 80002) IVTNUM 02560814 ! 260: GO TO 0121 02570814 ! 261: 20120 IVFAIL = IVFAIL + 1 02580814 ! 262: DVCORR = 0.27156285521168930956D+01 02590814 ! 263: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02600814 ! 264: 0121 CONTINUE 02610814 ! 265: CT013* TEST 13 02620814 ! 266: IVTNUM = 13 02630814 ! 267: AVD = DEXP(1.00390625D0) 02640814 ! 268: IF (AVD - 0.2728920881D+01) 20130, 10130, 40130 02650814 ! 269: 40130 IF (AVD - 0.2728920884D+01) 10130, 10130, 20130 02660814 ! 270: 10130 IVPASS = IVPASS + 1 02670814 ! 271: WRITE (NUVI, 80002) IVTNUM 02680814 ! 272: GO TO 0131 02690814 ! 273: 20130 IVFAIL = IVFAIL + 1 02700814 ! 274: DVCORR = 0.27289208827260750401D+01 02710814 ! 275: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02720814 ! 276: 0131 CONTINUE 02730814 ! 277: CT014* TEST 14 02740814 ! 278: IVTNUM = 14 02750814 ! 279: BVD = 1.001953125D0 02760814 ! 280: AVD = DEXP(BVD) 02770814 ! 281: IF (AVD - 0.2723596159D+01) 20140, 10140, 40140 02780814 ! 282: 40140 IF (AVD - 0.2723596162D+01) 10140, 10140, 20140 02790814 ! 283: 10140 IVPASS = IVPASS + 1 02800814 ! 284: WRITE (NUVI, 80002) IVTNUM 02810814 ! 285: GO TO 0141 02820814 ! 286: 20140 IVFAIL = IVFAIL + 1 02830814 ! 287: DVCORR = 0.27235961607434952125D+01 02840814 ! 288: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02850814 ! 289: 0141 CONTINUE 02860814 ! 290: CT015* TEST 15 VALUES CLOSE TO 1/E 02870814 ! 291: IVTNUM = 15 02880814 ! 292: BVD = 128.0D0 02890814 ! 293: AVD = DEXP(44.0D0 / BVD) 02900814 ! 294: IF (AVD - 0.1410226034D+01) 20150, 10150, 40150 02910814 ! 295: 40150 IF (AVD - 0.1410226036D+01) 10150, 10150, 20150 02920814 ! 296: 10150 IVPASS = IVPASS + 1 02930814 ! 297: WRITE (NUVI, 80002) IVTNUM 02940814 ! 298: GO TO 0151 02950814 ! 299: 20150 IVFAIL = IVFAIL + 1 02960814 ! 300: DVCORR = 0.14102260349257107057D+01 02970814 ! 301: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02980814 ! 302: 0151 CONTINUE 02990814 ! 303: CT016* TEST 16 03000814 ! 304: IVTNUM = 16 03010814 ! 305: BVD = 128.0D0 03020814 ! 306: AVD = DEXP(45.0D0 / BVD) 03030814 ! 307: IF (AVD - 0.1421286574D+01) 20160, 10160, 40160 03040814 ! 308: 40160 IF (AVD - 0.1421286576D+01) 10160, 10160, 20160 03050814 ! 309: 10160 IVPASS = IVPASS + 1 03060814 ! 310: WRITE (NUVI, 80002) IVTNUM 03070814 ! 311: GO TO 0161 03080814 ! 312: 20160 IVFAIL = IVFAIL + 1 03090814 ! 313: DVCORR = 0.14212865748006967556D+01 03100814 ! 314: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03110814 ! 315: 0161 CONTINUE 03120814 ! 316: CT017* TEST 17 03130814 ! 317: IVTNUM = 17 03140814 ! 318: BVD = 128.0D0 03150814 ! 319: AVD = DEXP(46.0D0 / BVD) 03160814 ! 320: IF (AVD - 0.1432433862D+01) 20170, 10170, 40170 03170814 ! 321: 40170 IF (AVD - 0.1432433865D+01) 10170, 10170, 20170 03180814 ! 322: 10170 IVPASS = IVPASS + 1 03190814 ! 323: WRITE (NUVI, 80002) IVTNUM 03200814 ! 324: GO TO 0171 03210814 ! 325: 20170 IVFAIL = IVFAIL + 1 03220814 ! 326: DVCORR = 0.14324338635650781150D+01 03230814 ! 327: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03240814 ! 328: 0171 CONTINUE 03250814 ! 329: CT018* TEST 18 03260814 ! 330: IVTNUM = 18 03270814 ! 331: BVD = 128.0D0 03280814 ! 332: AVD = DEXP(47.0D0 / BVD) 03290814 ! 333: IF (AVD - 0.1443668580D+01) 20180, 10180, 40180 03300814 ! 334: 40180 IF (AVD - 0.1443668583D+01) 10180, 10180, 20180 03310814 ! 335: 10180 IVPASS = IVPASS + 1 03320814 ! 336: WRITE (NUVI, 80002) IVTNUM 03330814 ! 337: GO TO 0181 03340814 ! 338: 20180 IVFAIL = IVFAIL + 1 03350814 ! 339: DVCORR = 0.14436685815988268628D+01 03360814 ! 340: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03370814 ! 341: 0181 CONTINUE 03380814 ! 342: CT019* TEST 19 03390814 ! 343: IVTNUM = 19 03400814 ! 344: BVD = 128.0D0 03410814 ! 345: AVD = DEXP(48.0D0 / BVD) 03420814 ! 346: IF (AVD - 0.1454991413D+01) 20190, 10190, 40190 03430814 ! 347: 40190 IF (AVD - 0.1454991416D+01) 10190, 10190, 20190 03440814 ! 348: 10190 IVPASS = IVPASS + 1 03450814 ! 349: WRITE (NUVI, 80002) IVTNUM 03460814 ! 350: GO TO 0191 03470814 ! 351: 20190 IVFAIL = IVFAIL + 1 03480814 ! 352: DVCORR = 0.14549914146182013361D+01 03490814 ! 353: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03500814 ! 354: 0191 CONTINUE 03510814 ! 355: C***** 03520814 ! 356: CBB** ********************** BBCSUM0 **********************************03530814 ! 357: C**** WRITE OUT TEST SUMMARY 03540814 ! 358: C**** 03550814 ! 359: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 03560814 ! 360: WRITE (I02, 90004) 03570814 ! 361: WRITE (I02, 90014) 03580814 ! 362: WRITE (I02, 90004) 03590814 ! 363: WRITE (I02, 90020) IVPASS 03600814 ! 364: WRITE (I02, 90022) IVFAIL 03610814 ! 365: WRITE (I02, 90024) IVDELE 03620814 ! 366: WRITE (I02, 90026) IVINSP 03630814 ! 367: WRITE (I02, 90028) IVTOTN, IVTOTL 03640814 ! 368: CBE** ********************** BBCSUM0 **********************************03650814 ! 369: CBB** ********************** BBCFOOT0 **********************************03660814 ! 370: C**** WRITE OUT REPORT FOOTINGS 03670814 ! 371: C**** 03680814 ! 372: WRITE (I02,90016) ZPROG, ZPROG 03690814 ! 373: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 03700814 ! 374: WRITE (I02,90019) 03710814 ! 375: CBE** ********************** BBCFOOT0 **********************************03720814 ! 376: CBB** ********************** BBCFMT0A **********************************03730814 ! 377: C**** FORMATS FOR TEST DETAIL LINES 03740814 ! 378: C**** 03750814 ! 379: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 03760814 ! 380: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 03770814 ! 381: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 03780814 ! 382: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 03790814 ! 383: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 03800814 ! 384: 1I6,/,1H ,15X,10HCORRECT= ,I6) 03810814 ! 385: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03820814 ! 386: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 03830814 ! 387: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03840814 ! 388: 1A21,/,1H ,16X,10HCORRECT= ,A21) 03850814 ! 389: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 03860814 ! 390: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 03870814 ! 391: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 03880814 ! 392: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 03890814 ! 393: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 03900814 ! 394: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 03910814 ! 395: 80050 FORMAT (1H ,48X,A31) 03920814 ! 396: CBE** ********************** BBCFMT0A **********************************03930814 ! 397: CBB** ********************** BBCFMAT1 **********************************03940814 ! 398: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 03950814 ! 399: C**** 03960814 ! 400: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03970814 ! 401: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 03980814 ! 402: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 03990814 ! 403: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 04000814 ! 404: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 04010814 ! 405: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 04020814 ! 406: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 04030814 ! 407: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 04040814 ! 408: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 04050814 ! 409: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 04060814 ! 410: 21H(,F12.5,2H, ,F12.5,1H)) 04070814 ! 411: CBE** ********************** BBCFMAT1 **********************************04080814 ! 412: CBB** ********************** BBCFMT0B **********************************04090814 ! 413: C**** FORMAT STATEMENTS FOR PAGE HEADERS 04100814 ! 414: C**** 04110814 ! 415: 90002 FORMAT (1H1) 04120814 ! 416: 90004 FORMAT (1H ) 04130814 ! 417: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 04140814 ! 418: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 04150814 ! 419: 90008 FORMAT (1H ,21X,A13,A17) 04160814 ! 420: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 04170814 ! 421: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 04180814 ! 422: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 04190814 ! 423: 1 7X,7HREMARKS,24X) 04200814 ! 424: 90014 FORMAT (1H ,46H----------------------------------------------, 04210814 ! 425: 1 33H---------------------------------) 04220814 ! 426: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 04230814 ! 427: C**** 04240814 ! 428: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 04250814 ! 429: C**** 04260814 ! 430: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 04270814 ! 431: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 04280814 ! 432: 1 A13) 04290814 ! 433: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 04300814 ! 434: C**** 04310814 ! 435: C**** FORMAT STATEMENTS FOR RUN SUMMARY 04320814 ! 436: C**** 04330814 ! 437: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 04340814 ! 438: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 04350814 ! 439: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 04360814 ! 440: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 04370814 ! 441: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 04380814 ! 442: CBE** ********************** BBCFMT0B **********************************04390814 ! 443: C***** 04400814 ! 444: C***** END OF TEST SEGMENT 179 04410814 ! 445: STOP 04420814 ! 446: END 04430814 ! 447: 04440814
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.