![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM825.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 FM825.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***********************************************************************00010825 ! 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 00020825 ! 6: C***** FM825 00030825 ! 7: C***** YDSINH - (198) 00040825 ! 8: C***** 00050825 ! 9: C***********************************************************************00060825 ! 10: C***** GENERAL PURPOSE ANS REF 00070825 ! 11: C***** TEST INTRINSIC FUNCTION DSINH, DCOSH 15.3 00080825 ! 12: C***** TABLE 5 00090825 ! 13: CBB** ********************** BBCCOMNT **********************************00100825 ! 14: C**** 00110825 ! 15: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120825 ! 16: C**** VERSION 2.0 00130825 ! 17: C**** 00140825 ! 18: C**** 00150825 ! 19: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160825 ! 20: C**** GENERAL SERVICES ADMINISTRATION 00170825 ! 21: C**** FEDERAL SOFTWARE TESTING CENTER 00180825 ! 22: C**** 5203 LEESBURG PIKE, SUITE 1100 00190825 ! 23: C**** FALLS CHURCH, VA. 22041 00200825 ! 24: C**** 00210825 ! 25: C**** (703) 756-6153 00220825 ! 26: C**** 00230825 ! 27: CBE** ********************** BBCCOMNT **********************************00240825 ! 28: C***** 00250825 ! 29: C***** S P E C I F I C A T I O N S SEGMENT 198 00260825 ! 30: DOUBLE PRECISION AVD, BVD, CVD, DVCORR 00270825 ! 31: C***** 00280825 ! 32: CBB** ********************** BBCINITA **********************************00290825 ! 33: C**** SPECIFICATION STATEMENTS 00300825 ! 34: C**** 00310825 ! 35: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00320825 ! 36: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00330825 ! 37: CBE** ********************** BBCINITA **********************************00340825 ! 38: CBB** ********************** BBCINITB **********************************00350825 ! 39: C**** INITIALIZE SECTION 00360825 ! 40: DATA ZVERS, ZVERSD, ZDATE 00370825 ! 41: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00380825 ! 42: DATA ZCOMPL, ZNAME, ZTAPE 00390825 ! 43: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00400825 ! 44: DATA ZPROJ, ZTAPED, ZPROG 00410825 ! 45: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00420825 ! 46: DATA REMRKS /' '/ 00430825 ! 47: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00440825 ! 48: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00450825 ! 49: C**** 00460825 ! 50: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00470825 ! 51: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00480825 ! 52: CZ03 ZPROG = 'PROGRAM NAME' 00490825 ! 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 00560825 ! 60: IVPASS = 0 00570825 ! 61: IVFAIL = 0 00580825 ! 62: IVDELE = 0 00590825 ! 63: IVINSP = 0 00600825 ! 64: IVTOTL = 0 00610825 ! 65: IVTOTN = 0 00620825 ! 66: ICZERO = 0 00630825 ! 67: C 00640825 ! 68: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00650825 ! 69: I01 = 05 00660825 ! 70: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00670825 ! 71: I02 = 06 00680825 ! 72: C 00690825 ! 73: I01 = 5 00700825 ! 74: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00710825 ! 75: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00720825 ! 76: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00730825 ! 77: C 00740825 ! 78: I02 = 6 00750825 ! 79: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00760825 ! 80: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00770825 ! 81: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00780825 ! 82: C 00790825 ! 83: CBE** ********************** BBCINITB **********************************00800825 ! 84: NUVI = I02 00810825 ! 85: IVTOTL = 16 00820825 ! 86: ZPROG = 'FM825' 00830825 ! 87: CBB** ********************** BBCHED0A **********************************00840825 ! 88: C**** 00850825 ! 89: C**** WRITE REPORT TITLE 00860825 ! 90: C**** 00870825 ! 91: WRITE (I02, 90002) 00880825 ! 92: WRITE (I02, 90006) 00890825 ! 93: WRITE (I02, 90007) 00900825 ! 94: WRITE (I02, 90008) ZVERS, ZVERSD 00910825 ! 95: WRITE (I02, 90009) ZPROG, ZPROG 00920825 ! 96: WRITE (I02, 90010) ZDATE, ZCOMPL 00930825 ! 97: CBE** ********************** BBCHED0A **********************************00940825 ! 98: C***** 00950825 ! 99: C***** HEADER FOR SEGMENT 198 00960825 ! 100: WRITE(NUVI,19800) 00970825 ! 101: 19800 FORMAT(1H , / 36H YDSINH - (198) INTRINSIC FUNCTIONS// 00980825 ! 102: 1 57H DSINH, DCOSH (DOUBLE PRECISION HYPERBOLIC SINE, COSINE)// 00990825 ! 103: 2 17H ANS REF. - 15.3) 01000825 ! 104: CBB** ********************** BBCHED0B **********************************01010825 ! 105: C**** WRITE DETAIL REPORT HEADERS 01020825 ! 106: C**** 01030825 ! 107: WRITE (I02,90004) 01040825 ! 108: WRITE (I02,90004) 01050825 ! 109: WRITE (I02,90013) 01060825 ! 110: WRITE (I02,90014) 01070825 ! 111: WRITE (I02,90015) IVTOTL 01080825 ! 112: CBE** ********************** BBCHED0B **********************************01090825 ! 113: C***** 01100825 ! 114: WRITE(NUVI,19801) 01110825 ! 115: 19801 FORMAT(/ 8X, 13HTEST OF DSINH) 01120825 ! 116: C***** 01130825 ! 117: CT001* TEST 1 TEST AT ZERO (0.0D0) 01140825 ! 118: IVTNUM = 1 01150825 ! 119: BVD = 0.0D0 01160825 ! 120: AVD = DSINH(BVD) 01170825 ! 121: IF (AVD + 0.5000000000D-09) 20010, 10010, 40010 01180825 ! 122: 40010 IF (AVD - 0.5000000000D-09) 10010, 10010, 20010 01190825 ! 123: 10010 IVPASS = IVPASS + 1 01200825 ! 124: WRITE (NUVI, 80002) IVTNUM 01210825 ! 125: GO TO 0011 01220825 ! 126: 20010 IVFAIL = IVFAIL + 1 01230825 ! 127: DVCORR = 0.00000000000000000000D+00 01240825 ! 128: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01250825 ! 129: 0011 CONTINUE 01260825 ! 130: CT002* TEST 2 TEST ARGUMENTS CLOSE TO 1.0D0 01270825 ! 131: IVTNUM = 2 01280825 ! 132: AVD = DSINH(15.0D0 / 16.0D0) 01290825 ! 133: IF (AVD - 0.1080991915D+01) 20020, 10020, 40020 01300825 ! 134: 40020 IF (AVD - 0.1080991917D+01) 10020, 10020, 20020 01310825 ! 135: 10020 IVPASS = IVPASS + 1 01320825 ! 136: WRITE (NUVI, 80002) IVTNUM 01330825 ! 137: GO TO 0021 01340825 ! 138: 20020 IVFAIL = IVFAIL + 1 01350825 ! 139: DVCORR = 1.0809919156930639401D+00 01360825 ! 140: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01370825 ! 141: 0021 CONTINUE 01380825 ! 142: CT003* TEST 3 TEST AT 1.0D0 01390825 ! 143: IVTNUM = 3 01400825 ! 144: BVD = 1.0D0 01410825 ! 145: AVD = DSINH(BVD) 01420825 ! 146: IF (AVD - 0.1175201193D+01) 20030, 10030, 40030 01430825 ! 147: 40030 IF (AVD - 0.1175201195D+01) 10030, 10030, 20030 01440825 ! 148: 10030 IVPASS = IVPASS + 1 01450825 ! 149: WRITE (NUVI, 80002) IVTNUM 01460825 ! 150: GO TO 0031 01470825 ! 151: 20030 IVFAIL = IVFAIL + 1 01480825 ! 152: DVCORR = 1.1752011936438014569D+00 01490825 ! 153: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01500825 ! 154: 0031 CONTINUE 01510825 ! 155: CT004* TEST 4 TEST ARGUMENTS CLOSE TO 1.0D0 01520825 ! 156: IVTNUM = 4 01530825 ! 157: AVD = DSINH(33.0D0 / 32.0D0) 01540825 ! 158: IF (AVD - 0.1224004187D+01) 20040, 10040, 40040 01550825 ! 159: 40040 IF (AVD - 0.1224004189D+01) 10040, 10040, 20040 01560825 ! 160: 10040 IVPASS = IVPASS + 1 01570825 ! 161: WRITE (NUVI, 80002) IVTNUM 01580825 ! 162: GO TO 0041 01590825 ! 163: 20040 IVFAIL = IVFAIL + 1 01600825 ! 164: DVCORR = 1.2240041877866398138D+00 01610825 ! 165: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01620825 ! 166: 0041 CONTINUE 01630825 ! 167: CT005* TEST 5 TEST AT 2.0D0 01640825 ! 168: IVTNUM = 5 01650825 ! 169: BVD = 2.0D0 01660825 ! 170: AVD = DSINH(BVD) 01670825 ! 171: IF (AVD - 0.3626860406D+01) 20050, 10050, 40050 01680825 ! 172: 40050 IF (AVD - 0.3626860410D+01) 10050, 10050, 20050 01690825 ! 173: 10050 IVPASS = IVPASS + 1 01700825 ! 174: WRITE (NUVI, 80002) IVTNUM 01710825 ! 175: GO TO 0051 01720825 ! 176: 20050 IVFAIL = IVFAIL + 1 01730825 ! 177: DVCORR = 3.6268604078470187677D+00 01740825 ! 178: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01750825 ! 179: 0051 CONTINUE 01760825 ! 180: CT006* TEST 6 A NEGATIVE ARGUMENT 01770825 ! 181: IVTNUM = 6 01780825 ! 182: AVD = DSINH(-2.0D0) 01790825 ! 183: IF (AVD + 0.3626860410D+01) 20060, 10060, 40060 01800825 ! 184: 40060 IF (AVD + 0.3626860406D+01) 10060, 10060, 20060 01810825 ! 185: 10060 IVPASS = IVPASS + 1 01820825 ! 186: WRITE (NUVI, 80002) IVTNUM 01830825 ! 187: GO TO 0061 01840825 ! 188: 20060 IVFAIL = IVFAIL + 1 01850825 ! 189: DVCORR = -3.6268604078470187677D+00 01860825 ! 190: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01870825 ! 191: 0061 CONTINUE 01880825 ! 192: CT007* TEST 7 AN ARGUMENT OF LOW MAGNITUDE 01890825 ! 193: IVTNUM = 7 01900825 ! 194: AVD = DSINH(1.0D-14) 01910825 ! 195: IF (AVD - 0.9999999995D-14) 20070, 10070, 40070 01920825 ! 196: 40070 IF (AVD - 0.1000000001D-13) 10070, 10070, 20070 01930825 ! 197: 10070 IVPASS = IVPASS + 1 01940825 ! 198: WRITE (NUVI, 80002) IVTNUM 01950825 ! 199: GO TO 0071 01960825 ! 200: 20070 IVFAIL = IVFAIL + 1 01970825 ! 201: DVCORR = 1.0000000000000000000D-14 01980825 ! 202: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01990825 ! 203: 0071 CONTINUE 02000825 ! 204: C***** 02010825 ! 205: WRITE (NUVI, 90002) 02020825 ! 206: WRITE (NUVI, 90013) 02030825 ! 207: WRITE (NUVI, 90014) 02040825 ! 208: C***** 02050825 ! 209: WRITE(NUVI,19809) 02060825 ! 210: 19809 FORMAT(/ 08X, 13HTEST OF DCOSH) 02070825 ! 211: C***** 02080825 ! 212: CT008* TEST 8 TEST AT ZERO (0.0D0) 02090825 ! 213: IVTNUM = 8 02100825 ! 214: BVD = 0.0D0 02110825 ! 215: AVD = DCOSH(BVD) 02120825 ! 216: IF (AVD - 0.9999999995D+00) 20080, 10080, 40080 02130825 ! 217: 40080 IF (AVD - 0.1000000001D+01) 10080, 10080, 20080 02140825 ! 218: 10080 IVPASS = IVPASS + 1 02150825 ! 219: WRITE (NUVI, 80002) IVTNUM 02160825 ! 220: GO TO 0081 02170825 ! 221: 20080 IVFAIL = IVFAIL + 1 02180825 ! 222: DVCORR = 1.0000000000000000000D+00 02190825 ! 223: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02200825 ! 224: 0081 CONTINUE 02210825 ! 225: CT009* TEST 9 VALUES CLOSE TO 1.0D0 02220825 ! 226: IVTNUM = 9 02230825 ! 227: AVD = DCOSH(15.0D0 / 16.0D0) 02240825 ! 228: IF (AVD - 0.1472597541D+01) 20090, 10090, 40090 02250825 ! 229: 40090 IF (AVD - 0.1472597543D+01) 10090, 10090, 20090 02260825 ! 230: 10090 IVPASS = IVPASS + 1 02270825 ! 231: WRITE (NUVI, 80002) IVTNUM 02280825 ! 232: GO TO 0091 02290825 ! 233: 20090 IVFAIL = IVFAIL + 1 02300825 ! 234: DVCORR = 1.4725975423698629333D+00 02310825 ! 235: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02320825 ! 236: 0091 CONTINUE 02330825 ! 237: CT010* TEST 10 TEST ARGUMENTS CLOSE TO 1.0D0 02340825 ! 238: IVTNUM = 10 02350825 ! 239: BVD = 1.0D0 02360825 ! 240: AVD = DCOSH(BVD) 02370825 ! 241: IF (AVD - 0.1543080634D+01) 20100, 10100, 40100 02380825 ! 242: 40100 IF (AVD - 0.1543080636D+01) 10100, 10100, 20100 02390825 ! 243: 10100 IVPASS = IVPASS + 1 02400825 ! 244: WRITE (NUVI, 80002) IVTNUM 02410825 ! 245: GO TO 0101 02420825 ! 246: 20100 IVFAIL = IVFAIL + 1 02430825 ! 247: DVCORR = 1.5430806348152437785D+00 02440825 ! 248: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02450825 ! 249: 0101 CONTINUE 02460825 ! 250: CT011* TEST 11 TEST ARGUMENTS CLOSE TO 1.0D0 02470825 ! 251: IVTNUM = 11 02480825 ! 252: AVD = DCOSH(33.0D0 / 32.0D0) 02490825 ! 253: IF (AVD - 0.1580565167D+01) 20110, 10110, 40110 02500825 ! 254: 40110 IF (AVD - 0.1580565170D+01) 10110, 10110, 20110 02510825 ! 255: 10110 IVPASS = IVPASS + 1 02520825 ! 256: WRITE (NUVI, 80002) IVTNUM 02530825 ! 257: GO TO 0111 02540825 ! 258: 20110 IVFAIL = IVFAIL + 1 02550825 ! 259: DVCORR = 1.5805651684505867982D+00 02560825 ! 260: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02570825 ! 261: 0111 CONTINUE 02580825 ! 262: CT012* TEST 12 TEST AT 2.0D0 02590825 ! 263: IVTNUM = 12 02600825 ! 264: BVD = 2.0D0 02610825 ! 265: AVD = DCOSH(BVD) 02620825 ! 266: IF (AVD - 0.3762195689D+01) 20120, 10120, 40120 02630825 ! 267: 40120 IF (AVD - 0.3762195693D+01) 10120, 10120, 20120 02640825 ! 268: 10120 IVPASS = IVPASS + 1 02650825 ! 269: WRITE (NUVI, 80002) IVTNUM 02660825 ! 270: GO TO 0121 02670825 ! 271: 20120 IVFAIL = IVFAIL + 1 02680825 ! 272: DVCORR = 3.7621956910836314596D+00 02690825 ! 273: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02700825 ! 274: 0121 CONTINUE 02710825 ! 275: CT013* TEST 13 A NEGATIVE ARGUMENT 02720825 ! 276: IVTNUM = 13 02730825 ! 277: AVD = DCOSH(-2.0D0) 02740825 ! 278: IF (AVD - 0.3762195689D+01) 20130, 10130, 40130 02750825 ! 279: 40130 IF (AVD - 0.3762195693D+01) 10130, 10130, 20130 02760825 ! 280: 10130 IVPASS = IVPASS + 1 02770825 ! 281: WRITE (NUVI, 80002) IVTNUM 02780825 ! 282: GO TO 0131 02790825 ! 283: 20130 IVFAIL = IVFAIL + 1 02800825 ! 284: DVCORR = 3.7621956910836314596D+00 02810825 ! 285: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02820825 ! 286: 0131 CONTINUE 02830825 ! 287: CT014* TEST 14 AN ARGUMENT OF LOW MAGNITUDE 02840825 ! 288: IVTNUM = 14 02850825 ! 289: AVD = DCOSH(-1.0D-14) 02860825 ! 290: IF (AVD - 0.9999999995D+00) 20140, 10140, 40140 02870825 ! 291: 40140 IF (AVD - 0.1000000001D+01) 10140, 10140, 20140 02880825 ! 292: 10140 IVPASS = IVPASS + 1 02890825 ! 293: WRITE (NUVI, 80002) IVTNUM 02900825 ! 294: GO TO 0141 02910825 ! 295: 20140 IVFAIL = IVFAIL + 1 02920825 ! 296: DVCORR = 1.0000000000000000000D+00 02930825 ! 297: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02940825 ! 298: 0141 CONTINUE 02950825 ! 299: CT015* TEST 15 NEGATIVE VALUES SUPPLIED AS ARGUMENTS 02960825 ! 300: C***** TO BOTH FUNCTIONS IN AN EXPRESSION 02970825 ! 301: IVTNUM = 15 02980825 ! 302: BVD = DSINH(-3.145D0) ** 2 02990825 ! 303: CVD = DCOSH(-3.145D0) ** 2 03000825 ! 304: AVD = CVD - BVD 03010825 ! 305: IF (AVD - 0.9999999990D+00) 20150, 10150, 40150 03020825 ! 306: 40150 IF (AVD - 0.1000000001D+01) 10150, 10150, 20150 03030825 ! 307: 10150 IVPASS = IVPASS + 1 03040825 ! 308: WRITE (NUVI, 80002) IVTNUM 03050825 ! 309: GO TO 0151 03060825 ! 310: 20150 IVFAIL = IVFAIL + 1 03070825 ! 311: DVCORR = 1.0000000000000000000D+00 03080825 ! 312: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03090825 ! 313: 0151 CONTINUE 03100825 ! 314: CT016* TEST 16 POSITIVE VALUES SUPPLIED AS ARGUMENTS 03110825 ! 315: C***** TO BOTH FUNCTIONS IN AN EXPRESSION 03120825 ! 316: IVTNUM = 16 03130825 ! 317: AVD = DSINH(3.25D0) + DCOSH(3.25D0) 03140825 ! 318: IF (AVD - 0.2579033990D+02) 20160, 10160, 40160 03150825 ! 319: 40160 IF (AVD - 0.2579033993D+02) 10160, 10160, 20160 03160825 ! 320: 10160 IVPASS = IVPASS + 1 03170825 ! 321: WRITE (NUVI, 80002) IVTNUM 03180825 ! 322: GO TO 0161 03190825 ! 323: 20160 IVFAIL = IVFAIL + 1 03200825 ! 324: DVCORR = 25.790339917193062089D+00 03210825 ! 325: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03220825 ! 326: 0161 CONTINUE 03230825 ! 327: C***** 03240825 ! 328: CBB** ********************** BBCSUM0 **********************************03250825 ! 329: C**** WRITE OUT TEST SUMMARY 03260825 ! 330: C**** 03270825 ! 331: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 03280825 ! 332: WRITE (I02, 90004) 03290825 ! 333: WRITE (I02, 90014) 03300825 ! 334: WRITE (I02, 90004) 03310825 ! 335: WRITE (I02, 90020) IVPASS 03320825 ! 336: WRITE (I02, 90022) IVFAIL 03330825 ! 337: WRITE (I02, 90024) IVDELE 03340825 ! 338: WRITE (I02, 90026) IVINSP 03350825 ! 339: WRITE (I02, 90028) IVTOTN, IVTOTL 03360825 ! 340: CBE** ********************** BBCSUM0 **********************************03370825 ! 341: CBB** ********************** BBCFOOT0 **********************************03380825 ! 342: C**** WRITE OUT REPORT FOOTINGS 03390825 ! 343: C**** 03400825 ! 344: WRITE (I02,90016) ZPROG, ZPROG 03410825 ! 345: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 03420825 ! 346: WRITE (I02,90019) 03430825 ! 347: CBE** ********************** BBCFOOT0 **********************************03440825 ! 348: CBB** ********************** BBCFMT0A **********************************03450825 ! 349: C**** FORMATS FOR TEST DETAIL LINES 03460825 ! 350: C**** 03470825 ! 351: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 03480825 ! 352: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 03490825 ! 353: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 03500825 ! 354: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 03510825 ! 355: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 03520825 ! 356: 1I6,/,1H ,15X,10HCORRECT= ,I6) 03530825 ! 357: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03540825 ! 358: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 03550825 ! 359: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03560825 ! 360: 1A21,/,1H ,16X,10HCORRECT= ,A21) 03570825 ! 361: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 03580825 ! 362: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 03590825 ! 363: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 03600825 ! 364: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 03610825 ! 365: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 03620825 ! 366: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 03630825 ! 367: 80050 FORMAT (1H ,48X,A31) 03640825 ! 368: CBE** ********************** BBCFMT0A **********************************03650825 ! 369: CBB** ********************** BBCFMAT1 **********************************03660825 ! 370: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 03670825 ! 371: C**** 03680825 ! 372: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03690825 ! 373: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 03700825 ! 374: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 03710825 ! 375: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 03720825 ! 376: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 03730825 ! 377: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 03740825 ! 378: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 03750825 ! 379: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 03760825 ! 380: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03770825 ! 381: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 03780825 ! 382: 21H(,F12.5,2H, ,F12.5,1H)) 03790825 ! 383: CBE** ********************** BBCFMAT1 **********************************03800825 ! 384: CBB** ********************** BBCFMT0B **********************************03810825 ! 385: C**** FORMAT STATEMENTS FOR PAGE HEADERS 03820825 ! 386: C**** 03830825 ! 387: 90002 FORMAT (1H1) 03840825 ! 388: 90004 FORMAT (1H ) 03850825 ! 389: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 03860825 ! 390: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03870825 ! 391: 90008 FORMAT (1H ,21X,A13,A17) 03880825 ! 392: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 03890825 ! 393: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 03900825 ! 394: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 03910825 ! 395: 1 7X,7HREMARKS,24X) 03920825 ! 396: 90014 FORMAT (1H ,46H----------------------------------------------, 03930825 ! 397: 1 33H---------------------------------) 03940825 ! 398: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 03950825 ! 399: C**** 03960825 ! 400: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03970825 ! 401: C**** 03980825 ! 402: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 03990825 ! 403: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 04000825 ! 404: 1 A13) 04010825 ! 405: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 04020825 ! 406: C**** 04030825 ! 407: C**** FORMAT STATEMENTS FOR RUN SUMMARY 04040825 ! 408: C**** 04050825 ! 409: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 04060825 ! 410: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 04070825 ! 411: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 04080825 ! 412: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 04090825 ! 413: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 04100825 ! 414: CBE** ********************** BBCFMT0B **********************************04110825 ! 415: C***** 04120825 ! 416: C***** END OF TEST SEGMENT 198 04130825 ! 417: STOP 04140825 ! 418: END 04150825
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.