![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM819.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 FM819.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***********************************************************************00010819 ! 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 00020819 ! 6: C***** FM819 00030819 ! 7: C***** YDSIN - (187) 00040819 ! 8: C***** 00050819 ! 9: C***********************************************************************00060819 ! 10: C***** GENERAL PURPOSE ANS REF 00070819 ! 11: C***** TEST INTRINSIC FUNCTION DSIN 15.3 00080819 ! 12: C***** TABLE 5 00090819 ! 13: C***** 00100819 ! 14: CBB** ********************** BBCCOMNT **********************************00110819 ! 15: C**** 00120819 ! 16: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130819 ! 17: C**** VERSION 2.0 00140819 ! 18: C**** 00150819 ! 19: C**** 00160819 ! 20: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170819 ! 21: C**** GENERAL SERVICES ADMINISTRATION 00180819 ! 22: C**** FEDERAL SOFTWARE TESTING CENTER 00190819 ! 23: C**** 5203 LEESBURG PIKE, SUITE 1100 00200819 ! 24: C**** FALLS CHURCH, VA. 22041 00210819 ! 25: C**** 00220819 ! 26: C**** (703) 756-6153 00230819 ! 27: C**** 00240819 ! 28: CBE** ********************** BBCCOMNT **********************************00250819 ! 29: C***** S P E C I F I C A T I O N S SEGMENT 187 00260819 ! 30: DOUBLE PRECISION AVD, BVD, PIVD, DVCORR 00270819 ! 31: C***** 00280819 ! 32: CBB** ********************** BBCINITA **********************************00290819 ! 33: C**** SPECIFICATION STATEMENTS 00300819 ! 34: C**** 00310819 ! 35: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00320819 ! 36: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00330819 ! 37: CBE** ********************** BBCINITA **********************************00340819 ! 38: CBB** ********************** BBCINITB **********************************00350819 ! 39: C**** INITIALIZE SECTION 00360819 ! 40: DATA ZVERS, ZVERSD, ZDATE 00370819 ! 41: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00380819 ! 42: DATA ZCOMPL, ZNAME, ZTAPE 00390819 ! 43: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00400819 ! 44: DATA ZPROJ, ZTAPED, ZPROG 00410819 ! 45: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00420819 ! 46: DATA REMRKS /' '/ 00430819 ! 47: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00440819 ! 48: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00450819 ! 49: C**** 00460819 ! 50: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00470819 ! 51: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00480819 ! 52: CZ03 ZPROG = 'PROGRAM NAME' 00490819 ! 53: ZDATE = '07-Nov-85 ' *RP ! 54: ZCOMPL = 'CCI 5.2 ' *RP ! 55: ZPROJ = 'TC-85- -410' *RP ! 56: ZNAME = ' ' *RP ! 57: ZTAPE = ' ' *RP ! 58: ZTAPED = '850703 ' *RP ! 59: C 00560819 ! 60: IVPASS = 0 00570819 ! 61: IVFAIL = 0 00580819 ! 62: IVDELE = 0 00590819 ! 63: IVINSP = 0 00600819 ! 64: IVTOTL = 0 00610819 ! 65: IVTOTN = 0 00620819 ! 66: ICZERO = 0 00630819 ! 67: C 00640819 ! 68: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00650819 ! 69: I01 = 05 00660819 ! 70: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00670819 ! 71: I02 = 06 00680819 ! 72: C 00690819 ! 73: I01 = 5 00700819 ! 74: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00710819 ! 75: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00720819 ! 76: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00730819 ! 77: C 00740819 ! 78: I02 = 6 00750819 ! 79: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00760819 ! 80: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00770819 ! 81: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00780819 ! 82: C 00790819 ! 83: CBE** ********************** BBCINITB **********************************00800819 ! 84: NUVI = I02 00810819 ! 85: IVTOTL = 19 00820819 ! 86: ZPROG = 'FM819' 00830819 ! 87: CBB** ********************** BBCHED0A **********************************00840819 ! 88: C**** 00850819 ! 89: C**** WRITE REPORT TITLE 00860819 ! 90: C**** 00870819 ! 91: WRITE (I02, 90002) 00880819 ! 92: WRITE (I02, 90006) 00890819 ! 93: WRITE (I02, 90007) 00900819 ! 94: WRITE (I02, 90008) ZVERS, ZVERSD 00910819 ! 95: WRITE (I02, 90009) ZPROG, ZPROG 00920819 ! 96: WRITE (I02, 90010) ZDATE, ZCOMPL 00930819 ! 97: CBE** ********************** BBCHED0A **********************************00940819 ! 98: C***** 00950819 ! 99: C***** HEADER FOR SEGMENT 187 00960819 ! 100: WRITE(NUVI,18700) 00970819 ! 101: 18700 FORMAT(1H /34H YDSIN - (187) INTRINSIC FUNCTIONS// 00980819 ! 102: 1 32H DSIN - (DOUBLE PRECISION SINE)// 00990819 ! 103: 2 17H ANS REF. - 15.3) 01000819 ! 104: CBB** ********************** BBCHED0B **********************************01010819 ! 105: C**** WRITE DETAIL REPORT HEADERS 01020819 ! 106: C**** 01030819 ! 107: WRITE (I02,90004) 01040819 ! 108: WRITE (I02,90004) 01050819 ! 109: WRITE (I02,90013) 01060819 ! 110: WRITE (I02,90014) 01070819 ! 111: WRITE (I02,90015) IVTOTL 01080819 ! 112: CBE** ********************** BBCHED0B **********************************01090819 ! 113: C***** 01100819 ! 114: PIVD = 3.1415926535897932384626434D0 01110819 ! 115: C***** 01120819 ! 116: CT001* TEST 1 ZERO (0.0) SINCE SIN(0)=0 01130819 ! 117: IVTNUM = 1 01140819 ! 118: BVD = 0.0D0 01150819 ! 119: AVD = DSIN(BVD) 01160819 ! 120: IF (AVD + 0.5000000000D-09) 20010, 10010, 40010 01170819 ! 121: 40010 IF (AVD - 0.5000000000D-09) 10010, 10010, 20010 01180819 ! 122: 10010 IVPASS = IVPASS + 1 01190819 ! 123: WRITE (NUVI, 80002) IVTNUM 01200819 ! 124: GO TO 0011 01210819 ! 125: 20010 IVFAIL = IVFAIL + 1 01220819 ! 126: DVCORR = 0.00000000000000000000D+00 01230819 ! 127: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01240819 ! 128: 0011 CONTINUE 01250819 ! 129: CT002* TEST 2 PI 01260819 ! 130: IVTNUM = 2 01270819 ! 131: AVD = DSIN(PIVD) 01280819 ! 132: IF (AVD + 0.5000000000D-09) 20020, 10020, 40020 01290819 ! 133: 40020 IF (AVD - 0.5000000000D-09) 10020, 10020, 20020 01300819 ! 134: 10020 IVPASS = IVPASS + 1 01310819 ! 135: WRITE (NUVI, 80002) IVTNUM 01320819 ! 136: GO TO 0021 01330819 ! 137: 20020 IVFAIL = IVFAIL + 1 01340819 ! 138: DVCORR = 0.00000000000000000000D+00 01350819 ! 139: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01360819 ! 140: 0021 CONTINUE 01370819 ! 141: CT003* TEST 3 PI - 1/8 01380819 ! 142: IVTNUM = 3 01390819 ! 143: BVD = 3.01659265358979323846D0 01400819 ! 144: AVD = DSIN(BVD) 01410819 ! 145: IF (AVD - 0.1246747333D+00) 20030, 10030, 40030 01420819 ! 146: 40030 IF (AVD - 0.1246747335D+00) 10030, 10030, 20030 01430819 ! 147: 10030 IVPASS = IVPASS + 1 01440819 ! 148: WRITE (NUVI, 80002) IVTNUM 01450819 ! 149: GO TO 0031 01460819 ! 150: 20030 IVFAIL = IVFAIL + 1 01470819 ! 151: DVCORR = 0.12467473338522768996D+00 01480819 ! 152: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01490819 ! 153: 0031 CONTINUE 01500819 ! 154: CT004* TEST 4 PI - 1/16 01510819 ! 155: IVTNUM = 4 01520819 ! 156: AVD = DSIN(3.204092653589793238D0) 01530819 ! 157: IF (AVD + 0.6245931788D-01) 20040, 10040, 40040 01540819 ! 158: 40040 IF (AVD + 0.6245931781D-01) 10040, 10040, 20040 01550819 ! 159: 10040 IVPASS = IVPASS + 1 01560819 ! 160: WRITE (NUVI, 80002) IVTNUM 01570819 ! 161: GO TO 0041 01580819 ! 162: 20040 IVFAIL = IVFAIL + 1 01590819 ! 163: DVCORR = -0.062459317842380198585D+00 01600819 ! 164: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01610819 ! 165: 0041 CONTINUE 01620819 ! 166: CT005* TEST 5 2*PI 01630819 ! 167: IVTNUM = 5 01640819 ! 168: BVD = PIVD * 2.0D0 01650819 ! 169: AVD = DSIN(BVD) 01660819 ! 170: IF (AVD + 0.5000000000D-09) 20050, 10050, 40050 01670819 ! 171: 40050 IF (AVD - 0.5000000000D-09) 10050, 10050, 20050 01680819 ! 172: 10050 IVPASS = IVPASS + 1 01690819 ! 173: WRITE (NUVI, 80002) IVTNUM 01700819 ! 174: GO TO 0051 01710819 ! 175: 20050 IVFAIL = IVFAIL + 1 01720819 ! 176: DVCORR = 0.00000000000000000000D+00 01730819 ! 177: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01740819 ! 178: 0051 CONTINUE 01750819 ! 179: CT006* TEST 6 2*PI - 1/128 01760819 ! 180: IVTNUM = 6 01770819 ! 181: BVD = (2.0D0 * PIVD) - 1.0D0 / 128.0D0 01780819 ! 182: AVD = DSIN(BVD) 01790819 ! 183: IF (AVD + 0.7812420532D-02) 20060, 10060, 40060 01800819 ! 184: 40060 IF (AVD + 0.7812420523D-02) 10060, 10060, 20060 01810819 ! 185: 10060 IVPASS = IVPASS + 1 01820819 ! 186: WRITE (NUVI, 80002) IVTNUM 01830819 ! 187: GO TO 0061 01840819 ! 188: 20060 IVFAIL = IVFAIL + 1 01850819 ! 189: DVCORR = -0.0078124205273828310472D+00 01860819 ! 190: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01870819 ! 191: 0061 CONTINUE 01880819 ! 192: CT007* TEST 7 2*PI - 1/256 01890819 ! 193: IVTNUM = 7 01900819 ! 194: BVD = (2.0D0 * PIVD) + 1.0D0 / 256.0D0 01910819 ! 195: AVD = DSIN(BVD) 01920819 ! 196: IF (AVD - 0.3906240064D-02) 20070, 10070, 40070 01930819 ! 197: 40070 IF (AVD - 0.3906240068D-02) 10070, 10070, 20070 01940819 ! 198: 10070 IVPASS = IVPASS + 1 01950819 ! 199: WRITE (NUVI, 80002) IVTNUM 01960819 ! 200: GO TO 0071 01970819 ! 201: 20070 IVFAIL = IVFAIL + 1 01980819 ! 202: DVCORR = 0.0039062400659001165547D+00 01990819 ! 203: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02000819 ! 204: 0071 CONTINUE 02010819 ! 205: CT008* TEST 8 AN EXPRESSION SUPPLIED TO DSIN 02020819 ! 206: IVTNUM = 8 02030819 ! 207: BVD = 2000.0D0 02040819 ! 208: AVD = DSIN(BVD / 10.0D2) 02050819 ! 209: IF (AVD - 0.9092974263D+00) 20080, 10080, 40080 02060819 ! 210: 40080 IF (AVD - 0.9092974273D+00) 10080, 10080, 20080 02070819 ! 211: 10080 IVPASS = IVPASS + 1 02080819 ! 212: WRITE (NUVI, 80002) IVTNUM 02090819 ! 213: GO TO 0081 02100819 ! 214: 20080 IVFAIL = IVFAIL + 1 02110819 ! 215: DVCORR = 0.90929742682568169540D+00 02120819 ! 216: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02130819 ! 217: 0081 CONTINUE 02140819 ! 218: CT009* TEST 9 THE VALUE -2.0D0 02150819 ! 219: IVTNUM = 9 02160819 ! 220: BVD = -2.0D0 02170819 ! 221: AVD = DSIN(BVD) 02180819 ! 222: IF (AVD + 0.9092974273D+00) 20090, 10090, 40090 02190819 ! 223: 40090 IF (AVD + 0.9092974263D+00) 10090, 10090, 20090 02200819 ! 224: 10090 IVPASS = IVPASS + 1 02210819 ! 225: WRITE (NUVI, 80002) IVTNUM 02220819 ! 226: GO TO 0091 02230819 ! 227: 20090 IVFAIL = IVFAIL + 1 02240819 ! 228: DVCORR = -0.90929742682568169540D+00 02250819 ! 229: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02260819 ! 230: 0091 CONTINUE 02270819 ! 231: CT010* TEST 10 A LARGE VALUE TO TEST ARGUMENT REDUCTION 02280819 ! 232: IVTNUM = 10 02290819 ! 233: AVD = DSIN(100.0D0) 02300819 ! 234: IF (AVD + 0.5063656414D+00) 20100, 10100, 40100 02310819 ! 235: 40100 IF (AVD + 0.5063656408D+00) 10100, 10100, 20100 02320819 ! 236: 10100 IVPASS = IVPASS + 1 02330819 ! 237: WRITE (NUVI, 80002) IVTNUM 02340819 ! 238: GO TO 0101 02350819 ! 239: 20100 IVFAIL = IVFAIL + 1 02360819 ! 240: DVCORR = -0.50636564110975879366D+00 02370819 ! 241: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02380819 ! 242: 0101 CONTINUE 02390819 ! 243: CT011* TEST 11 A VERY LARGE VALUE 02400819 ! 244: IVTNUM = 11 02410819 ! 245: AVD = DSIN(-1000.0D0) 02420819 ! 246: IF (AVD + 0.8268795410D+00) 20110, 10110, 40110 02430819 ! 247: 40110 IF (AVD + 0.8268795401D+00) 10110, 10110, 20110 02440819 ! 248: 10110 IVPASS = IVPASS + 1 02450819 ! 249: WRITE (NUVI, 80002) IVTNUM 02460819 ! 250: GO TO 0111 02470819 ! 251: 20110 IVFAIL = IVFAIL + 1 02480819 ! 252: DVCORR = -0.82687954053200256026D+00 02490819 ! 253: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02500819 ! 254: 0111 CONTINUE 02510819 ! 255: CT012* TEST 12 PI/2 02520819 ! 256: IVTNUM = 12 02530819 ! 257: AVD = DSIN(1.57079632679489661923D0) 02540819 ! 258: IF (AVD - 0.9999999995D+00) 20120, 10120, 40120 02550819 ! 259: 40120 IF (AVD - 0.1000000001D+01) 10120, 10120, 20120 02560819 ! 260: 10120 IVPASS = IVPASS + 1 02570819 ! 261: WRITE (NUVI, 80002) IVTNUM 02580819 ! 262: GO TO 0121 02590819 ! 263: 20120 IVFAIL = IVFAIL + 1 02600819 ! 264: DVCORR = 1.0000000000000000000D+00 02610819 ! 265: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02620819 ! 266: 0121 CONTINUE 02630819 ! 267: CT013* TEST 13 (PI / 2) - 1/32 02640819 ! 268: IVTNUM = 13 02650819 ! 269: BVD = 1.53954632679489661923D0 02660819 ! 270: AVD = DSIN(BVD) 02670819 ! 271: IF (AVD - 0.9995117579D+00) 20130, 10130, 40130 02680819 ! 272: 40130 IF (AVD - 0.9995117590D+00) 10130, 10130, 20130 02690819 ! 273: 10130 IVPASS = IVPASS + 1 02700819 ! 274: WRITE (NUVI, 80002) IVTNUM 02710819 ! 275: GO TO 0131 02720819 ! 276: 20130 IVFAIL = IVFAIL + 1 02730819 ! 277: DVCORR = 0.99951175848513636924D+00 02740819 ! 278: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02750819 ! 279: 0131 CONTINUE 02760819 ! 280: CT014* TEST 14 (PI / 2) + 1/64 02770819 ! 281: IVTNUM = 14 02780819 ! 282: BVD = 1.58642132679489661923D0 02790819 ! 283: AVD = DSIN(BVD) 02800819 ! 284: IF (AVD - 0.9998779316D+00) 20140, 10140, 40140 02810819 ! 285: 40140 IF (AVD - 0.9998779327D+00) 10140, 10140, 20140 02820819 ! 286: 10140 IVPASS = IVPASS + 1 02830819 ! 287: WRITE (NUVI, 80002) IVTNUM 02840819 ! 288: GO TO 0141 02850819 ! 289: 20140 IVFAIL = IVFAIL + 1 02860819 ! 290: DVCORR = 0.99987793217100665474D+00 02870819 ! 291: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02880819 ! 292: 0141 CONTINUE 02890819 ! 293: CT015* TEST 15 3*PI/2 02900819 ! 294: IVTNUM = 15 02910819 ! 295: BVD = 3.0D0 * PIVD / 2.0D0 02920819 ! 296: AVD = DSIN(BVD) 02930819 ! 297: IF (AVD + 0.1000000001D+01) 20150, 10150, 40150 02940819 ! 298: 40150 IF (AVD + 0.9999999995D+00) 10150, 10150, 20150 02950819 ! 299: 10150 IVPASS = IVPASS + 1 02960819 ! 300: WRITE (NUVI, 80002) IVTNUM 02970819 ! 301: GO TO 0151 02980819 ! 302: 20150 IVFAIL = IVFAIL + 1 02990819 ! 303: DVCORR = -1.000000000000000000D+00 03000819 ! 304: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03010819 ! 305: 0151 CONTINUE 03020819 ! 306: CT016* TEST 16 3*PI/2 - 1/16 03030819 ! 307: IVTNUM = 16 03040819 ! 308: BVD = (3.0D0 * PIVD / 2.0D0) - 1.0D0 / 16.0D0 03050819 ! 309: AVD = DSIN(BVD) 03060819 ! 310: IF (AVD + 0.9980475112D+00) 20160, 10160, 40160 03070819 ! 311: 40160 IF (AVD + 0.9980475102D+00) 10160, 10160, 20160 03080819 ! 312: 10160 IVPASS = IVPASS + 1 03090819 ! 313: WRITE (NUVI, 80002) IVTNUM 03100819 ! 314: GO TO 0161 03110819 ! 315: 20160 IVFAIL = IVFAIL + 1 03120819 ! 316: DVCORR = -0.99804751070009914963D+00 03130819 ! 317: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03140819 ! 318: 0161 CONTINUE 03150819 ! 319: CT017* TEST 17 3*PI - 1/512 03160819 ! 320: IVTNUM = 17 03170819 ! 321: BVD = (3.0D0 * PIVD / 2.0D0) + 1.0D0 / 512.0D0 03180819 ! 322: AVD = DSIN(BVD) 03190819 ! 323: IF (AVD + 0.9999980932D+00) 20170, 10170, 40170 03200819 ! 324: 40170 IF (AVD + 0.9999980921D+00) 10170, 10170, 20170 03210819 ! 325: 10170 IVPASS = IVPASS + 1 03220819 ! 326: WRITE (NUVI, 80002) IVTNUM 03230819 ! 327: GO TO 0171 03240819 ! 328: 20170 IVFAIL = IVFAIL + 1 03250819 ! 329: DVCORR = -0.99999809265197351722D+00 03260819 ! 330: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03270819 ! 331: 0171 CONTINUE 03280819 ! 332: CT018* TEST 18 ARGUMENT OF LOW MAGNITUDE 03290819 ! 333: IVTNUM = 18 03300819 ! 334: BVD = PIVD * 1.0D-17 03310819 ! 335: AVD = DSIN(BVD) 03320819 ! 336: IF (AVD - 0.3141592652D-16) 20180, 10180, 40180 03330819 ! 337: 40180 IF (AVD - 0.3141592655D-16) 10180, 10180, 20180 03340819 ! 338: 10180 IVPASS = IVPASS + 1 03350819 ! 339: WRITE (NUVI, 80002) IVTNUM 03360819 ! 340: GO TO 0181 03370819 ! 341: 20180 IVFAIL = IVFAIL + 1 03380819 ! 342: DVCORR = 3.1415926535897932385D-17 03390819 ! 343: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03400819 ! 344: 0181 CONTINUE 03410819 ! 345: CT019* TEST 19 THE FUNCTION APPLIED TWICE 03420819 ! 346: IVTNUM = 19 03430819 ! 347: AVD = DSIN(PIVD / 4.0D0) * DSIN(3.0D0 * PIVD / 4.0D0) 03440819 ! 348: IF (AVD - 0.4999999997D+00) 20190, 10190, 40190 03450819 ! 349: 40190 IF (AVD - 0.5000000003D+00) 10190, 10190, 20190 03460819 ! 350: 10190 IVPASS = IVPASS + 1 03470819 ! 351: WRITE (NUVI, 80002) IVTNUM 03480819 ! 352: GO TO 0191 03490819 ! 353: 20190 IVFAIL = IVFAIL + 1 03500819 ! 354: DVCORR = 0.50000000000000000000D+00 03510819 ! 355: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03520819 ! 356: 0191 CONTINUE 03530819 ! 357: C***** 03540819 ! 358: CBB** ********************** BBCSUM0 **********************************03550819 ! 359: C**** WRITE OUT TEST SUMMARY 03560819 ! 360: C**** 03570819 ! 361: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 03580819 ! 362: WRITE (I02, 90004) 03590819 ! 363: WRITE (I02, 90014) 03600819 ! 364: WRITE (I02, 90004) 03610819 ! 365: WRITE (I02, 90020) IVPASS 03620819 ! 366: WRITE (I02, 90022) IVFAIL 03630819 ! 367: WRITE (I02, 90024) IVDELE 03640819 ! 368: WRITE (I02, 90026) IVINSP 03650819 ! 369: WRITE (I02, 90028) IVTOTN, IVTOTL 03660819 ! 370: CBE** ********************** BBCSUM0 **********************************03670819 ! 371: CBB** ********************** BBCFOOT0 **********************************03680819 ! 372: C**** WRITE OUT REPORT FOOTINGS 03690819 ! 373: C**** 03700819 ! 374: WRITE (I02,90016) ZPROG, ZPROG 03710819 ! 375: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 03720819 ! 376: WRITE (I02,90019) 03730819 ! 377: CBE** ********************** BBCFOOT0 **********************************03740819 ! 378: CBB** ********************** BBCFMT0A **********************************03750819 ! 379: C**** FORMATS FOR TEST DETAIL LINES 03760819 ! 380: C**** 03770819 ! 381: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 03780819 ! 382: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 03790819 ! 383: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 03800819 ! 384: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 03810819 ! 385: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 03820819 ! 386: 1I6,/,1H ,15X,10HCORRECT= ,I6) 03830819 ! 387: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03840819 ! 388: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 03850819 ! 389: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03860819 ! 390: 1A21,/,1H ,16X,10HCORRECT= ,A21) 03870819 ! 391: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 03880819 ! 392: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 03890819 ! 393: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 03900819 ! 394: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 03910819 ! 395: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 03920819 ! 396: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 03930819 ! 397: 80050 FORMAT (1H ,48X,A31) 03940819 ! 398: CBE** ********************** BBCFMT0A **********************************03950819 ! 399: CBB** ********************** BBCFMAT1 **********************************03960819 ! 400: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 03970819 ! 401: C**** 03980819 ! 402: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03990819 ! 403: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 04000819 ! 404: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 04010819 ! 405: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 04020819 ! 406: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 04030819 ! 407: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 04040819 ! 408: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 04050819 ! 409: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 04060819 ! 410: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 04070819 ! 411: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 04080819 ! 412: 21H(,F12.5,2H, ,F12.5,1H)) 04090819 ! 413: CBE** ********************** BBCFMAT1 **********************************04100819 ! 414: CBB** ********************** BBCFMT0B **********************************04110819 ! 415: C**** FORMAT STATEMENTS FOR PAGE HEADERS 04120819 ! 416: C**** 04130819 ! 417: 90002 FORMAT (1H1) 04140819 ! 418: 90004 FORMAT (1H ) 04150819 ! 419: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 04160819 ! 420: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 04170819 ! 421: 90008 FORMAT (1H ,21X,A13,A17) 04180819 ! 422: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 04190819 ! 423: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 04200819 ! 424: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 04210819 ! 425: 1 7X,7HREMARKS,24X) 04220819 ! 426: 90014 FORMAT (1H ,46H----------------------------------------------, 04230819 ! 427: 1 33H---------------------------------) 04240819 ! 428: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 04250819 ! 429: C**** 04260819 ! 430: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 04270819 ! 431: C**** 04280819 ! 432: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 04290819 ! 433: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 04300819 ! 434: 1 A13) 04310819 ! 435: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 04320819 ! 436: C**** 04330819 ! 437: C**** FORMAT STATEMENTS FOR RUN SUMMARY 04340819 ! 438: C**** 04350819 ! 439: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 04360819 ! 440: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 04370819 ! 441: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 04380819 ! 442: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 04390819 ! 443: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 04400819 ! 444: CBE** ********************** BBCFMT0B **********************************04410819 ! 445: C***** 04420819 ! 446: C***** END OF TEST SEGMENT 187 04430819 ! 447: STOP 04440819 ! 448: END 04450819 ! 449: 04460819
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.