![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM373.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 FM373.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***********************************************************************00010373 ! 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 00020373 ! 6: C***** FM373 00030373 ! 7: C***** XCOS - (189) 00040373 ! 8: C***** 00050373 ! 9: C***********************************************************************00060373 ! 10: C***** GENERAL PURPOSE SUBSET REF 00070373 ! 11: C***** TEST INTRINSIC FUNCTION COS 15.3 00080373 ! 12: C***** TABLE 5 00090373 ! 13: C***** 00100373 ! 14: CBB** ********************** BBCCOMNT **********************************00110373 ! 15: C**** 00120373 ! 16: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130373 ! 17: C**** VERSION 2.0 00140373 ! 18: C**** 00150373 ! 19: C**** 00160373 ! 20: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170373 ! 21: C**** GENERAL SERVICES ADMINISTRATION 00180373 ! 22: C**** FEDERAL SOFTWARE TESTING CENTER 00190373 ! 23: C**** 5203 LEESBURG PIKE, SUITE 1100 00200373 ! 24: C**** FALLS CHURCH, VA. 22041 00210373 ! 25: C**** 00220373 ! 26: C**** (703) 756-6153 00230373 ! 27: C**** 00240373 ! 28: CBE** ********************** BBCCOMNT **********************************00250373 ! 29: CBB** ********************** BBCINITA **********************************00260373 ! 30: C**** SPECIFICATION STATEMENTS 00270373 ! 31: C**** 00280373 ! 32: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00290373 ! 33: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00300373 ! 34: CBE** ********************** BBCINITA **********************************00310373 ! 35: CBB** ********************** BBCINITB **********************************00320373 ! 36: C**** INITIALIZE SECTION 00330373 ! 37: DATA ZVERS, ZVERSD, ZDATE 00340373 ! 38: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00350373 ! 39: DATA ZCOMPL, ZNAME, ZTAPE 00360373 ! 40: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00370373 ! 41: DATA ZPROJ, ZTAPED, ZPROG 00380373 ! 42: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00390373 ! 43: DATA REMRKS /' '/ 00400373 ! 44: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00410373 ! 45: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00420373 ! 46: C**** 00430373 ! 47: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00440373 ! 48: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00450373 ! 49: CZ03 ZPROG = 'PROGRAM NAME' 00460373 ! 50: ZDATE = '07-Nov-85 ' *RP ! 51: ZCOMPL = 'CCI 5.2 ' *RP ! 52: ZPROJ = 'TC-85- -410' *RP ! 53: ZNAME = ' ' *RP ! 54: ZTAPE = ' ' *RP ! 55: ZTAPED = '850703 ' *RP ! 56: C 00530373 ! 57: IVPASS = 0 00540373 ! 58: IVFAIL = 0 00550373 ! 59: IVDELE = 0 00560373 ! 60: IVINSP = 0 00570373 ! 61: IVTOTL = 0 00580373 ! 62: IVTOTN = 0 00590373 ! 63: ICZERO = 0 00600373 ! 64: C 00610373 ! 65: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00620373 ! 66: I01 = 05 00630373 ! 67: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00640373 ! 68: I02 = 06 00650373 ! 69: C 00660373 ! 70: I01 = 5 00670373 ! 71: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00680373 ! 72: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00690373 ! 73: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00700373 ! 74: C 00710373 ! 75: I02 = 6 00720373 ! 76: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00730373 ! 77: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00740373 ! 78: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00750373 ! 79: C 00760373 ! 80: CBE** ********************** BBCINITB **********************************00770373 ! 81: NUVI = I02 00780373 ! 82: IVTOTL = 19 00790373 ! 83: ZPROG = 'FM373' 00800373 ! 84: CBB** ********************** BBCHED0A **********************************00810373 ! 85: C**** 00820373 ! 86: C**** WRITE REPORT TITLE 00830373 ! 87: C**** 00840373 ! 88: WRITE (I02, 90002) 00850373 ! 89: WRITE (I02, 90006) 00860373 ! 90: WRITE (I02, 90007) 00870373 ! 91: WRITE (I02, 90008) ZVERS, ZVERSD 00880373 ! 92: WRITE (I02, 90009) ZPROG, ZPROG 00890373 ! 93: WRITE (I02, 90010) ZDATE, ZCOMPL 00900373 ! 94: CBE** ********************** BBCHED0A **********************************00910373 ! 95: C***** 00920373 ! 96: C***** HEADER FOR SEGMENT 189 00930373 ! 97: WRITE(NUVI,18900) 00940373 ! 98: 18900 FORMAT(1H /33H XCOS - (189) INTRINSIC FUNCTIONS// 00950373 ! 99: 1 14H COS (COSINE)// 00960373 ! 100: 2 20H SUBSET REF. - 15.3) 00970373 ! 101: CBB** ********************** BBCHED0B **********************************00980373 ! 102: C**** WRITE DETAIL REPORT HEADERS 00990373 ! 103: C**** 01000373 ! 104: WRITE (I02,90004) 01010373 ! 105: WRITE (I02,90004) 01020373 ! 106: WRITE (I02,90013) 01030373 ! 107: WRITE (I02,90014) 01040373 ! 108: WRITE (I02,90015) IVTOTL 01050373 ! 109: CBE** ********************** BBCHED0B **********************************01060373 ! 110: C***** 01070373 ! 111: PIVS = 3.1415926535897932384626434 01080373 ! 112: C***** 01090373 ! 113: CT001* TEST 1 ZERO (0.0), SINCE COS(0)=1 01100373 ! 114: IVTNUM = 1 01110373 ! 115: BVS = 0.0 01120373 ! 116: AVS = COS(BVS) 01130373 ! 117: IF (AVS - 0.99995E+00) 20010, 10010, 40010 01140373 ! 118: 40010 IF (AVS - 0.10001E+01) 10010, 10010, 20010 01150373 ! 119: 10010 IVPASS = IVPASS + 1 01160373 ! 120: WRITE (NUVI, 80002) IVTNUM 01170373 ! 121: GO TO 0011 01180373 ! 122: 20010 IVFAIL = IVFAIL + 1 01190373 ! 123: RVCORR = 1.00000000000000 01200373 ! 124: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01210373 ! 125: 0011 CONTINUE 01220373 ! 126: CT002* TEST 2 VALUES NEAR PI 01230373 ! 127: IVTNUM = 2 01240373 ! 128: AVS = COS(PIVS) 01250373 ! 129: IF (AVS + 0.10001E+01) 20020, 10020, 40020 01260373 ! 130: 40020 IF (AVS + 0.99995E+00) 10020, 10020, 20020 01270373 ! 131: 10020 IVPASS = IVPASS + 1 01280373 ! 132: WRITE (NUVI, 80002) IVTNUM 01290373 ! 133: GO TO 0021 01300373 ! 134: 20020 IVFAIL = IVFAIL + 1 01310373 ! 135: RVCORR = -1.00000000000000 01320373 ! 136: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01330373 ! 137: 0021 CONTINUE 01340373 ! 138: CT003* TEST 3 PI - 1/16 01350373 ! 139: IVTNUM = 3 01360373 ! 140: BVS = 3.0790926536 01370373 ! 141: AVS = COS(BVS) 01380373 ! 142: IF (AVS + 0.99810E+00) 20030, 10030, 40030 01390373 ! 143: 40030 IF (AVS + 0.99799E+00) 10030, 10030, 20030 01400373 ! 144: 10030 IVPASS = IVPASS + 1 01410373 ! 145: WRITE (NUVI, 80002) IVTNUM 01420373 ! 146: GO TO 0031 01430373 ! 147: 20030 IVFAIL = IVFAIL + 1 01440373 ! 148: RVCORR = -0.99804751070010 01450373 ! 149: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01460373 ! 150: 0031 CONTINUE 01470373 ! 151: CT004* TEST 4 PI + 1/32 01480373 ! 152: IVTNUM = 4 01490373 ! 153: AVS = COS(3.1728426535) 01500373 ! 154: IF (AVS + 0.99957E+00) 20040, 10040, 40040 01510373 ! 155: 40040 IF (AVS + 0.99946E+00) 10040, 10040, 20040 01520373 ! 156: 10040 IVPASS = IVPASS + 1 01530373 ! 157: WRITE (NUVI, 80002) IVTNUM 01540373 ! 158: GO TO 0041 01550373 ! 159: 20040 IVFAIL = IVFAIL + 1 01560373 ! 160: RVCORR = -0.99951175848514 01570373 ! 161: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01580373 ! 162: 0041 CONTINUE 01590373 ! 163: CT005* TEST 5 VALUES NEAR 2*PI 01600373 ! 164: IVTNUM = 5 01610373 ! 165: BVS = PIVS * 2.0 01620373 ! 166: AVS = COS(BVS) 01630373 ! 167: IF (AVS - 0.99995E+00) 20050, 10050, 40050 01640373 ! 168: 40050 IF (AVS - 0.10001E+01) 10050, 10050, 20050 01650373 ! 169: 10050 IVPASS = IVPASS + 1 01660373 ! 170: WRITE (NUVI, 80002) IVTNUM 01670373 ! 171: GO TO 0051 01680373 ! 172: 20050 IVFAIL = IVFAIL + 1 01690373 ! 173: RVCORR = 1.00000000000000 01700373 ! 174: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01710373 ! 175: 0051 CONTINUE 01720373 ! 176: CT006* TEST 6 VALUES NEAR 2*PI 01730373 ! 177: IVTNUM = 6 01740373 ! 178: BVS = (2.0 * PIVS) - 1.0 / 64.0 01750373 ! 179: AVS = COS(BVS) 01760373 ! 180: IF (AVS - 0.99982E+00) 20060, 10060, 40060 01770373 ! 181: 40060 IF (AVS - 0.99993E+00) 10060, 10060, 20060 01780373 ! 182: 10060 IVPASS = IVPASS + 1 01790373 ! 183: WRITE (NUVI, 80002) IVTNUM 01800373 ! 184: GO TO 0061 01810373 ! 185: 20060 IVFAIL = IVFAIL + 1 01820373 ! 186: RVCORR = 0.99987793217101 01830373 ! 187: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01840373 ! 188: 0061 CONTINUE 01850373 ! 189: CT007* TEST 7 VALUES NEAR 2*PI 01860373 ! 190: IVTNUM = 7 01870373 ! 191: BVS = (2.0 * PIVS) + 1.0 / 128.0 01880373 ! 192: AVS = COS(BVS) 01890373 ! 193: IF (AVS - 0.99992E+00) 20070, 10070, 40070 01900373 ! 194: 40070 IF (AVS - 0.10001E+01) 10070, 10070, 20070 01910373 ! 195: 10070 IVPASS = IVPASS + 1 01920373 ! 196: WRITE (NUVI, 80002) IVTNUM 01930373 ! 197: GO TO 0071 01940373 ! 198: 20070 IVFAIL = IVFAIL + 1 01950373 ! 199: RVCORR = 0.99996948257710 01960373 ! 200: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01970373 ! 201: 0071 CONTINUE 01980373 ! 202: CT008* TEST 8 AN EXPRESSION PRESENTED TO COS 01990373 ! 203: IVTNUM = 8 02000373 ! 204: BVS = 350.0 02010373 ! 205: AVS = COS(BVS / 100.0) 02020373 ! 206: IF (AVS + 0.93651E+00) 20080, 10080, 40080 02030373 ! 207: 40080 IF (AVS + 0.93641E+00) 10080, 10080, 20080 02040373 ! 208: 10080 IVPASS = IVPASS + 1 02050373 ! 209: WRITE (NUVI, 80002) IVTNUM 02060373 ! 210: GO TO 0081 02070373 ! 211: 20080 IVFAIL = IVFAIL + 1 02080373 ! 212: RVCORR = -0.93645668729080 02090373 ! 213: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02100373 ! 214: 0081 CONTINUE 02110373 ! 215: CT009* TEST 9 A NEGATIVE ARGUMENT 02120373 ! 216: IVTNUM = 9 02130373 ! 217: BVS = -1.5 02140373 ! 218: AVS = COS(BVS) 02150373 ! 219: IF (AVS - 0.70733E-01) 20090, 10090, 40090 02160373 ! 220: 40090 IF (AVS - 0.70741E-01) 10090, 10090, 20090 02170373 ! 221: 10090 IVPASS = IVPASS + 1 02180373 ! 222: WRITE (NUVI, 80002) IVTNUM 02190373 ! 223: GO TO 0091 02200373 ! 224: 20090 IVFAIL = IVFAIL + 1 02210373 ! 225: RVCORR = 0.07073720166770 02220373 ! 226: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02230373 ! 227: 0091 CONTINUE 02240373 ! 228: CT010* TEST 10 TEST LARGE VALUES FOR ARGUMENT REDUCTION 02250373 ! 229: IVTNUM = 10 02260373 ! 230: AVS = COS(200.0) 02270373 ! 231: IF (AVS - 0.48716E+00) 20100, 10100, 40100 02280373 ! 232: 40100 IF (AVS - 0.48722E+00) 10100, 10100, 20100 02290373 ! 233: 10100 IVPASS = IVPASS + 1 02300373 ! 234: WRITE (NUVI, 80002) IVTNUM 02310373 ! 235: GO TO 0101 02320373 ! 236: 20100 IVFAIL = IVFAIL + 1 02330373 ! 237: RVCORR = 0.48718767500701 02340373 ! 238: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02350373 ! 239: 0101 CONTINUE 02360373 ! 240: CT011* TEST 11 TEST LARGE VALUES FOR ARGUMENT REDUCTION 02370373 ! 241: IVTNUM = 11 02380373 ! 242: AVS = COS(-31416.0) 02390373 ! 243: IF (AVS - 0.99725E+00) 20110, 10110, 40110 02400373 ! 244: 40110 IF (AVS - 0.99736E+00) 10110, 10110, 20110 02410373 ! 245: 10110 IVPASS = IVPASS + 1 02420373 ! 246: WRITE (NUVI, 80002) IVTNUM 02430373 ! 247: GO TO 0111 02440373 ! 248: 20110 IVFAIL = IVFAIL + 1 02450373 ! 249: RVCORR = 0.99730272627420 02460373 ! 250: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02470373 ! 251: 0111 CONTINUE 02480373 ! 252: CT012* TEST 12 TEST VALUES NEAR PI/2 02490373 ! 253: IVTNUM = 12 02500373 ! 254: AVS = COS(1.5707963268) 02510373 ! 255: IF (AVS + 0.50000E-04) 20120, 10120, 40120 02520373 ! 256: 40120 IF (AVS - 0.50000E-04) 10120, 10120, 20120 02530373 ! 257: 10120 IVPASS = IVPASS + 1 02540373 ! 258: WRITE (NUVI, 80002) IVTNUM 02550373 ! 259: GO TO 0121 02560373 ! 260: 20120 IVFAIL = IVFAIL + 1 02570373 ! 261: RVCORR = 0.00000000000000 02580373 ! 262: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02590373 ! 263: 0121 CONTINUE 02600373 ! 264: CT013* TEST 13 (PI / 2) - 1/32 02610373 ! 265: IVTNUM = 13 02620373 ! 266: BVS = (1.5395463267) 02630373 ! 267: AVS = COS(BVS) 02640373 ! 268: IF (AVS - 0.31243E-01) 20130, 10130, 40130 02650373 ! 269: 40130 IF (AVS - 0.31247E-01) 10130, 10130, 20130 02660373 ! 270: 10130 IVPASS = IVPASS + 1 02670373 ! 271: WRITE (NUVI, 80002) IVTNUM 02680373 ! 272: GO TO 0131 02690373 ! 273: 20130 IVFAIL = IVFAIL + 1 02700373 ! 274: RVCORR = 0.03124491398533 02710373 ! 275: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02720373 ! 276: 0131 CONTINUE 02730373 ! 277: CT014* TEST 14 (PI / 2) + 1/16 02740373 ! 278: IVTNUM = 14 02750373 ! 279: AVS = COS(1.6332963267) 02760373 ! 280: IF (AVS + 0.62463E-01) 20140, 10140, 40140 02770373 ! 281: 40140 IF (AVS + 0.62456E-01) 10140, 10140, 20140 02780373 ! 282: 10140 IVPASS = IVPASS + 1 02790373 ! 283: WRITE (NUVI, 80002) IVTNUM 02800373 ! 284: GO TO 0141 02810373 ! 285: 20140 IVFAIL = IVFAIL + 1 02820373 ! 286: RVCORR = -0.06245931784238 02830373 ! 287: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02840373 ! 288: 0141 CONTINUE 02850373 ! 289: CT015* TEST 15 TEST VALUES NEAR 3*PI/2 02860373 ! 290: IVTNUM = 15 02870373 ! 291: BVS = 3.0 * PIVS / 2.0 02880373 ! 292: AVS = COS(BVS) 02890373 ! 293: IF (AVS + 0.50000E-04) 20150, 10150, 40150 02900373 ! 294: 40150 IF (AVS - 0.50000E-04) 10150, 10150, 20150 02910373 ! 295: 10150 IVPASS = IVPASS + 1 02920373 ! 296: WRITE (NUVI, 80002) IVTNUM 02930373 ! 297: GO TO 0151 02940373 ! 298: 20150 IVFAIL = IVFAIL + 1 02950373 ! 299: RVCORR = 0.00000000000000 02960373 ! 300: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02970373 ! 301: 0151 CONTINUE 02980373 ! 302: CT016* TEST 16 TEST VALUES NEAR 3*PI/2 02990373 ! 303: IVTNUM = 16 03000373 ! 304: BVS = (3.0 * PIVS / 2.0) - 1.0 / 16.0 03010373 ! 305: AVS = COS(BVS) 03020373 ! 306: IF (AVS + 0.62463E-01) 20160, 10160, 40160 03030373 ! 307: 40160 IF (AVS + 0.62456E-01) 10160, 10160, 20160 03040373 ! 308: 10160 IVPASS = IVPASS + 1 03050373 ! 309: WRITE (NUVI, 80002) IVTNUM 03060373 ! 310: GO TO 0161 03070373 ! 311: 20160 IVFAIL = IVFAIL + 1 03080373 ! 312: RVCORR = -0.06245931784238 03090373 ! 313: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 03100373 ! 314: 0161 CONTINUE 03110373 ! 315: CT017* TEST 17 TEST VALUES NEAR 3*PI/2 03120373 ! 316: IVTNUM = 17 03130373 ! 317: BVS = (3.0 * PIVS / 2.0) + 1.0 / 512.0 03140373 ! 318: AVS = COS(BVS) 03150373 ! 319: IF (AVS - 0.19530E-02) 20170, 10170, 40170 03160373 ! 320: 40170 IF (AVS - 0.19533E-02) 10170, 10170, 20170 03170373 ! 321: 10170 IVPASS = IVPASS + 1 03180373 ! 322: WRITE (NUVI, 80002) IVTNUM 03190373 ! 323: GO TO 0171 03200373 ! 324: 20170 IVFAIL = IVFAIL + 1 03210373 ! 325: RVCORR = 0.00195312375824 03220373 ! 326: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 03230373 ! 327: 70171 FORMAT (1H ,16X,34HINFORMATIVE - UNDER REVIEW BY FSTC) 03230*TI ! 328: WRITE (NUVI,70171) 03230*TI ! 329: 0171 CONTINUE 03240373 ! 330: CT018* TEST 18 ARGUMENT OF LOW MAGNITUDE 03250373 ! 331: IVTNUM = 18 03260373 ! 332: BVS = -3.141593E-35 03270373 ! 333: AVS = COS(BVS) 03280373 ! 334: IF (AVS - 0.99995E+00) 20180, 10180, 40180 03290373 ! 335: 40180 IF (AVS - 0.10001E+01) 10180, 10180, 20180 03300373 ! 336: 10180 IVPASS = IVPASS + 1 03310373 ! 337: WRITE (NUVI, 80002) IVTNUM 03320373 ! 338: GO TO 0181 03330373 ! 339: 20180 IVFAIL = IVFAIL + 1 03340373 ! 340: RVCORR = 1.00000000000000 03350373 ! 341: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 03360373 ! 342: 0181 CONTINUE 03370373 ! 343: CT019* TEST 19 THE FUNCTION APPLIED TWICE 03380373 ! 344: IVTNUM = 19 03390373 ! 345: AVS = COS(PIVS / 4.0) * COS(3.0 * PIVS / 4.0) 03400373 ! 346: IF (AVS + 0.50003E+00) 20190, 10190, 40190 03410373 ! 347: 40190 IF (AVS + 0.49997E+00) 10190, 10190, 20190 03420373 ! 348: 10190 IVPASS = IVPASS + 1 03430373 ! 349: WRITE (NUVI, 80002) IVTNUM 03440373 ! 350: GO TO 0191 03450373 ! 351: 20190 IVFAIL = IVFAIL + 1 03460373 ! 352: RVCORR = -0.50000000000000 03470373 ! 353: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 03480373 ! 354: 0191 CONTINUE 03490373 ! 355: C***** 03500373 ! 356: CBB** ********************** BBCSUM0 **********************************03510373 ! 357: C**** WRITE OUT TEST SUMMARY 03520373 ! 358: C**** 03530373 ! 359: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 03540373 ! 360: WRITE (I02, 90004) 03550373 ! 361: WRITE (I02, 90014) 03560373 ! 362: WRITE (I02, 90004) 03570373 ! 363: WRITE (I02, 90020) IVPASS 03580373 ! 364: WRITE (I02, 90022) IVFAIL 03590373 ! 365: WRITE (I02, 90024) IVDELE 03600373 ! 366: WRITE (I02, 90026) IVINSP 03610373 ! 367: WRITE (I02, 90028) IVTOTN, IVTOTL 03620373 ! 368: CBE** ********************** BBCSUM0 **********************************03630373 ! 369: CBB** ********************** BBCFOOT0 **********************************03640373 ! 370: C**** WRITE OUT REPORT FOOTINGS 03650373 ! 371: C**** 03660373 ! 372: WRITE (I02,90016) ZPROG, ZPROG 03670373 ! 373: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 03680373 ! 374: WRITE (I02,90019) 03690373 ! 375: CBE** ********************** BBCFOOT0 **********************************03700373 ! 376: CBB** ********************** BBCFMT0A **********************************03710373 ! 377: C**** FORMATS FOR TEST DETAIL LINES 03720373 ! 378: C**** 03730373 ! 379: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 03740373 ! 380: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 03750373 ! 381: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 03760373 ! 382: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 03770373 ! 383: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 03780373 ! 384: 1I6,/,1H ,15X,10HCORRECT= ,I6) 03790373 ! 385: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03800373 ! 386: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 03810373 ! 387: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03820373 ! 388: 1A21,/,1H ,16X,10HCORRECT= ,A21) 03830373 ! 389: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 03840373 ! 390: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 03850373 ! 391: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 03860373 ! 392: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 03870373 ! 393: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 03880373 ! 394: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 03890373 ! 395: 80050 FORMAT (1H ,48X,A31) 03900373 ! 396: CBE** ********************** BBCFMT0A **********************************03910373 ! 397: CBB** ********************** BBCFMT0B **********************************03920373 ! 398: C**** FORMAT STATEMENTS FOR PAGE HEADERS 03930373 ! 399: C**** 03940373 ! 400: 90002 FORMAT (1H1) 03950373 ! 401: 90004 FORMAT (1H ) 03960373 ! 402: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 03970373 ! 403: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03980373 ! 404: 90008 FORMAT (1H ,21X,A13,A17) 03990373 ! 405: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 04000373 ! 406: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 04010373 ! 407: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 04020373 ! 408: 1 7X,7HREMARKS,24X) 04030373 ! 409: 90014 FORMAT (1H ,46H----------------------------------------------, 04040373 ! 410: 1 33H---------------------------------) 04050373 ! 411: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 04060373 ! 412: C**** 04070373 ! 413: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 04080373 ! 414: C**** 04090373 ! 415: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 04100373 ! 416: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 04110373 ! 417: 1 A13) 04120373 ! 418: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 04130373 ! 419: C**** 04140373 ! 420: C**** FORMAT STATEMENTS FOR RUN SUMMARY 04150373 ! 421: C**** 04160373 ! 422: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 04170373 ! 423: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 04180373 ! 424: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 04190373 ! 425: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 04200373 ! 426: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 04210373 ! 427: CBE** ********************** BBCFMT0B **********************************04220373 ! 428: C***** 04230373 ! 429: C***** END OF TEST SEGMENT 189 04240373 ! 430: STOP 04250373 ! 431: END 04260373 ! 432: 04270373
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.