![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM821.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 FM821.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***********************************************************************00010821 ! 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 00020821 ! 6: C***** FM821 00030821 ! 7: C***** YDCOS - (190) 00040821 ! 8: C***** 00050821 ! 9: C***********************************************************************00060821 ! 10: C***** GENERAL PURPOSE ANS REF 00070821 ! 11: C***** TEST INTRINSIC FUNCTION DCOS 15.3 00080821 ! 12: C***** TABLE 5 00090821 ! 13: C***** 00100821 ! 14: CBB** ********************** BBCCOMNT **********************************00110821 ! 15: C**** 00120821 ! 16: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130821 ! 17: C**** VERSION 2.0 00140821 ! 18: C**** 00150821 ! 19: C**** 00160821 ! 20: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170821 ! 21: C**** GENERAL SERVICES ADMINISTRATION 00180821 ! 22: C**** FEDERAL SOFTWARE TESTING CENTER 00190821 ! 23: C**** 5203 LEESBURG PIKE, SUITE 1100 00200821 ! 24: C**** FALLS CHURCH, VA. 22041 00210821 ! 25: C**** 00220821 ! 26: C**** (703) 756-6153 00230821 ! 27: C**** 00240821 ! 28: CBE** ********************** BBCCOMNT **********************************00250821 ! 29: C***** 00260821 ! 30: C***** S P E C I F I C A T I O N S SEGMENT 190 00270821 ! 31: DOUBLE PRECISION AVD, BVD, PIVD, DVCORR 00280821 ! 32: C***** 00290821 ! 33: CBB** ********************** BBCINITA **********************************00300821 ! 34: C**** SPECIFICATION STATEMENTS 00310821 ! 35: C**** 00320821 ! 36: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00330821 ! 37: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00340821 ! 38: CBE** ********************** BBCINITA **********************************00350821 ! 39: CBB** ********************** BBCINITB **********************************00360821 ! 40: C**** INITIALIZE SECTION 00370821 ! 41: DATA ZVERS, ZVERSD, ZDATE 00380821 ! 42: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00390821 ! 43: DATA ZCOMPL, ZNAME, ZTAPE 00400821 ! 44: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00410821 ! 45: DATA ZPROJ, ZTAPED, ZPROG 00420821 ! 46: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00430821 ! 47: DATA REMRKS /' '/ 00440821 ! 48: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00450821 ! 49: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00460821 ! 50: C**** 00470821 ! 51: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00480821 ! 52: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00490821 ! 53: CZ03 ZPROG = 'PROGRAM NAME' 00500821 ! 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 00570821 ! 61: IVPASS = 0 00580821 ! 62: IVFAIL = 0 00590821 ! 63: IVDELE = 0 00600821 ! 64: IVINSP = 0 00610821 ! 65: IVTOTL = 0 00620821 ! 66: IVTOTN = 0 00630821 ! 67: ICZERO = 0 00640821 ! 68: C 00650821 ! 69: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00660821 ! 70: I01 = 05 00670821 ! 71: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00680821 ! 72: I02 = 06 00690821 ! 73: C 00700821 ! 74: I01 = 5 00710821 ! 75: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00720821 ! 76: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00730821 ! 77: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00740821 ! 78: C 00750821 ! 79: I02 = 6 00760821 ! 80: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00770821 ! 81: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00780821 ! 82: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00790821 ! 83: C 00800821 ! 84: CBE** ********************** BBCINITB **********************************00810821 ! 85: NUVI = I02 00820821 ! 86: IVTOTL = 19 00830821 ! 87: ZPROG = 'FM821' 00840821 ! 88: CBB** ********************** BBCHED0A **********************************00850821 ! 89: C**** 00860821 ! 90: C**** WRITE REPORT TITLE 00870821 ! 91: C**** 00880821 ! 92: WRITE (I02, 90002) 00890821 ! 93: WRITE (I02, 90006) 00900821 ! 94: WRITE (I02, 90007) 00910821 ! 95: WRITE (I02, 90008) ZVERS, ZVERSD 00920821 ! 96: WRITE (I02, 90009) ZPROG, ZPROG 00930821 ! 97: WRITE (I02, 90010) ZDATE, ZCOMPL 00940821 ! 98: CBE** ********************** BBCHED0A **********************************00950821 ! 99: C***** 00960821 ! 100: C***** HEADER FOR SEGMENT 190 00970821 ! 101: WRITE(NUVI,19000) 00980821 ! 102: 19000 FORMAT(1H /34H YDCOS - (190) INTRINSIC FUNCTIONS// 00990821 ! 103: 1 32H DCOS (DOUBLE PRECISION COSINE)// 01000821 ! 104: 2 17H ANS REF. - 15.3) 01010821 ! 105: CBB** ********************** BBCHED0B **********************************01020821 ! 106: C**** WRITE DETAIL REPORT HEADERS 01030821 ! 107: C**** 01040821 ! 108: WRITE (I02,90004) 01050821 ! 109: WRITE (I02,90004) 01060821 ! 110: WRITE (I02,90013) 01070821 ! 111: WRITE (I02,90014) 01080821 ! 112: WRITE (I02,90015) IVTOTL 01090821 ! 113: CBE** ********************** BBCHED0B **********************************01100821 ! 114: C***** 01110821 ! 115: PIVD = 3.1415926535897932384626434D0 01120821 ! 116: C***** 01130821 ! 117: CT001* TEST 1 ZERO (0.0), SINCE COS(0)=1 01140821 ! 118: IVTNUM = 1 01150821 ! 119: BVD = 0.0D0 01160821 ! 120: AVD = DCOS(BVD) 01170821 ! 121: IF (AVD - 0.9999999995D+00) 20010, 10010, 40010 01180821 ! 122: 40010 IF (AVD - 0.1000000001D+01) 10010, 10010, 20010 01190821 ! 123: 10010 IVPASS = IVPASS + 1 01200821 ! 124: WRITE (NUVI, 80002) IVTNUM 01210821 ! 125: GO TO 0011 01220821 ! 126: 20010 IVFAIL = IVFAIL + 1 01230821 ! 127: DVCORR = 1.00000000000000000000D+00 01240821 ! 128: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01250821 ! 129: 0011 CONTINUE 01260821 ! 130: CT002* TEST 2 VALUES NEAR PI 01270821 ! 131: IVTNUM = 2 01280821 ! 132: AVD = DCOS(PIVD) 01290821 ! 133: IF (AVD + 0.1000000001D+01) 20020, 10020, 40020 01300821 ! 134: 40020 IF (AVD + 0.9999999995D+00) 10020, 10020, 20020 01310821 ! 135: 10020 IVPASS = IVPASS + 1 01320821 ! 136: WRITE (NUVI, 80002) IVTNUM 01330821 ! 137: GO TO 0021 01340821 ! 138: 20020 IVFAIL = IVFAIL + 1 01350821 ! 139: DVCORR = -1.00000000000000000000D+00 01360821 ! 140: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01370821 ! 141: 0021 CONTINUE 01380821 ! 142: CT003* TEST 3 PI - 1/16 01390821 ! 143: IVTNUM = 3 01400821 ! 144: BVD = 3.07909265358979323846D0 01410821 ! 145: AVD = DCOS(BVD) 01420821 ! 146: IF (AVD + 0.9980475112D+00) 20030, 10030, 40030 01430821 ! 147: 40030 IF (AVD + 0.9980475102D+00) 10030, 10030, 20030 01440821 ! 148: 10030 IVPASS = IVPASS + 1 01450821 ! 149: WRITE (NUVI, 80002) IVTNUM 01460821 ! 150: GO TO 0031 01470821 ! 151: 20030 IVFAIL = IVFAIL + 1 01480821 ! 152: DVCORR = -0.99804751070009914963D+00 01490821 ! 153: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01500821 ! 154: 0031 CONTINUE 01510821 ! 155: CT004* TEST 4 PI + 1/32 01520821 ! 156: IVTNUM = 4 01530821 ! 157: AVD = DCOS(3.17284265358979323846D0) 01540821 ! 158: IF (AVD + 0.9995117590D+00) 20040, 10040, 40040 01550821 ! 159: 40040 IF (AVD + 0.9995117580D+00) 10040, 10040, 20040 01560821 ! 160: 10040 IVPASS = IVPASS + 1 01570821 ! 161: WRITE (NUVI, 80002) IVTNUM 01580821 ! 162: GO TO 0041 01590821 ! 163: 20040 IVFAIL = IVFAIL + 1 01600821 ! 164: DVCORR = -0.99951175848513636924D+00 01610821 ! 165: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01620821 ! 166: 0041 CONTINUE 01630821 ! 167: CT005* TEST 5 VALUES NEAR 2*PI 01640821 ! 168: IVTNUM = 5 01650821 ! 169: BVD = PIVD * 2.0D0 01660821 ! 170: AVD = DCOS(BVD) 01670821 ! 171: IF (AVD - 0.9999999995D+00) 20050, 10050, 40050 01680821 ! 172: 40050 IF (AVD - 0.1000000001D+01) 10050, 10050, 20050 01690821 ! 173: 10050 IVPASS = IVPASS + 1 01700821 ! 174: WRITE (NUVI, 80002) IVTNUM 01710821 ! 175: GO TO 0051 01720821 ! 176: 20050 IVFAIL = IVFAIL + 1 01730821 ! 177: DVCORR = 1.00000000000000000000D+00 01740821 ! 178: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01750821 ! 179: 0051 CONTINUE 01760821 ! 180: CT006* TEST 6 VALUES NEAR 2*PI 01770821 ! 181: IVTNUM = 6 01780821 ! 182: BVD = (2.0D0 * PIVD) - 1.0D0 / 64.0D0 01790821 ! 183: AVD = DCOS(BVD) 01800821 ! 184: IF (AVD - 0.9998779316D+00) 20060, 10060, 40060 01810821 ! 185: 40060 IF (AVD - 0.9998779327D+00) 10060, 10060, 20060 01820821 ! 186: 10060 IVPASS = IVPASS + 1 01830821 ! 187: WRITE (NUVI, 80002) IVTNUM 01840821 ! 188: GO TO 0061 01850821 ! 189: 20060 IVFAIL = IVFAIL + 1 01860821 ! 190: DVCORR = 0.99987793217100665474D+00 01870821 ! 191: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01880821 ! 192: 0061 CONTINUE 01890821 ! 193: CT007* TEST 7 VALUES NEAR 2*PI 01900821 ! 194: IVTNUM = 7 01910821 ! 195: BVD = (2.0D0 * PIVD) + 1.0D0 / 128.0D0 01920821 ! 196: AVD = DCOS(BVD) 01930821 ! 197: IF (AVD - 0.9999694820D+00) 20070, 10070, 40070 01940821 ! 198: 40070 IF (AVD - 0.9999694831D+00) 10070, 10070, 20070 01950821 ! 199: 10070 IVPASS = IVPASS + 1 01960821 ! 200: WRITE (NUVI, 80002) IVTNUM 01970821 ! 201: GO TO 0071 01980821 ! 202: 20070 IVFAIL = IVFAIL + 1 01990821 ! 203: DVCORR = 0.99996948257709511331D+00 02000821 ! 204: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02010821 ! 205: 0071 CONTINUE 02020821 ! 206: CT008* TEST 8 AN EXPRESSION PRESENTED TO DCOS 02030821 ! 207: IVTNUM = 8 02040821 ! 208: BVD = 350.0D1 02050821 ! 209: AVD = DCOS(BVD / 100.0D1) 02060821 ! 210: IF (AVD + 0.9364566878D+00) 20080, 10080, 40080 02070821 ! 211: 40080 IF (AVD + 0.9364566868D+00) 10080, 10080, 20080 02080821 ! 212: 10080 IVPASS = IVPASS + 1 02090821 ! 213: WRITE (NUVI, 80002) IVTNUM 02100821 ! 214: GO TO 0081 02110821 ! 215: 20080 IVFAIL = IVFAIL + 1 02120821 ! 216: DVCORR = -0.93645668729079633770D+00 02130821 ! 217: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02140821 ! 218: 0081 CONTINUE 02150821 ! 219: CT009* TEST 9 A NEGATIVE ARGUMENT 02160821 ! 220: IVTNUM = 9 02170821 ! 221: BVD = -1.5D0 02180821 ! 222: AVD = DCOS(BVD) 02190821 ! 223: IF (AVD - 0.7073720163D-01) 20090, 10090, 40090 02200821 ! 224: 40090 IF (AVD - 0.7073720171D-01) 10090, 10090, 20090 02210821 ! 225: 10090 IVPASS = IVPASS + 1 02220821 ! 226: WRITE (NUVI, 80002) IVTNUM 02230821 ! 227: GO TO 0091 02240821 ! 228: 20090 IVFAIL = IVFAIL + 1 02250821 ! 229: DVCORR = 0.070737201667702910088D+00 02260821 ! 230: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02270821 ! 231: 0091 CONTINUE 02280821 ! 232: CT010* TEST 10 LARGE VALUES TO CHECK ARGUMENT REDUCTION 02290821 ! 233: IVTNUM = 10 02300821 ! 234: AVD = DCOS(200.0D0) 02310821 ! 235: IF (AVD - 0.4871876747D+00) 20100, 10100, 40100 02320821 ! 236: 40100 IF (AVD - 0.4871876753D+00) 10100, 10100, 20100 02330821 ! 237: 10100 IVPASS = IVPASS + 1 02340821 ! 238: WRITE (NUVI, 80002) IVTNUM 02350821 ! 239: GO TO 0101 02360821 ! 240: 20100 IVFAIL = IVFAIL + 1 02370821 ! 241: DVCORR = 0.48718767500700591035D+00 02380821 ! 242: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02390821 ! 243: 0101 CONTINUE 02400821 ! 244: CT011* TEST 11 LARGE VALUES TO CHECK ARGUMENT REDUCTION 02410821 ! 245: IVTNUM = 11 02420821 ! 246: AVD = DCOS(-31416.0D0) 02430821 ! 247: IF (AVD - 0.9973027257D+00) 20110, 10110, 40110 02440821 ! 248: 40110 IF (AVD - 0.9973027268D+00) 10110, 10110, 20110 02450821 ! 249: 10110 IVPASS = IVPASS + 1 02460821 ! 250: WRITE (NUVI, 80002) IVTNUM 02470821 ! 251: GO TO 0111 02480821 ! 252: 20110 IVFAIL = IVFAIL + 1 02490821 ! 253: DVCORR = 0.99730272627420107808D+00 02500821 ! 254: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02510821 ! 255: 0111 CONTINUE 02520821 ! 256: CT012* TEST 12 VALUES NEAR PI/2 02530821 ! 257: IVTNUM = 12 02540821 ! 258: AVD = DCOS(1.57079632679489661923D0) 02550821 ! 259: IF (AVD + 0.5000000000D-09) 20120, 10120, 40120 02560821 ! 260: 40120 IF (AVD - 0.5000000000D-09) 10120, 10120, 20120 02570821 ! 261: 10120 IVPASS = IVPASS + 1 02580821 ! 262: WRITE (NUVI, 80002) IVTNUM 02590821 ! 263: GO TO 0121 02600821 ! 264: 20120 IVFAIL = IVFAIL + 1 02610821 ! 265: DVCORR = 0.00000000000000000000D+00 02620821 ! 266: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02630821 ! 267: 0121 CONTINUE 02640821 ! 268: CT013* TEST 13 (PI / 2) - 1/32 02650821 ! 269: IVTNUM = 13 02660821 ! 270: BVD = (1.53954632679489661923D0) 02670821 ! 271: AVD = DCOS(BVD) 02680821 ! 272: IF (AVD - 0.3124491397D-01) 20130, 10130, 40130 02690821 ! 273: 40130 IF (AVD - 0.3124491400D-01) 10130, 10130, 20130 02700821 ! 274: 10130 IVPASS = IVPASS + 1 02710821 ! 275: WRITE (NUVI, 80002) IVTNUM 02720821 ! 276: GO TO 0131 02730821 ! 277: 20130 IVFAIL = IVFAIL + 1 02740821 ! 278: DVCORR = 0.031244913985326078739D+00 02750821 ! 279: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02760821 ! 280: 0131 CONTINUE 02770821 ! 281: CT014* TEST 14 (PI / 2) + 1/16 02780821 ! 282: IVTNUM = 14 02790821 ! 283: AVD = DCOS(1.63329632679489661923D0) 02800821 ! 284: IF (AVD + 0.6245931788D-01) 20140, 10140, 40140 02810821 ! 285: 40140 IF (AVD + 0.6245931781D-01) 10140, 10140, 20140 02820821 ! 286: 10140 IVPASS = IVPASS + 1 02830821 ! 287: WRITE (NUVI, 80002) IVTNUM 02840821 ! 288: GO TO 0141 02850821 ! 289: 20140 IVFAIL = IVFAIL + 1 02860821 ! 290: DVCORR = -0.062459317842380198585D+00 02870821 ! 291: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02880821 ! 292: 0141 CONTINUE 02890821 ! 293: CT015* TEST 15 VALUES NEAR 3*PI/2 02900821 ! 294: IVTNUM = 15 02910821 ! 295: BVD = 3.0D0 * PIVD / 2.0D0 02920821 ! 296: AVD = DCOS(BVD) 02930821 ! 297: IF (AVD + 0.5000000000D-09) 20150, 10150, 40150 02940821 ! 298: 40150 IF (AVD - 0.5000000000D-09) 10150, 10150, 20150 02950821 ! 299: 10150 IVPASS = IVPASS + 1 02960821 ! 300: WRITE (NUVI, 80002) IVTNUM 02970821 ! 301: GO TO 0151 02980821 ! 302: 20150 IVFAIL = IVFAIL + 1 02990821 ! 303: DVCORR = 0.00000000000000000000D+00 03000821 ! 304: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03010821 ! 305: 0151 CONTINUE 03020821 ! 306: CT016* TEST 16 VALUES NEAR 3*PI/2 03030821 ! 307: IVTNUM = 16 03040821 ! 308: BVD = (3.0D0 * PIVD / 2.0D0) + 1.0D0 / 16.0D0 03050821 ! 309: AVD = DCOS(BVD) 03060821 ! 310: IF (AVD - 0.6245931781D-01) 20160, 10160, 40160 03070821 ! 311: 40160 IF (AVD - 0.6245931788D-01) 10160, 10160, 20160 03080821 ! 312: 10160 IVPASS = IVPASS + 1 03090821 ! 313: WRITE (NUVI, 80002) IVTNUM 03100821 ! 314: GO TO 0161 03110821 ! 315: 20160 IVFAIL = IVFAIL + 1 03120821 ! 316: DVCORR = 0.062459317842380198585D+00 03130821 ! 317: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03140821 ! 318: 0161 CONTINUE 03150821 ! 319: CT017* TEST 17 VALUES NEAR 3*PI/2 03160821 ! 320: IVTNUM = 17 03170821 ! 321: BVD = (3.0D0 * PIVD / 2.0D0) - 1.0D0 / 512.0D0 03180821 ! 322: AVD = DCOS(BVD) 03190821 ! 323: IF (AVD + 0.1953123760D-02) 20170, 10170, 40170 03200821 ! 324: 40170 IF (AVD + 0.1953123757D-02) 10170, 10170, 20170 03210821 ! 325: 10170 IVPASS = IVPASS + 1 03220821 ! 326: WRITE (NUVI, 80002) IVTNUM 03230821 ! 327: GO TO 0171 03240821 ! 328: 20170 IVFAIL = IVFAIL + 1 03250821 ! 329: DVCORR = -0.0019531237582368040269D+00 03260821 ! 330: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03270821 ! 331: 0171 CONTINUE 03280821 ! 332: CT018* TEST 18 ARGUMENT OF LOW MAGNITUDE 03290821 ! 333: IVTNUM = 18 03300821 ! 334: BVD = -3.1415926535898D-35 03310821 ! 335: AVD = DCOS(BVD) 03320821 ! 336: IF (AVD - 0.9999999995D+00) 20180, 10180, 40180 03330821 ! 337: 40180 IF (AVD - 0.1000000001D+01) 10180, 10180, 20180 03340821 ! 338: 10180 IVPASS = IVPASS + 1 03350821 ! 339: WRITE (NUVI, 80002) IVTNUM 03360821 ! 340: GO TO 0181 03370821 ! 341: 20180 IVFAIL = IVFAIL + 1 03380821 ! 342: DVCORR = 1.00000000000000000000D+00 03390821 ! 343: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03400821 ! 344: 0181 CONTINUE 03410821 ! 345: CT019* TEST 19 THE FUNCTION APPLIED TWICE 03420821 ! 346: IVTNUM = 19 03430821 ! 347: AVD = DCOS(PIVD / 4.0D0) * DCOS(3.0D0 * PIVD / 4.0D0) 03440821 ! 348: IF (AVD + 0.5000000003D+00) 20190, 10190, 40190 03450821 ! 349: 40190 IF (AVD + 0.4999999997D+00) 10190, 10190, 20190 03460821 ! 350: 10190 IVPASS = IVPASS + 1 03470821 ! 351: WRITE (NUVI, 80002) IVTNUM 03480821 ! 352: GO TO 0191 03490821 ! 353: 20190 IVFAIL = IVFAIL + 1 03500821 ! 354: DVCORR = -0.5000000000000000000000D+00 03510821 ! 355: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03520821 ! 356: 0191 CONTINUE 03530821 ! 357: C***** 03540821 ! 358: CBB** ********************** BBCSUM0 **********************************03550821 ! 359: C**** WRITE OUT TEST SUMMARY 03560821 ! 360: C**** 03570821 ! 361: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 03580821 ! 362: WRITE (I02, 90004) 03590821 ! 363: WRITE (I02, 90014) 03600821 ! 364: WRITE (I02, 90004) 03610821 ! 365: WRITE (I02, 90020) IVPASS 03620821 ! 366: WRITE (I02, 90022) IVFAIL 03630821 ! 367: WRITE (I02, 90024) IVDELE 03640821 ! 368: WRITE (I02, 90026) IVINSP 03650821 ! 369: WRITE (I02, 90028) IVTOTN, IVTOTL 03660821 ! 370: CBE** ********************** BBCSUM0 **********************************03670821 ! 371: CBB** ********************** BBCFOOT0 **********************************03680821 ! 372: C**** WRITE OUT REPORT FOOTINGS 03690821 ! 373: C**** 03700821 ! 374: WRITE (I02,90016) ZPROG, ZPROG 03710821 ! 375: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 03720821 ! 376: WRITE (I02,90019) 03730821 ! 377: CBE** ********************** BBCFOOT0 **********************************03740821 ! 378: CBB** ********************** BBCFMT0A **********************************03750821 ! 379: C**** FORMATS FOR TEST DETAIL LINES 03760821 ! 380: C**** 03770821 ! 381: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 03780821 ! 382: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 03790821 ! 383: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 03800821 ! 384: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 03810821 ! 385: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 03820821 ! 386: 1I6,/,1H ,15X,10HCORRECT= ,I6) 03830821 ! 387: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03840821 ! 388: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 03850821 ! 389: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03860821 ! 390: 1A21,/,1H ,16X,10HCORRECT= ,A21) 03870821 ! 391: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 03880821 ! 392: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 03890821 ! 393: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 03900821 ! 394: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 03910821 ! 395: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 03920821 ! 396: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 03930821 ! 397: 80050 FORMAT (1H ,48X,A31) 03940821 ! 398: CBE** ********************** BBCFMT0A **********************************03950821 ! 399: CBB** ********************** BBCFMAT1 **********************************03960821 ! 400: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 03970821 ! 401: C**** 03980821 ! 402: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03990821 ! 403: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 04000821 ! 404: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 04010821 ! 405: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 04020821 ! 406: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 04030821 ! 407: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 04040821 ! 408: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 04050821 ! 409: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 04060821 ! 410: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 04070821 ! 411: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 04080821 ! 412: 21H(,F12.5,2H, ,F12.5,1H)) 04090821 ! 413: CBE** ********************** BBCFMAT1 **********************************04100821 ! 414: CBB** ********************** BBCFMT0B **********************************04110821 ! 415: C**** FORMAT STATEMENTS FOR PAGE HEADERS 04120821 ! 416: C**** 04130821 ! 417: 90002 FORMAT (1H1) 04140821 ! 418: 90004 FORMAT (1H ) 04150821 ! 419: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 04160821 ! 420: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 04170821 ! 421: 90008 FORMAT (1H ,21X,A13,A17) 04180821 ! 422: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 04190821 ! 423: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 04200821 ! 424: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 04210821 ! 425: 1 7X,7HREMARKS,24X) 04220821 ! 426: 90014 FORMAT (1H ,46H----------------------------------------------, 04230821 ! 427: 1 33H---------------------------------) 04240821 ! 428: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 04250821 ! 429: C**** 04260821 ! 430: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 04270821 ! 431: C**** 04280821 ! 432: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 04290821 ! 433: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 04300821 ! 434: 1 A13) 04310821 ! 435: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 04320821 ! 436: C**** 04330821 ! 437: C**** FORMAT STATEMENTS FOR RUN SUMMARY 04340821 ! 438: C**** 04350821 ! 439: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 04360821 ! 440: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 04370821 ! 441: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 04380821 ! 442: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 04390821 ! 443: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 04400821 ! 444: CBE** ********************** BBCFMT0B **********************************04410821 ! 445: C***** 04420821 ! 446: C***** END OF TEST SEGMENT 190 04430821 ! 447: STOP 04440821 ! 448: END 04450821 ! 449: 04460821
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.