![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM822.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 FM822.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***********************************************************************00010822 ! 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 00020822 ! 6: C***** FM822 00030822 ! 7: C***** YDTAN - (192) 00040822 ! 8: C***** 00050822 ! 9: C***********************************************************************00060822 ! 10: C***** GENERAL PURPOSE ANS REF 00070822 ! 11: C***** TEST INTRINSIC FUNCTION DTAN 15.3 00080822 ! 12: C***** TABLE 5 00090822 ! 13: C***** 00100822 ! 14: CBB** ********************** BBCCOMNT **********************************00110822 ! 15: C**** 00120822 ! 16: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130822 ! 17: C**** VERSION 2.0 00140822 ! 18: C**** 00150822 ! 19: C**** 00160822 ! 20: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170822 ! 21: C**** GENERAL SERVICES ADMINISTRATION 00180822 ! 22: C**** FEDERAL SOFTWARE TESTING CENTER 00190822 ! 23: C**** 5203 LEESBURG PIKE, SUITE 1100 00200822 ! 24: C**** FALLS CHURCH, VA. 22041 00210822 ! 25: C**** 00220822 ! 26: C**** (703) 756-6153 00230822 ! 27: C**** 00240822 ! 28: CBE** ********************** BBCCOMNT **********************************00250822 ! 29: C***** 00260822 ! 30: C***** S P E C I F I C A T I O N S SEGMENT 192 00270822 ! 31: DOUBLE PRECISION AVD, BVD, PIVD, DVCORR 00280822 ! 32: C***** 00290822 ! 33: CBB** ********************** BBCINITA **********************************00300822 ! 34: C**** SPECIFICATION STATEMENTS 00310822 ! 35: C**** 00320822 ! 36: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00330822 ! 37: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00340822 ! 38: CBE** ********************** BBCINITA **********************************00350822 ! 39: CBB** ********************** BBCINITB **********************************00360822 ! 40: C**** INITIALIZE SECTION 00370822 ! 41: DATA ZVERS, ZVERSD, ZDATE 00380822 ! 42: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00390822 ! 43: DATA ZCOMPL, ZNAME, ZTAPE 00400822 ! 44: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00410822 ! 45: DATA ZPROJ, ZTAPED, ZPROG 00420822 ! 46: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00430822 ! 47: DATA REMRKS /' '/ 00440822 ! 48: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00450822 ! 49: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00460822 ! 50: C**** 00470822 ! 51: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00480822 ! 52: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00490822 ! 53: CZ03 ZPROG = 'PROGRAM NAME' 00500822 ! 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 00570822 ! 61: IVPASS = 0 00580822 ! 62: IVFAIL = 0 00590822 ! 63: IVDELE = 0 00600822 ! 64: IVINSP = 0 00610822 ! 65: IVTOTL = 0 00620822 ! 66: IVTOTN = 0 00630822 ! 67: ICZERO = 0 00640822 ! 68: C 00650822 ! 69: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00660822 ! 70: I01 = 05 00670822 ! 71: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00680822 ! 72: I02 = 06 00690822 ! 73: C 00700822 ! 74: I01 = 5 00710822 ! 75: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00720822 ! 76: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00730822 ! 77: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00740822 ! 78: C 00750822 ! 79: I02 = 6 00760822 ! 80: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00770822 ! 81: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00780822 ! 82: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00790822 ! 83: C 00800822 ! 84: CBE** ********************** BBCINITB **********************************00810822 ! 85: NUVI = I02 00820822 ! 86: IVTOTL = 14 00830822 ! 87: ZPROG = 'FM822' 00840822 ! 88: CBB** ********************** BBCHED0A **********************************00850822 ! 89: C**** 00860822 ! 90: C**** WRITE REPORT TITLE 00870822 ! 91: C**** 00880822 ! 92: WRITE (I02, 90002) 00890822 ! 93: WRITE (I02, 90006) 00900822 ! 94: WRITE (I02, 90007) 00910822 ! 95: WRITE (I02, 90008) ZVERS, ZVERSD 00920822 ! 96: WRITE (I02, 90009) ZPROG, ZPROG 00930822 ! 97: WRITE (I02, 90010) ZDATE, ZCOMPL 00940822 ! 98: CBE** ********************** BBCHED0A **********************************00950822 ! 99: C***** 00960822 ! 100: C***** HEADER FOR SEGMENT 192 00970822 ! 101: WRITE(NUVI,19200) 00980822 ! 102: 19200 FORMAT(1H , / 35H YDTAN - (192) INTRINSIC FUNCTIONS// 00990822 ! 103: 1 34H DTAN (DOUBLE PRECISION TANGENT)// 01000822 ! 104: 2 17H ANS REF. - 15.3) 01010822 ! 105: CBB** ********************** BBCHED0B **********************************01020822 ! 106: C**** WRITE DETAIL REPORT HEADERS 01030822 ! 107: C**** 01040822 ! 108: WRITE (I02,90004) 01050822 ! 109: WRITE (I02,90004) 01060822 ! 110: WRITE (I02,90013) 01070822 ! 111: WRITE (I02,90014) 01080822 ! 112: WRITE (I02,90015) IVTOTL 01090822 ! 113: CBE** ********************** BBCHED0B **********************************01100822 ! 114: C***** 01110822 ! 115: PIVD = 3.1415926535897932384626434D0 01120822 ! 116: C***** 01130822 ! 117: CT001* TEST 1 ZERO (0.0), SINCE TAN(0) = 0. 01140822 ! 118: IVTNUM = 1 01150822 ! 119: BVD = 0.0D0 01160822 ! 120: AVD = DTAN(BVD) 01170822 ! 121: IF (AVD + 0.5000000000D-09) 20010, 10010, 40010 01180822 ! 122: 40010 IF (AVD - 0.5000000000D-09) 10010, 10010, 20010 01190822 ! 123: 10010 IVPASS = IVPASS + 1 01200822 ! 124: WRITE (NUVI, 80002) IVTNUM 01210822 ! 125: GO TO 0011 01220822 ! 126: 20010 IVFAIL = IVFAIL + 1 01230822 ! 127: DVCORR = 0.00000000000000000000D+00 01240822 ! 128: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01250822 ! 129: 0011 CONTINUE 01260822 ! 130: CT002* TEST 2 2*PI 01270822 ! 131: IVTNUM = 2 01280822 ! 132: BVD = 6.28318530717958647692D0 01290822 ! 133: AVD = DTAN(BVD) 01300822 ! 134: IF (AVD + 0.5000000000D-09) 20020, 10020, 40020 01310822 ! 135: 40020 IF (AVD - 0.5000000000D-09) 10020, 10020, 20020 01320822 ! 136: 10020 IVPASS = IVPASS + 1 01330822 ! 137: WRITE (NUVI, 80002) IVTNUM 01340822 ! 138: GO TO 0021 01350822 ! 139: 20020 IVFAIL = IVFAIL + 1 01360822 ! 140: DVCORR = 0.00000000000000000000D+00 01370822 ! 141: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01380822 ! 142: 0021 CONTINUE 01390822 ! 143: CT003* TEST 3 3*PI 01400822 ! 144: IVTNUM = 3 01410822 ! 145: BVD = 9.42477796076937971538D0 01420822 ! 146: AVD = DTAN(BVD) 01430822 ! 147: IF (AVD + 0.5000000000D-09) 20030, 10030, 40030 01440822 ! 148: 40030 IF (AVD - 0.5000000000D-09) 10030, 10030, 20030 01450822 ! 149: 10030 IVPASS = IVPASS + 1 01460822 ! 150: WRITE (NUVI, 80002) IVTNUM 01470822 ! 151: GO TO 0031 01480822 ! 152: 20030 IVFAIL = IVFAIL + 1 01490822 ! 153: DVCORR = 0.00000000000000000000D+00 01500822 ! 154: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01510822 ! 155: 0031 CONTINUE 01520822 ! 156: CT004* TEST 4 PI/4 01530822 ! 157: IVTNUM = 4 01540822 ! 158: AVD = DTAN(PIVD / 4.0D0) 01550822 ! 159: IF (AVD - 0.9999999995D+00) 20040, 10040, 40040 01560822 ! 160: 40040 IF (AVD - 0.1000000001D+01) 10040, 10040, 20040 01570822 ! 161: 10040 IVPASS = IVPASS + 1 01580822 ! 162: WRITE (NUVI, 80002) IVTNUM 01590822 ! 163: GO TO 0041 01600822 ! 164: 20040 IVFAIL = IVFAIL + 1 01610822 ! 165: DVCORR = 1.00000000000000000000D+00 01620822 ! 166: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01630822 ! 167: 0041 CONTINUE 01640822 ! 168: CT005* TEST 5 5*PI/4 01650822 ! 169: IVTNUM = 5 01660822 ! 170: BVD = 5.0D0 * PIVD / 4.0D0 01670822 ! 171: AVD = DTAN(BVD) 01680822 ! 172: IF (AVD - 0.9999999995D+00) 20050, 10050, 40050 01690822 ! 173: 40050 IF (AVD - 0.1000000001D+01) 10050, 10050, 20050 01700822 ! 174: 10050 IVPASS = IVPASS + 1 01710822 ! 175: WRITE (NUVI, 80002) IVTNUM 01720822 ! 176: GO TO 0051 01730822 ! 177: 20050 IVFAIL = IVFAIL + 1 01740822 ! 178: DVCORR = 1.00000000000000000000D+00 01750822 ! 179: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01760822 ! 180: 0051 CONTINUE 01770822 ! 181: CT006* TEST 6 A NEGATIVE VALUE 01780822 ! 182: IVTNUM = 6 01790822 ! 183: BVD = -2.0D0 / 1.0D0 01800822 ! 184: AVD = DTAN(BVD) 01810822 ! 185: IF (AVD - 0.2185039862D+01) 20060, 10060, 40060 01820822 ! 186: 40060 IF (AVD - 0.2185039865D+01) 10060, 10060, 20060 01830822 ! 187: 10060 IVPASS = IVPASS + 1 01840822 ! 188: WRITE (NUVI, 80002) IVTNUM 01850822 ! 189: GO TO 0061 01860822 ! 190: 20060 IVFAIL = IVFAIL + 1 01870822 ! 191: DVCORR = 2.1850398632615189916D+00 01880822 ! 192: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01890822 ! 193: 0061 CONTINUE 01900822 ! 194: CT007* TEST 7 A POSITIVE VALUE 01910822 ! 195: IVTNUM = 7 01920822 ! 196: BVD = 350.0D0 / 100.0D0 01930822 ! 197: AVD = DTAN(BVD) 01940822 ! 198: IF (AVD - 0.3745856399D+00) 20070, 10070, 40070 01950822 ! 199: 40070 IF (AVD - 0.3745856404D+00) 10070, 10070, 20070 01960822 ! 200: 10070 IVPASS = IVPASS + 1 01970822 ! 201: WRITE (NUVI, 80002) IVTNUM 01980822 ! 202: GO TO 0071 01990822 ! 203: 20070 IVFAIL = IVFAIL + 1 02000822 ! 204: DVCORR = 0.37458564015859466633D+00 02010822 ! 205: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02020822 ! 206: 0071 CONTINUE 02030822 ! 207: CT008* TEST 8 (PI / 2) - 1/8 02040822 ! 208: IVTNUM = 8 02050822 ! 209: BVD = 1.44579632679489661923D0 02060822 ! 210: AVD = DTAN(BVD) 02070822 ! 211: IF (AVD - 0.7958289861D+01) 20080, 10080, 40080 02080822 ! 212: 40080 IF (AVD - 0.7958289870D+01) 10080, 10080, 20080 02090822 ! 213: 10080 IVPASS = IVPASS + 1 02100822 ! 214: WRITE (NUVI, 80002) IVTNUM 02110822 ! 215: GO TO 0081 02120822 ! 216: 20080 IVFAIL = IVFAIL + 1 02130822 ! 217: DVCORR = 7.9582898658670111779D+00 02140822 ! 218: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02150822 ! 219: 0081 CONTINUE 02160822 ! 220: CT009* TEST 9 (PI / 2) + 1/256 02170822 ! 221: IVTNUM = 9 02180822 ! 222: BVD = 1.57470257679489661923D0 02190822 ! 223: AVD = DTAN(BVD) 02200822 ! 224: IF (AVD + 0.2559986981D+03) 20090, 10090, 40090 02210822 ! 225: 40090 IF (AVD + 0.2559986977D+03) 10090, 10090, 20090 02220822 ! 226: 10090 IVPASS = IVPASS + 1 02230822 ! 227: WRITE (NUVI, 80002) IVTNUM 02240822 ! 228: GO TO 0091 02250822 ! 229: 20090 IVFAIL = IVFAIL + 1 02260822 ! 230: DVCORR = -255.99869791534211708D+00 02270822 ! 231: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02280822 ! 232: 0091 CONTINUE 02290822 ! 233: CT010* TEST 10 3*PI/2 - 1/1024 02300822 ! 234: IVTNUM = 10 02310822 ! 235: AVD = DTAN((3.0D0 * PIVD / 2.0D0) - 1.0D0 / 1024.0D0) 02320822 ! 236: IF (AVD - 0.1023999674D+04) 20100, 10100, 40100 02330822 ! 237: 40100 IF (AVD - 0.1023999675D+04) 10100, 10100, 20100 02340822 ! 238: 10100 IVPASS = IVPASS + 1 02350822 ! 239: WRITE (NUVI, 80002) IVTNUM 02360822 ! 240: GO TO 0101 02370822 ! 241: 20100 IVFAIL = IVFAIL + 1 02380822 ! 242: DVCORR = 1023.9996744791459706D+00 02390822 ! 243: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02400822 ! 244: 0101 CONTINUE 02410822 ! 245: CT011* TEST 11 3*PI + 1/64 02420822 ! 246: IVTNUM = 11 02430822 ! 247: BVD = (3.0D0 * PIVD / 2.0D0) + 1.0D0 / 64.0D0 02440822 ! 248: AVD = DTAN(BVD) 02450822 ! 249: IF (AVD + 0.6399479162D+02) 20110, 10110, 40110 02460822 ! 250: 40110 IF (AVD + 0.6399479155D+02) 10110, 10110, 20110 02470822 ! 251: 10110 IVPASS = IVPASS + 1 02480822 ! 252: WRITE (NUVI, 80002) IVTNUM 02490822 ! 253: GO TO 0111 02500822 ! 254: 20110 IVFAIL = IVFAIL + 1 02510822 ! 255: DVCORR = -63.994791581893645218D+00 02520822 ! 256: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02530822 ! 257: 0111 CONTINUE 02540822 ! 258: CT012* TEST 12 LARGE VALUE TO TEST ARGUMENT REDUCTION 02550822 ! 259: IVTNUM = 12 02560822 ! 260: AVD = DTAN(2000.0D0) 02570822 ! 261: IF (AVD + 0.2530998330D+01) 20120, 10120, 40120 02580822 ! 262: 40120 IF (AVD + 0.2530998326D+01) 10120, 10120, 20120 02590822 ! 263: 10120 IVPASS = IVPASS + 1 02600822 ! 264: WRITE (NUVI, 80002) IVTNUM 02610822 ! 265: GO TO 0121 02620822 ! 266: 20120 IVFAIL = IVFAIL + 1 02630822 ! 267: DVCORR = -2.5309983280933409104D+00 02640822 ! 268: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02650822 ! 269: 0121 CONTINUE 02660822 ! 270: CT013* TEST 13 ARGUMENT OF LOW MAGNITUDE 02670822 ! 271: IVTNUM = 13 02680822 ! 272: BVD = PIVD * 1.0D-15 02690822 ! 273: AVD = DTAN(BVD) 02700822 ! 274: IF (AVD - 0.3141592652D-14) 20130, 10130, 40130 02710822 ! 275: 40130 IF (AVD - 0.3141592655D-14) 10130, 10130, 20130 02720822 ! 276: 10130 IVPASS = IVPASS + 1 02730822 ! 277: WRITE (NUVI, 80002) IVTNUM 02740822 ! 278: GO TO 0131 02750822 ! 279: 20130 IVFAIL = IVFAIL + 1 02760822 ! 280: DVCORR = 3.1415926535897932385D-15 02770822 ! 281: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02780822 ! 282: 0131 CONTINUE 02790822 ! 283: CT014* TEST 14 THE FUNCTION APPLIED TWICE 02800822 ! 284: IVTNUM = 14 02810822 ! 285: AVD = DTAN(PIVD / 6.0D0) * DTAN(PIVD / 6.0D0) 02820822 ! 286: IF (AVD - 0.3333333331D+00) 20140, 10140, 40140 02830822 ! 287: 40140 IF (AVD - 0.3333333335D+00) 10140, 10140, 20140 02840822 ! 288: 10140 IVPASS = IVPASS + 1 02850822 ! 289: WRITE (NUVI, 80002) IVTNUM 02860822 ! 290: GO TO 0141 02870822 ! 291: 20140 IVFAIL = IVFAIL + 1 02880822 ! 292: DVCORR = 0.33333333333333333333D+00 02890822 ! 293: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02900822 ! 294: 0141 CONTINUE 02910822 ! 295: C***** 02920822 ! 296: CBB** ********************** BBCSUM0 **********************************02930822 ! 297: C**** WRITE OUT TEST SUMMARY 02940822 ! 298: C**** 02950822 ! 299: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02960822 ! 300: WRITE (I02, 90004) 02970822 ! 301: WRITE (I02, 90014) 02980822 ! 302: WRITE (I02, 90004) 02990822 ! 303: WRITE (I02, 90020) IVPASS 03000822 ! 304: WRITE (I02, 90022) IVFAIL 03010822 ! 305: WRITE (I02, 90024) IVDELE 03020822 ! 306: WRITE (I02, 90026) IVINSP 03030822 ! 307: WRITE (I02, 90028) IVTOTN, IVTOTL 03040822 ! 308: CBE** ********************** BBCSUM0 **********************************03050822 ! 309: CBB** ********************** BBCFOOT0 **********************************03060822 ! 310: C**** WRITE OUT REPORT FOOTINGS 03070822 ! 311: C**** 03080822 ! 312: WRITE (I02,90016) ZPROG, ZPROG 03090822 ! 313: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 03100822 ! 314: WRITE (I02,90019) 03110822 ! 315: CBE** ********************** BBCFOOT0 **********************************03120822 ! 316: CBB** ********************** BBCFMT0A **********************************03130822 ! 317: C**** FORMATS FOR TEST DETAIL LINES 03140822 ! 318: C**** 03150822 ! 319: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 03160822 ! 320: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 03170822 ! 321: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 03180822 ! 322: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 03190822 ! 323: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 03200822 ! 324: 1I6,/,1H ,15X,10HCORRECT= ,I6) 03210822 ! 325: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03220822 ! 326: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 03230822 ! 327: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03240822 ! 328: 1A21,/,1H ,16X,10HCORRECT= ,A21) 03250822 ! 329: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 03260822 ! 330: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 03270822 ! 331: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 03280822 ! 332: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 03290822 ! 333: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 03300822 ! 334: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 03310822 ! 335: 80050 FORMAT (1H ,48X,A31) 03320822 ! 336: CBE** ********************** BBCFMT0A **********************************03330822 ! 337: CBB** ********************** BBCFMAT1 **********************************03340822 ! 338: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 03350822 ! 339: C**** 03360822 ! 340: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03370822 ! 341: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 03380822 ! 342: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 03390822 ! 343: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 03400822 ! 344: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 03410822 ! 345: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 03420822 ! 346: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 03430822 ! 347: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 03440822 ! 348: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03450822 ! 349: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 03460822 ! 350: 21H(,F12.5,2H, ,F12.5,1H)) 03470822 ! 351: CBE** ********************** BBCFMAT1 **********************************03480822 ! 352: CBB** ********************** BBCFMT0B **********************************03490822 ! 353: C**** FORMAT STATEMENTS FOR PAGE HEADERS 03500822 ! 354: C**** 03510822 ! 355: 90002 FORMAT (1H1) 03520822 ! 356: 90004 FORMAT (1H ) 03530822 ! 357: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 03540822 ! 358: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03550822 ! 359: 90008 FORMAT (1H ,21X,A13,A17) 03560822 ! 360: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 03570822 ! 361: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 03580822 ! 362: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 03590822 ! 363: 1 7X,7HREMARKS,24X) 03600822 ! 364: 90014 FORMAT (1H ,46H----------------------------------------------, 03610822 ! 365: 1 33H---------------------------------) 03620822 ! 366: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 03630822 ! 367: C**** 03640822 ! 368: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03650822 ! 369: C**** 03660822 ! 370: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 03670822 ! 371: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 03680822 ! 372: 1 A13) 03690822 ! 373: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 03700822 ! 374: C**** 03710822 ! 375: C**** FORMAT STATEMENTS FOR RUN SUMMARY 03720822 ! 376: C**** 03730822 ! 377: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03740822 ! 378: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03750822 ! 379: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03760822 ! 380: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 03770822 ! 381: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 03780822 ! 382: CBE** ********************** BBCFMT0B **********************************03790822 ! 383: C***** 03800822 ! 384: C***** END OF TEST SEGMENT 192 03810822 ! 385: STOP 03820822 ! 386: END 03830822
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.