![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM832.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 FM832.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***********************************************************************00010832 ! 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 00020832 ! 6: C***** FM832 00030832 ! 7: C***** YGEN5 - (210) 00040832 ! 8: C***** 00050832 ! 9: C***********************************************************************00060832 ! 10: C***** GENERAL PURPOSE ANS REF 00070832 ! 11: C***** TEST GENERIC FUNCTIONS 15.3 00080832 ! 12: C***** SQRT,EXP,LOG,LOG10,COS,SINH,TANH,ASIN,ATAN,ATAN2 TABLE 5 00090832 ! 13: C***** EACH FUNCTION IS FIRST CALLED WITH A REAL VALUE 00100832 ! 14: C***** AND THEN WITH A DOUBLE PRECISION VALUE 00110832 ! 15: C***** 00120832 ! 16: CBB** ********************** BBCCOMNT **********************************00130832 ! 17: C**** 00140832 ! 18: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00150832 ! 19: C**** VERSION 2.0 00160832 ! 20: C**** 00170832 ! 21: C**** 00180832 ! 22: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00190832 ! 23: C**** GENERAL SERVICES ADMINISTRATION 00200832 ! 24: C**** FEDERAL SOFTWARE TESTING CENTER 00210832 ! 25: C**** 5203 LEESBURG PIKE, SUITE 1100 00220832 ! 26: C**** FALLS CHURCH, VA. 22041 00230832 ! 27: C**** 00240832 ! 28: C**** (703) 756-6153 00250832 ! 29: C**** 00260832 ! 30: CBE** ********************** BBCCOMNT **********************************00270832 ! 31: C***** 00280832 ! 32: C***** S P E C I F I C A T I O N S SEGMENT 210 00290832 ! 33: DOUBLE PRECISION AVD, BVD, CVD, DVCORR 00300832 ! 34: C***** 00310832 ! 35: CBB** ********************** BBCINITA **********************************00320832 ! 36: C**** SPECIFICATION STATEMENTS 00330832 ! 37: C**** 00340832 ! 38: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00350832 ! 39: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00360832 ! 40: CBE** ********************** BBCINITA **********************************00370832 ! 41: CBB** ********************** BBCINITB **********************************00380832 ! 42: C**** INITIALIZE SECTION 00390832 ! 43: DATA ZVERS, ZVERSD, ZDATE 00400832 ! 44: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00410832 ! 45: DATA ZCOMPL, ZNAME, ZTAPE 00420832 ! 46: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00430832 ! 47: DATA ZPROJ, ZTAPED, ZPROG 00440832 ! 48: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00450832 ! 49: DATA REMRKS /' '/ 00460832 ! 50: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00470832 ! 51: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00480832 ! 52: C**** 00490832 ! 53: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00500832 ! 54: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00510832 ! 55: CZ03 ZPROG = 'PROGRAM NAME' 00520832 ! 56: ZDATE = '07-Nov-85 ' *RP ! 57: ZCOMPL = 'CCI 5.2 ' *RP ! 58: ZPROJ = 'TC-85- -410' *RP ! 59: ZNAME = ' ' *RP ! 60: ZTAPE = ' ' *RP ! 61: ZTAPED = '850703 ' *RP ! 62: C 00590832 ! 63: IVPASS = 0 00600832 ! 64: IVFAIL = 0 00610832 ! 65: IVDELE = 0 00620832 ! 66: IVINSP = 0 00630832 ! 67: IVTOTL = 0 00640832 ! 68: IVTOTN = 0 00650832 ! 69: ICZERO = 0 00660832 ! 70: C 00670832 ! 71: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00680832 ! 72: I01 = 05 00690832 ! 73: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00700832 ! 74: I02 = 06 00710832 ! 75: C 00720832 ! 76: I01 = 5 00730832 ! 77: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00740832 ! 78: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00750832 ! 79: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00760832 ! 80: C 00770832 ! 81: I02 = 6 00780832 ! 82: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00790832 ! 83: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00800832 ! 84: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00810832 ! 85: C 00820832 ! 86: CBE** ********************** BBCINITB **********************************00830832 ! 87: NUVI = I02 00840832 ! 88: IVTOTL = 20 00850832 ! 89: ZPROG = 'FM832' 00860832 ! 90: CBB** ********************** BBCHED0A **********************************00870832 ! 91: C**** 00880832 ! 92: C**** WRITE REPORT TITLE 00890832 ! 93: C**** 00900832 ! 94: WRITE (I02, 90002) 00910832 ! 95: WRITE (I02, 90006) 00920832 ! 96: WRITE (I02, 90007) 00930832 ! 97: WRITE (I02, 90008) ZVERS, ZVERSD 00940832 ! 98: WRITE (I02, 90009) ZPROG, ZPROG 00950832 ! 99: WRITE (I02, 90010) ZDATE, ZCOMPL 00960832 ! 100: CBE** ********************** BBCHED0A **********************************00970832 ! 101: C***** 00980832 ! 102: C***** HEADER FOR SEGMENT 210 00990832 ! 103: WRITE(NUVI,21000) 01000832 ! 104: 21000 FORMAT( 1H , / 35H YGEN5 - (210) GENERIC FUNCTIONS --// 01010832 ! 105: 1 50H SQRT,EXP,LOG,LOG10,COS,SINH,TANH,ASIN,ATAN,ATAN2// 01020832 ! 106: 2 17H ANS REF. - 15.3) 01030832 ! 107: CBB** ********************** BBCHED0B **********************************01040832 ! 108: C**** WRITE DETAIL REPORT HEADERS 01050832 ! 109: C**** 01060832 ! 110: WRITE (I02,90004) 01070832 ! 111: WRITE (I02,90004) 01080832 ! 112: WRITE (I02,90013) 01090832 ! 113: WRITE (I02,90014) 01100832 ! 114: WRITE (I02,90015) IVTOTL 01110832 ! 115: CBE** ********************** BBCHED0B **********************************01120832 ! 116: C***** 01130832 ! 117: C***** TEST WITH REAL ARGUMENTS 01140832 ! 118: C***** 01150832 ! 119: WRITE(NUVI, 21001) 01160832 ! 120: 21001 FORMAT (/ 8X, 24HTEST WITH REAL ARGUMENTS) 01170832 ! 121: CT001* TEST 1 TEST OF SQRT 01180832 ! 122: IVTNUM = 1 01190832 ! 123: AVS = 2.0 01200832 ! 124: BVS = 1.0 01210832 ! 125: AVD = SQRT(AVS*BVS) 01220832 ! 126: IF (AVD - 0.14141E+01) 20010, 10010, 40010 01230832 ! 127: 40010 IF (AVD - 0.14143E+01) 10010, 10010, 20010 01240832 ! 128: 10010 IVPASS = IVPASS + 1 01250832 ! 129: WRITE (NUVI, 80002) IVTNUM 01260832 ! 130: GO TO 0011 01270832 ! 131: 20010 IVFAIL = IVFAIL + 1 01280832 ! 132: RVCORR = 0.14142135381699E+01 01290832 ! 133: WRITE (NUVI, 80012) IVTNUM, AVD, RVCORR 01300832 ! 134: 0011 CONTINUE 01310832 ! 135: CT002* TEST 2 TEST OF EXP 01320832 ! 136: IVTNUM = 2 01330832 ! 137: AVS = 10.0 01340832 ! 138: AVD = EXP(AVS / 10.0) 01350832 ! 139: IF (AVD - 0.27181E+01) 20020, 10020, 40020 01360832 ! 140: 40020 IF (AVD - 0.27185E+01) 10020, 10020, 20020 01370832 ! 141: 10020 IVPASS = IVPASS + 1 01380832 ! 142: WRITE (NUVI, 80002) IVTNUM 01390832 ! 143: GO TO 0021 01400832 ! 144: 20020 IVFAIL = IVFAIL + 1 01410832 ! 145: RVCORR = 0.27182817459106E+01 01420832 ! 146: WRITE (NUVI, 80012) IVTNUM, AVD, RVCORR 01430832 ! 147: 0021 CONTINUE 01440832 ! 148: CT003* TEST 3 TEST OF LOG 01450832 ! 149: IVTNUM = 3 01460832 ! 150: AVS = 0.1234 01470832 ! 151: BVS = .0000567 01480832 ! 152: AVD = LOG(AVS + BVS) 01490832 ! 153: IF (AVD + 0.20920E+01) 20030, 10030, 40030 01500832 ! 154: 40030 IF (AVD + 0.20917E+01) 10030, 10030, 20030 01510832 ! 155: 10030 IVPASS = IVPASS + 1 01520832 ! 156: WRITE (NUVI, 80002) IVTNUM 01530832 ! 157: GO TO 0031 01540832 ! 158: 20030 IVFAIL = IVFAIL + 1 01550832 ! 159: RVCORR = -0.20918648242950E+01 01560832 ! 160: WRITE (NUVI, 80012) IVTNUM, AVD, RVCORR 01570832 ! 161: 0031 CONTINUE 01580832 ! 162: CT004* TEST 4 TEST OF LOG10 01590832 ! 163: IVTNUM = 4 01600832 ! 164: AVS = 0.375 01610832 ! 165: BVD = 3.75D0 01620832 ! 166: AVD = LOG10(AVS) 01630832 ! 167: IF (AVD + 0.42599E+00) 20040, 10040, 40040 01640832 ! 168: 40040 IF (AVD + 0.42594E+00) 10040, 10040, 20040 01650832 ! 169: 10040 IVPASS = IVPASS + 1 01660832 ! 170: WRITE (NUVI, 80002) IVTNUM 01670832 ! 171: GO TO 0041 01680832 ! 172: 20040 IVFAIL = IVFAIL + 1 01690832 ! 173: RVCORR = -0.42596873641014E+00 01700832 ! 174: WRITE (NUVI, 80012) IVTNUM, AVD, RVCORR 01710832 ! 175: 0041 CONTINUE 01720832 ! 176: CT005* TEST 5 TEST OF COS 01730832 ! 177: IVTNUM = 5 01740832 ! 178: AVS = .25 01750832 ! 179: AVD = COS(AVS*2) 01760832 ! 180: IF (AVD - 0.87753E+00) 20050, 10050, 40050 01770832 ! 181: 40050 IF (AVD - 0.87763E+00) 10050, 10050, 20050 01780832 ! 182: 10050 IVPASS = IVPASS + 1 01790832 ! 183: WRITE (NUVI, 80002) IVTNUM 01800832 ! 184: GO TO 0051 01810832 ! 185: 20050 IVFAIL = IVFAIL + 1 01820832 ! 186: RVCORR = 0.87758255004883E+00 01830832 ! 187: WRITE (NUVI, 80012) IVTNUM, AVD, RVCORR 01840832 ! 188: 0051 CONTINUE 01850832 ! 189: CT006* TEST 6 TEST OF SINH 01860832 ! 190: IVTNUM = 6 01870832 ! 191: AVD = SINH(AVS+3.0) 01880832 ! 192: IF (AVD - 0.12875E+02) 20060, 10060, 40060 01890832 ! 193: 40060 IF (AVD - 0.12877E+02) 10060, 10060, 20060 01900832 ! 194: 10060 IVPASS = IVPASS + 1 01910832 ! 195: WRITE (NUVI, 80002) IVTNUM 01920832 ! 196: GO TO 0061 01930832 ! 197: 20060 IVFAIL = IVFAIL + 1 01940832 ! 198: RVCORR = 0.12875782966614E+02 01950832 ! 199: WRITE (NUVI, 80012) IVTNUM, AVD, RVCORR 01960832 ! 200: 0061 CONTINUE 01970832 ! 201: CT007* TEST 7 TEST OF TANH 01980832 ! 202: IVTNUM = 7 01990832 ! 203: CVD = 0.5D1 02000832 ! 204: AVD = TANH(AVS*20.0) 02010832 ! 205: IF (AVD - 0.99986E+00) 20070, 10070, 40070 02020832 ! 206: 40070 IF (AVD - 0.99996E+00) 10070, 10070, 20070 02030832 ! 207: 10070 IVPASS = IVPASS + 1 02040832 ! 208: WRITE (NUVI, 80002) IVTNUM 02050832 ! 209: GO TO 0071 02060832 ! 210: 20070 IVFAIL = IVFAIL + 1 02070832 ! 211: RVCORR = 0.99990922212601E+00 02080832 ! 212: WRITE (NUVI, 80012) IVTNUM, AVD, RVCORR 02090832 ! 213: 0071 CONTINUE 02100832 ! 214: CT008* TEST 8 TEST OF ASIN 02110832 ! 215: IVTNUM = 8 02120832 ! 216: AVD = ASIN(AVS*4.0) 02130832 ! 217: IF (AVD - 0.15707E+01) 20080, 10080, 40080 02140832 ! 218: 40080 IF (AVD - 0.15709E+01) 10080, 10080, 20080 02150832 ! 219: 10080 IVPASS = IVPASS + 1 02160832 ! 220: WRITE (NUVI, 80002) IVTNUM 02170832 ! 221: GO TO 0081 02180832 ! 222: 20080 IVFAIL = IVFAIL + 1 02190832 ! 223: RVCORR = 0.15707963705063E+01 02200832 ! 224: WRITE (NUVI, 80012) IVTNUM, AVD, RVCORR 02210832 ! 225: 0081 CONTINUE 02220832 ! 226: CT009* TEST 9 TEST OF ATAN 02230832 ! 227: IVTNUM = 9 02240832 ! 228: AVS = 500.0 02250832 ! 229: AVD = ATAN(-2.0*AVS) 02260832 ! 230: IF (AVD + 0.15699E+01) 20090, 10090, 40090 02270832 ! 231: 40090 IF (AVD + 0.15697E+01) 10090, 10090, 20090 02280832 ! 232: 10090 IVPASS = IVPASS + 1 02290832 ! 233: WRITE (NUVI, 80002) IVTNUM 02300832 ! 234: GO TO 0091 02310832 ! 235: 20090 IVFAIL = IVFAIL + 1 02320832 ! 236: RVCORR = -0.15697963237762E+01 02330832 ! 237: WRITE (NUVI, 80012) IVTNUM, AVD, RVCORR 02340832 ! 238: 0091 CONTINUE 02350832 ! 239: CT010* TEST 10 TEST OF ATAN2 02360832 ! 240: IVTNUM = 10 02370832 ! 241: AVS = 0.0 02380832 ! 242: BVS = -5.0 02390832 ! 243: AVD = ATAN2(AVS, BVS) 02400832 ! 244: IF (AVD - 0.31414E+01) 20100, 10100, 40100 02410832 ! 245: 40100 IF (AVD - 0.31418E+01) 10100, 10100, 20100 02420832 ! 246: 10100 IVPASS = IVPASS + 1 02430832 ! 247: WRITE (NUVI, 80002) IVTNUM 02440832 ! 248: GO TO 0101 02450832 ! 249: 20100 IVFAIL = IVFAIL + 1 02460832 ! 250: RVCORR = 0.31415927410126E+01 02470832 ! 251: WRITE (NUVI, 80012) IVTNUM, AVD, RVCORR 02480832 ! 252: 0101 CONTINUE 02490832 ! 253: C***** 02500832 ! 254: WRITE (NUVI, 90002) 02510832 ! 255: WRITE (NUVI, 90013) 02520832 ! 256: WRITE (NUVI, 90014) 02530832 ! 257: C***** 02540832 ! 258: C***** TEST WITH DOUBLE PRECISION ARGUMENTS 02550832 ! 259: C***** 02560832 ! 260: WRITE (NUVI, 21002) 02570832 ! 261: 21002 FORMAT (/ 08X, 36HTEST WITH DOUBLE PRECISION ARGUMENTS) 02580832 ! 262: CT011* TEST 11 TEST OF SQRT 02590832 ! 263: IVTNUM = 11 02600832 ! 264: AVS = 2.0 02610832 ! 265: BVS = 1.0 02620832 ! 266: BVD = SQRT(DBLE(AVS)) 02630832 ! 267: IF (BVD - 0.1414213561D+01) 20110, 10110, 40110 02640832 ! 268: 40110 IF (BVD - 0.1414213563D+01) 10110, 10110, 20110 02650832 ! 269: 10110 IVPASS = IVPASS + 1 02660832 ! 270: WRITE (NUVI, 80002) IVTNUM 02670832 ! 271: GO TO 0111 02680832 ! 272: 20110 IVFAIL = IVFAIL + 1 02690832 ! 273: DVCORR = 0.14142135623731D+01 02700832 ! 274: WRITE (NUVI, 80031) IVTNUM, BVD, DVCORR 02710832 ! 275: 0111 CONTINUE 02720832 ! 276: CT012* TEST 12 TEST OF EXP 02730832 ! 277: IVTNUM = 12 02740832 ! 278: AVS = 10.0 02750832 ! 279: BVD = EXP(1.0D0) 02760832 ! 280: IF (BVD - 0.2718281827D+01) 20120, 10120, 40120 02770832 ! 281: 40120 IF (BVD - 0.2718281830D+01) 10120, 10120, 20120 02780832 ! 282: 10120 IVPASS = IVPASS + 1 02790832 ! 283: WRITE (NUVI, 80002) IVTNUM 02800832 ! 284: GO TO 0121 02810832 ! 285: 20120 IVFAIL = IVFAIL + 1 02820832 ! 286: DVCORR = 0.27182818284590D+01 02830832 ! 287: WRITE (NUVI, 80031) IVTNUM, BVD, DVCORR 02840832 ! 288: 0121 CONTINUE 02850832 ! 289: CT013* TEST 13 TEST OF LOG 02860832 ! 290: IVTNUM = 13 02870832 ! 291: AVS = 0.1234 02880832 ! 292: BVS = .0000567 02890832 ! 293: BVD = LOG(0.1234567D0) 02900832 ! 294: IF (BVD + 0.2091864793D+01) 20130, 10130, 40130 02910832 ! 295: 40130 IF (BVD + 0.2091864790D+01) 10130, 10130, 20130 02920832 ! 296: 10130 IVPASS = IVPASS + 1 02930832 ! 297: WRITE (NUVI, 80002) IVTNUM 02940832 ! 298: GO TO 0131 02950832 ! 299: 20130 IVFAIL = IVFAIL + 1 02960832 ! 300: DVCORR = -0.20918647916786D+01 02970832 ! 301: WRITE (NUVI, 80031) IVTNUM, BVD, DVCORR 02980832 ! 302: 0131 CONTINUE 02990832 ! 303: CT014* TEST 14 TEST OF LOG10 03000832 ! 304: IVTNUM = 14 03010832 ! 305: AVS = 0.375 03020832 ! 306: BVD = 3.75D0 03030832 ! 307: BVD = LOG10(BVD / 1.0D1) 03040832 ! 308: IF (BVD + 0.4259687325D+00) 20140, 10140, 40140 03050832 ! 309: 40140 IF (BVD + 0.4259687320D+00) 10140, 10140, 20140 03060832 ! 310: 10140 IVPASS = IVPASS + 1 03070832 ! 311: WRITE (NUVI, 80002) IVTNUM 03080832 ! 312: GO TO 0141 03090832 ! 313: 20140 IVFAIL = IVFAIL + 1 03100832 ! 314: DVCORR = -0.42596873227228D+00 03110832 ! 315: WRITE (NUVI, 80031) IVTNUM, BVD, DVCORR 03120832 ! 316: 0141 CONTINUE 03130832 ! 317: CT015* TEST 15 TEST OF COS 03140832 ! 318: IVTNUM = 15 03150832 ! 319: AVS = .25 03160832 ! 320: BVD = COS(0.5D0) 03170832 ! 321: IF (BVD - 0.8775825614D+00) 20150, 10150, 40150 03180832 ! 322: 40150 IF (BVD - 0.8775825624D+00) 10150, 10150, 20150 03190832 ! 323: 10150 IVPASS = IVPASS + 1 03200832 ! 324: WRITE (NUVI, 80002) IVTNUM 03210832 ! 325: GO TO 0151 03220832 ! 326: 20150 IVFAIL = IVFAIL + 1 03230832 ! 327: DVCORR = 0.87758256189037D+00 03240832 ! 328: WRITE (NUVI, 80031) IVTNUM, BVD, DVCORR 03250832 ! 329: 0151 CONTINUE 03260832 ! 330: CT016* TEST 16 TEST OF SINH 03270832 ! 331: IVTNUM = 16 03280832 ! 332: BVD = SINH(3.25D0) 03290832 ! 333: IF (BVD - 0.1287578284D+02) 20160, 10160, 40160 03300832 ! 334: 40160 IF (BVD - 0.1287578286D+02) 10160, 10160, 20160 03310832 ! 335: 10160 IVPASS = IVPASS + 1 03320832 ! 336: WRITE (NUVI, 80002) IVTNUM 03330832 ! 337: GO TO 0161 03340832 ! 338: 20160 IVFAIL = IVFAIL + 1 03350832 ! 339: DVCORR = 0.12875782854681D+02 03360832 ! 340: WRITE (NUVI, 80031) IVTNUM, BVD, DVCORR 03370832 ! 341: 0161 CONTINUE 03380832 ! 342: CT017* TEST 17 TEST OF TANH 03390832 ! 343: IVTNUM = 17 03400832 ! 344: CVD = 0.5D1 03410832 ! 345: BVD = TANH(CVD) 03420832 ! 346: IF (BVD - 0.9999092037D+00) 20170, 10170, 40170 03430832 ! 347: 40170 IF (BVD - 0.9999092048D+00) 10170, 10170, 20170 03440832 ! 348: 10170 IVPASS = IVPASS + 1 03450832 ! 349: WRITE (NUVI, 80002) IVTNUM 03460832 ! 350: GO TO 0171 03470832 ! 351: 20170 IVFAIL = IVFAIL + 1 03480832 ! 352: DVCORR = 0.99990920426260D+00 03490832 ! 353: WRITE (NUVI, 80031) IVTNUM, BVD, DVCORR 03500832 ! 354: 0171 CONTINUE 03510832 ! 355: CT018* TEST 18 TEST OF ASIN 03520832 ! 356: IVTNUM = 18 03530832 ! 357: BVD = ASIN(100.0D0 / 1.0D2) 03540832 ! 358: IF (BVD - 0.1570796326D+01) 20180, 10180, 40180 03550832 ! 359: 40180 IF (BVD - 0.1570796328D+01) 10180, 10180, 20180 03560832 ! 360: 10180 IVPASS = IVPASS + 1 03570832 ! 361: WRITE (NUVI, 80002) IVTNUM 03580832 ! 362: GO TO 0181 03590832 ! 363: 20180 IVFAIL = IVFAIL + 1 03600832 ! 364: DVCORR = 0.15707963267949D+01 03610832 ! 365: WRITE (NUVI, 80031) IVTNUM, BVD, DVCORR 03620832 ! 366: 0181 CONTINUE 03630832 ! 367: CT019* TEST 19 TEST OF ATAN 03640832 ! 368: IVTNUM = 19 03650832 ! 369: AVS = 500.0 03660832 ! 370: BVD = ATAN(-1.0D3) 03670832 ! 371: IF (BVD + 0.1569796328D+01) 20190, 10190, 40190 03680832 ! 372: 40190 IF (BVD + 0.1569796326D+01) 10190, 10190, 20190 03690832 ! 373: 10190 IVPASS = IVPASS + 1 03700832 ! 374: WRITE (NUVI, 80002) IVTNUM 03710832 ! 375: GO TO 0191 03720832 ! 376: 20190 IVFAIL = IVFAIL + 1 03730832 ! 377: DVCORR = -0.15697963271282D+01 03740832 ! 378: WRITE (NUVI, 80031) IVTNUM, BVD, DVCORR 03750832 ! 379: 0191 CONTINUE 03760832 ! 380: CT020* TEST 20 TEST OF ATAN2 03770832 ! 381: IVTNUM = 20 03780832 ! 382: AVS = 0.0 03790832 ! 383: BVS = -5.0 03800832 ! 384: BVD = ATAN2(0.0D0, -5.0D0) 03810832 ! 385: IF (BVD - 0.3141592652D+01) 20200, 10200, 40200 03820832 ! 386: 40200 IF (BVD - 0.3141592655D+01) 10200, 10200, 20200 03830832 ! 387: 10200 IVPASS = IVPASS + 1 03840832 ! 388: WRITE (NUVI, 80002) IVTNUM 03850832 ! 389: GO TO 0201 03860832 ! 390: 20200 IVFAIL = IVFAIL + 1 03870832 ! 391: DVCORR = 0.31415926535898D+01 03880832 ! 392: WRITE (NUVI, 80031) IVTNUM, BVD, DVCORR 03890832 ! 393: 0201 CONTINUE 03900832 ! 394: C***** 03910832 ! 395: CBB** ********************** BBCSUM0 **********************************03920832 ! 396: C**** WRITE OUT TEST SUMMARY 03930832 ! 397: C**** 03940832 ! 398: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 03950832 ! 399: WRITE (I02, 90004) 03960832 ! 400: WRITE (I02, 90014) 03970832 ! 401: WRITE (I02, 90004) 03980832 ! 402: WRITE (I02, 90020) IVPASS 03990832 ! 403: WRITE (I02, 90022) IVFAIL 04000832 ! 404: WRITE (I02, 90024) IVDELE 04010832 ! 405: WRITE (I02, 90026) IVINSP 04020832 ! 406: WRITE (I02, 90028) IVTOTN, IVTOTL 04030832 ! 407: CBE** ********************** BBCSUM0 **********************************04040832 ! 408: CBB** ********************** BBCFOOT0 **********************************04050832 ! 409: C**** WRITE OUT REPORT FOOTINGS 04060832 ! 410: C**** 04070832 ! 411: WRITE (I02,90016) ZPROG, ZPROG 04080832 ! 412: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 04090832 ! 413: WRITE (I02,90019) 04100832 ! 414: CBE** ********************** BBCFOOT0 **********************************04110832 ! 415: CBB** ********************** BBCFMT0A **********************************04120832 ! 416: C**** FORMATS FOR TEST DETAIL LINES 04130832 ! 417: C**** 04140832 ! 418: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 04150832 ! 419: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 04160832 ! 420: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 04170832 ! 421: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 04180832 ! 422: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 04190832 ! 423: 1I6,/,1H ,15X,10HCORRECT= ,I6) 04200832 ! 424: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 04210832 ! 425: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 04220832 ! 426: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 04230832 ! 427: 1A21,/,1H ,16X,10HCORRECT= ,A21) 04240832 ! 428: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 04250832 ! 429: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 04260832 ! 430: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 04270832 ! 431: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 04280832 ! 432: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 04290832 ! 433: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 04300832 ! 434: 80050 FORMAT (1H ,48X,A31) 04310832 ! 435: CBE** ********************** BBCFMT0A **********************************04320832 ! 436: CBB** ********************** BBCFMAT1 **********************************04330832 ! 437: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 04340832 ! 438: C**** 04350832 ! 439: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 04360832 ! 440: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 04370832 ! 441: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 04380832 ! 442: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 04390832 ! 443: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 04400832 ! 444: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 04410832 ! 445: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 04420832 ! 446: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 04430832 ! 447: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 04440832 ! 448: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 04450832 ! 449: 21H(,F12.5,2H, ,F12.5,1H)) 04460832 ! 450: CBE** ********************** BBCFMAT1 **********************************04470832 ! 451: CBB** ********************** BBCFMT0B **********************************04480832 ! 452: C**** FORMAT STATEMENTS FOR PAGE HEADERS 04490832 ! 453: C**** 04500832 ! 454: 90002 FORMAT (1H1) 04510832 ! 455: 90004 FORMAT (1H ) 04520832 ! 456: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 04530832 ! 457: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 04540832 ! 458: 90008 FORMAT (1H ,21X,A13,A17) 04550832 ! 459: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 04560832 ! 460: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 04570832 ! 461: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 04580832 ! 462: 1 7X,7HREMARKS,24X) 04590832 ! 463: 90014 FORMAT (1H ,46H----------------------------------------------, 04600832 ! 464: 1 33H---------------------------------) 04610832 ! 465: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 04620832 ! 466: C**** 04630832 ! 467: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 04640832 ! 468: C**** 04650832 ! 469: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 04660832 ! 470: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 04670832 ! 471: 1 A13) 04680832 ! 472: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 04690832 ! 473: C**** 04700832 ! 474: C**** FORMAT STATEMENTS FOR RUN SUMMARY 04710832 ! 475: C**** 04720832 ! 476: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 04730832 ! 477: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 04740832 ! 478: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 04750832 ! 479: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 04760832 ! 480: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 04770832 ! 481: CBE** ********************** BBCFMT0B **********************************04780832 ! 482: C***** 04790832 ! 483: C***** END OF TEST SEGMENT 210 04800832 ! 484: STOP 04810832 ! 485: END 04820832
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.