![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM376.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 FM376.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***********************************************************************00010376 ! 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 00020376 ! 6: C***** FM376 00030376 ! 7: C***** XATAN - (195) 00040376 ! 8: C***** 00050376 ! 9: C***********************************************************************00060376 ! 10: C***** GENERAL PURPOSE SUBSET REF 00070376 ! 11: C***** TEST INTRINSIC FUNCTION ATAN, ATAN2 15.3 00080376 ! 12: C***** INTRINSIC FUNCTION SQRT ASSUMED WORKING TABLE 5 00090376 ! 13: C***** 00100376 ! 14: CBB** ********************** BBCCOMNT **********************************00110376 ! 15: C**** 00120376 ! 16: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130376 ! 17: C**** VERSION 2.0 00140376 ! 18: C**** 00150376 ! 19: C**** 00160376 ! 20: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170376 ! 21: C**** GENERAL SERVICES ADMINISTRATION 00180376 ! 22: C**** FEDERAL SOFTWARE TESTING CENTER 00190376 ! 23: C**** 5203 LEESBURG PIKE, SUITE 1100 00200376 ! 24: C**** FALLS CHURCH, VA. 22041 00210376 ! 25: C**** 00220376 ! 26: C**** (703) 756-6153 00230376 ! 27: C**** 00240376 ! 28: CBE** ********************** BBCCOMNT **********************************00250376 ! 29: CBB** ********************** BBCINITA **********************************00260376 ! 30: C**** SPECIFICATION STATEMENTS 00270376 ! 31: C**** 00280376 ! 32: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00290376 ! 33: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00300376 ! 34: CBE** ********************** BBCINITA **********************************00310376 ! 35: CBB** ********************** BBCINITB **********************************00320376 ! 36: C**** INITIALIZE SECTION 00330376 ! 37: DATA ZVERS, ZVERSD, ZDATE 00340376 ! 38: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00350376 ! 39: DATA ZCOMPL, ZNAME, ZTAPE 00360376 ! 40: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00370376 ! 41: DATA ZPROJ, ZTAPED, ZPROG 00380376 ! 42: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00390376 ! 43: DATA REMRKS /' '/ 00400376 ! 44: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00410376 ! 45: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00420376 ! 46: C**** 00430376 ! 47: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00440376 ! 48: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00450376 ! 49: CZ03 ZPROG = 'PROGRAM NAME' 00460376 ! 50: ZDATE = '07-Nov-85 ' *RP ! 51: ZCOMPL = 'CCI 5.2 ' *RP ! 52: ZPROJ = 'TC-85- -410' *RP ! 53: ZNAME = ' ' *RP ! 54: ZTAPE = ' ' *RP ! 55: ZTAPED = '850703 ' *RP ! 56: C 00530376 ! 57: IVPASS = 0 00540376 ! 58: IVFAIL = 0 00550376 ! 59: IVDELE = 0 00560376 ! 60: IVINSP = 0 00570376 ! 61: IVTOTL = 0 00580376 ! 62: IVTOTN = 0 00590376 ! 63: ICZERO = 0 00600376 ! 64: C 00610376 ! 65: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00620376 ! 66: I01 = 05 00630376 ! 67: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00640376 ! 68: I02 = 06 00650376 ! 69: C 00660376 ! 70: I01 = 5 00670376 ! 71: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00680376 ! 72: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00690376 ! 73: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00700376 ! 74: C 00710376 ! 75: I02 = 6 00720376 ! 76: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00730376 ! 77: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00740376 ! 78: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00750376 ! 79: C 00760376 ! 80: CBE** ********************** BBCINITB **********************************00770376 ! 81: NUVI = I02 00780376 ! 82: IVTOTL = 13 00790376 ! 83: ZPROG = 'FM376' 00800376 ! 84: CBB** ********************** BBCHED0A **********************************00810376 ! 85: C**** 00820376 ! 86: C**** WRITE REPORT TITLE 00830376 ! 87: C**** 00840376 ! 88: WRITE (I02, 90002) 00850376 ! 89: WRITE (I02, 90006) 00860376 ! 90: WRITE (I02, 90007) 00870376 ! 91: WRITE (I02, 90008) ZVERS, ZVERSD 00880376 ! 92: WRITE (I02, 90009) ZPROG, ZPROG 00890376 ! 93: WRITE (I02, 90010) ZDATE, ZCOMPL 00900376 ! 94: CBE** ********************** BBCHED0A **********************************00910376 ! 95: C***** 00920376 ! 96: C***** HEADER FOR SEGMENT 195 00930376 ! 97: WRITE(NUVI,19500) 00940376 ! 98: 19500 FORMAT(1H , / 35H XATAN - (195) INTRINSIC FUNCTIONS// 00950376 ! 99: 1 28H ATAN, ATAN2 (ARCTANGENT)// 00960376 ! 100: 2 20H SUBSET REF. - 15.3) 00970376 ! 101: CBB** ********************** BBCHED0B **********************************00980376 ! 102: C**** WRITE DETAIL REPORT HEADERS 00990376 ! 103: C**** 01000376 ! 104: WRITE (I02,90004) 01010376 ! 105: WRITE (I02,90004) 01020376 ! 106: WRITE (I02,90013) 01030376 ! 107: WRITE (I02,90014) 01040376 ! 108: WRITE (I02,90015) IVTOTL 01050376 ! 109: CBE** ********************** BBCHED0B **********************************01060376 ! 110: C***** 01070376 ! 111: WRITE(NUVI,19501) 01080376 ! 112: C***** 01090376 ! 113: 19501 FORMAT(/ 8X, 12HTEST OF ATAN) 01100376 ! 114: C***** 01110376 ! 115: CT001* TEST 1 TEST LARGE VALUES TO TEST SINGULARITY 01120376 ! 116: IVTNUM = 1 01130376 ! 117: BVS = 500.0 01140376 ! 118: AVS = ATAN(BVS) 01150376 ! 119: IF (AVS - 0.15687E+01) 20010, 10010, 40010 01160376 ! 120: 40010 IF (AVS - 0.15689E+01) 10010, 10010, 20010 01170376 ! 121: 10010 IVPASS = IVPASS + 1 01180376 ! 122: WRITE (NUVI, 80002) IVTNUM 01190376 ! 123: GO TO 0011 01200376 ! 124: 20010 IVFAIL = IVFAIL + 1 01210376 ! 125: RVCORR = 1.56879632946156 01220376 ! 126: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01230376 ! 127: 0011 CONTINUE 01240376 ! 128: CT002* TEST 2 TEST LARGE VALUES TO TEST SINGULARITY 01250376 ! 129: IVTNUM = 2 01260376 ! 130: AVS = ATAN(-1000.0) 01270376 ! 131: IF (AVS + 0.15699E+01) 20020, 10020, 40020 01280376 ! 132: 40020 IF (AVS + 0.15697E+01) 10020, 10020, 20020 01290376 ! 133: 10020 IVPASS = IVPASS + 1 01300376 ! 134: WRITE (NUVI, 80002) IVTNUM 01310376 ! 135: GO TO 0021 01320376 ! 136: 20020 IVFAIL = IVFAIL + 1 01330376 ! 137: RVCORR = -1.56979632712823 01340376 ! 138: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01350376 ! 139: 0021 CONTINUE 01360376 ! 140: CT003* TEST 3 AN EXPRESSION PRESENTED TO ATAN 01370376 ! 141: IVTNUM = 3 01380376 ! 142: AVS = ATAN(100.0 / 100.0) 01390376 ! 143: IF (AVS - 0.78535E+00) 20030, 10030, 40030 01400376 ! 144: 40030 IF (AVS - 0.78544E+00) 10030, 10030, 20030 01410376 ! 145: 10030 IVPASS = IVPASS + 1 01420376 ! 146: WRITE (NUVI, 80002) IVTNUM 01430376 ! 147: GO TO 0031 01440376 ! 148: 20030 IVFAIL = IVFAIL + 1 01450376 ! 149: RVCORR = 0.78539816339745 01460376 ! 150: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01470376 ! 151: 0031 CONTINUE 01480376 ! 152: CT004* TEST 4 A VARIABLE PRESENTED TO ATAN 01490376 ! 153: IVTNUM = 4 01500376 ! 154: BVS = -SQRT(3.0) 01510376 ! 155: AVS = ATAN(BVS) 01520376 ! 156: IF (AVS + 0.10473E+01) 20040, 10040, 40040 01530376 ! 157: 40040 IF (AVS + 0.10471E+01) 10040, 10040, 20040 01540376 ! 158: 10040 IVPASS = IVPASS + 1 01550376 ! 159: WRITE (NUVI, 80002) IVTNUM 01560376 ! 160: GO TO 0041 01570376 ! 161: 20040 IVFAIL = IVFAIL + 1 01580376 ! 162: RVCORR = -1.04719755119660 01590376 ! 163: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01600376 ! 164: 0041 CONTINUE 01610376 ! 165: CT005* TEST 5 AN ARGUMENT OF LOW MAGNITUDE 01620376 ! 166: IVTNUM = 5 01630376 ! 167: AVS = ATAN(1.0E-16) 01640376 ! 168: IF (AVS - 0.99995E-16) 20050, 10050, 40050 01650376 ! 169: 40050 IF (AVS - 0.10001E-15) 10050, 10050, 20050 01660376 ! 170: 10050 IVPASS = IVPASS + 1 01670376 ! 171: WRITE (NUVI, 80002) IVTNUM 01680376 ! 172: GO TO 0051 01690376 ! 173: 20050 IVFAIL = IVFAIL + 1 01700376 ! 174: RVCORR = 1.00000000000000E-16 01710376 ! 175: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01720376 ! 176: 0051 CONTINUE 01730376 ! 177: CT006* TEST 6 AN ARGUMENT OF HIGH MAGNITUDE 01740376 ! 178: IVTNUM = 6 01750376 ! 179: AVS = ATAN(-2.0E+34) 01760376 ! 180: IF (AVS + 0.15709E+01) 20060, 10060, 40060 01770376 ! 181: 40060 IF (AVS + 0.15707E+01) 10060, 10060, 20060 01780376 ! 182: 10060 IVPASS = IVPASS + 1 01790376 ! 183: WRITE (NUVI, 80002) IVTNUM 01800376 ! 184: GO TO 0061 01810376 ! 185: 20060 IVFAIL = IVFAIL + 1 01820376 ! 186: RVCORR = -1.57079632679490 01830376 ! 187: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01840376 ! 188: 0061 CONTINUE 01850376 ! 189: C***** 01860376 ! 190: WRITE(NUVI,19508) 01870376 ! 191: 19508 FORMAT(/ 08X, 13HTEST OF ATAN2) 01880376 ! 192: CT007* TEST 7 TEST ATAN2 FOR (0,POSITIVE) 01890376 ! 193: IVTNUM = 7 01900376 ! 194: BVS = 10.0 / 10.0 01910376 ! 195: CVS = 0.0 01920376 ! 196: AVS = ATAN2(CVS, BVS) 01930376 ! 197: IF (AVS + 0.50000E-04) 20070, 10070, 40070 01940376 ! 198: 40070 IF (AVS - 0.50000E-04) 10070, 10070, 20070 01950376 ! 199: 10070 IVPASS = IVPASS + 1 01960376 ! 200: WRITE (NUVI, 80002) IVTNUM 01970376 ! 201: GO TO 0071 01980376 ! 202: 20070 IVFAIL = IVFAIL + 1 01990376 ! 203: RVCORR = 0.00000000000000 02000376 ! 204: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02010376 ! 205: 0071 CONTINUE 02020376 ! 206: CT008* TEST 8 TEST ATAN2 FOR (0, NEGATIVE) 02030376 ! 207: IVTNUM = 8 02040376 ! 208: BVS = 0.0 02050376 ! 209: CVS = -25.0 / 2.0 02060376 ! 210: AVS = ATAN2(BVS, CVS) 02070376 ! 211: IF (AVS - 0.31414E+01) 20080, 10080, 40080 02080376 ! 212: 40080 IF (AVS - 0.31418E+01) 10080, 10080, 20080 02090376 ! 213: 10080 IVPASS = IVPASS + 1 02100376 ! 214: WRITE (NUVI, 80002) IVTNUM 02110376 ! 215: GO TO 0081 02120376 ! 216: 20080 IVFAIL = IVFAIL + 1 02130376 ! 217: RVCORR = 3.14159265358979 02140376 ! 218: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02150376 ! 219: 0081 CONTINUE 02160376 ! 220: CT009* TEST 9 AN EXPRESSION PRESENTED TO ATAN2 02170376 ! 221: IVTNUM = 9 02180376 ! 222: BVS = 1.0 02190376 ! 223: CVS = BVS + BVS 02200376 ! 224: AVS = ATAN2(BVS * 2.0, CVS) 02210376 ! 225: IF (AVS - 0.78535E+00) 20090, 10090, 40090 02220376 ! 226: 40090 IF (AVS - 0.78544E+00) 10090, 10090, 20090 02230376 ! 227: 10090 IVPASS = IVPASS + 1 02240376 ! 228: WRITE (NUVI, 80002) IVTNUM 02250376 ! 229: GO TO 0091 02260376 ! 230: 20090 IVFAIL = IVFAIL + 1 02270376 ! 231: RVCORR = 0.78539816339745 02280376 ! 232: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02290376 ! 233: 0091 CONTINUE 02300376 ! 234: CT010* TEST 10 TEST ATAN2(X,Y) FOR X NEAR ZERO 02310376 ! 235: IVTNUM = 10 02320376 ! 236: BVS = ASIN(0.6) 02330376 ! 237: CVS = ACOS(0.8) 02340376 ! 238: AVS = ATAN2(BVS, CVS) 02350376 ! 239: IF (AVS - 0.78535E+00) 20100, 10100, 40100 02360376 ! 240: 40100 IF (AVS - 0.78544E+00) 10100, 10100, 20100 02370376 ! 241: 10100 IVPASS = IVPASS + 1 02380376 ! 242: WRITE (NUVI, 80002) IVTNUM 02390376 ! 243: GO TO 0101 02400376 ! 244: 20100 IVFAIL = IVFAIL + 1 02410376 ! 245: RVCORR = 0.78539816339745 02420376 ! 246: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02430376 ! 247: 0101 CONTINUE 02440376 ! 248: CT011* TEST 11 WHERE ATAN2(X,Y) IS ZERO FOR Y 02450376 ! 249: IVTNUM = 11 02460376 ! 250: AVS = ATAN2(1.2, 0.0) 02470376 ! 251: IF (AVS - 0.15707E+01) 20110, 10110, 40110 02480376 ! 252: 40110 IF (AVS - 0.15709E+01) 10110, 10110, 20110 02490376 ! 253: 10110 IVPASS = IVPASS + 1 02500376 ! 254: WRITE (NUVI, 80002) IVTNUM 02510376 ! 255: GO TO 0111 02520376 ! 256: 20110 IVFAIL = IVFAIL + 1 02530376 ! 257: RVCORR = 1.57079632679490 02540376 ! 258: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02550376 ! 259: 0111 CONTINUE 02560376 ! 260: CT012* TEST 12 WHERE ATAN2(X,Y) IS ZERO FOR Y 02570376 ! 261: IVTNUM = 12 02580376 ! 262: BVS = -2.5 02590376 ! 263: CVS = 0.0 02600376 ! 264: AVS = ATAN2(BVS, CVS) 02610376 ! 265: IF (AVS + 0.15709E+01) 20120, 10120, 40120 02620376 ! 266: 40120 IF (AVS + 0.15707E+01) 10120, 10120, 20120 02630376 ! 267: 10120 IVPASS = IVPASS + 1 02640376 ! 268: WRITE (NUVI, 80002) IVTNUM 02650376 ! 269: GO TO 0121 02660376 ! 270: 20120 IVFAIL = IVFAIL + 1 02670376 ! 271: RVCORR = -1.57079632679490 02680376 ! 272: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02690376 ! 273: 0121 CONTINUE 02700376 ! 274: CT013* TEST 13 COMPARISON OF ATAN WITH ATAN2 02710376 ! 275: IVTNUM = 13 02720376 ! 276: AVS = (ATAN(SQRT(3.0) / 3.0) * 2.0) 02730376 ! 277: 1 + ATAN2(-SQRT(3.0) / 2.0, 1.0 / 2.0) 02740376 ! 278: IF (AVS + 0.50000E-04) 20130, 10130, 40130 02750376 ! 279: 40130 IF (AVS - 0.50000E-04) 10130, 10130, 20130 02760376 ! 280: 10130 IVPASS = IVPASS + 1 02770376 ! 281: WRITE (NUVI, 80002) IVTNUM 02780376 ! 282: GO TO 0131 02790376 ! 283: 20130 IVFAIL = IVFAIL + 1 02800376 ! 284: RVCORR = 0.00000000000000 02810376 ! 285: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02820376 ! 286: 0131 CONTINUE 02830376 ! 287: C***** 02840376 ! 288: CBB** ********************** BBCSUM0 **********************************02850376 ! 289: C**** WRITE OUT TEST SUMMARY 02860376 ! 290: C**** 02870376 ! 291: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02880376 ! 292: WRITE (I02, 90004) 02890376 ! 293: WRITE (I02, 90014) 02900376 ! 294: WRITE (I02, 90004) 02910376 ! 295: WRITE (I02, 90020) IVPASS 02920376 ! 296: WRITE (I02, 90022) IVFAIL 02930376 ! 297: WRITE (I02, 90024) IVDELE 02940376 ! 298: WRITE (I02, 90026) IVINSP 02950376 ! 299: WRITE (I02, 90028) IVTOTN, IVTOTL 02960376 ! 300: CBE** ********************** BBCSUM0 **********************************02970376 ! 301: CBB** ********************** BBCFOOT0 **********************************02980376 ! 302: C**** WRITE OUT REPORT FOOTINGS 02990376 ! 303: C**** 03000376 ! 304: WRITE (I02,90016) ZPROG, ZPROG 03010376 ! 305: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 03020376 ! 306: WRITE (I02,90019) 03030376 ! 307: CBE** ********************** BBCFOOT0 **********************************03040376 ! 308: CBB** ********************** BBCFMT0A **********************************03050376 ! 309: C**** FORMATS FOR TEST DETAIL LINES 03060376 ! 310: C**** 03070376 ! 311: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 03080376 ! 312: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 03090376 ! 313: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 03100376 ! 314: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 03110376 ! 315: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 03120376 ! 316: 1I6,/,1H ,15X,10HCORRECT= ,I6) 03130376 ! 317: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03140376 ! 318: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 03150376 ! 319: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03160376 ! 320: 1A21,/,1H ,16X,10HCORRECT= ,A21) 03170376 ! 321: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 03180376 ! 322: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 03190376 ! 323: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 03200376 ! 324: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 03210376 ! 325: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 03220376 ! 326: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 03230376 ! 327: 80050 FORMAT (1H ,48X,A31) 03240376 ! 328: CBE** ********************** BBCFMT0A **********************************03250376 ! 329: CBB** ********************** BBCFMT0B **********************************03260376 ! 330: C**** FORMAT STATEMENTS FOR PAGE HEADERS 03270376 ! 331: C**** 03280376 ! 332: 90002 FORMAT (1H1) 03290376 ! 333: 90004 FORMAT (1H ) 03300376 ! 334: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 03310376 ! 335: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03320376 ! 336: 90008 FORMAT (1H ,21X,A13,A17) 03330376 ! 337: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 03340376 ! 338: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 03350376 ! 339: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 03360376 ! 340: 1 7X,7HREMARKS,24X) 03370376 ! 341: 90014 FORMAT (1H ,46H----------------------------------------------, 03380376 ! 342: 1 33H---------------------------------) 03390376 ! 343: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 03400376 ! 344: C**** 03410376 ! 345: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03420376 ! 346: C**** 03430376 ! 347: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 03440376 ! 348: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 03450376 ! 349: 1 A13) 03460376 ! 350: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 03470376 ! 351: C**** 03480376 ! 352: C**** FORMAT STATEMENTS FOR RUN SUMMARY 03490376 ! 353: C**** 03500376 ! 354: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03510376 ! 355: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03520376 ! 356: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03530376 ! 357: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 03540376 ! 358: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 03550376 ! 359: CBE** ********************** BBCFMT0B **********************************03560376 ! 360: C***** 03570376 ! 361: C***** END OF TEST SEGMENT 195 03580376 ! 362: STOP 03590376 ! 363: END 03600376 ! 364: 03610376
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.