![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM372.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 FM372.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***********************************************************************00010372 ! 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 00020372 ! 6: C***** FM372 00030372 ! 7: C***** XSIN - (186) 00040372 ! 8: C***** 00050372 ! 9: C***********************************************************************00060372 ! 10: C***** GENERAL PURPOSE SUBSET REF 00070372 ! 11: C***** TEST INTRINSIC FUNCTION SIN 15.3 00080372 ! 12: C***** TABLE 5 00090372 ! 13: C***** 00100372 ! 14: CBB** ********************** BBCCOMNT **********************************00110372 ! 15: C**** 00120372 ! 16: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130372 ! 17: C**** VERSION 2.0 00140372 ! 18: C**** 00150372 ! 19: C**** 00160372 ! 20: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170372 ! 21: C**** GENERAL SERVICES ADMINISTRATION 00180372 ! 22: C**** FEDERAL SOFTWARE TESTING CENTER 00190372 ! 23: C**** 5203 LEESBURG PIKE, SUITE 1100 00200372 ! 24: C**** FALLS CHURCH, VA. 22041 00210372 ! 25: C**** 00220372 ! 26: C**** (703) 756-6153 00230372 ! 27: C**** 00240372 ! 28: CBE** ********************** BBCCOMNT **********************************00250372 ! 29: CBB** ********************** BBCINITA **********************************00260372 ! 30: C**** SPECIFICATION STATEMENTS 00270372 ! 31: C**** 00280372 ! 32: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00290372 ! 33: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00300372 ! 34: CBE** ********************** BBCINITA **********************************00310372 ! 35: CBB** ********************** BBCINITB **********************************00320372 ! 36: C**** INITIALIZE SECTION 00330372 ! 37: DATA ZVERS, ZVERSD, ZDATE 00340372 ! 38: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00350372 ! 39: DATA ZCOMPL, ZNAME, ZTAPE 00360372 ! 40: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00370372 ! 41: DATA ZPROJ, ZTAPED, ZPROG 00380372 ! 42: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00390372 ! 43: DATA REMRKS /' '/ 00400372 ! 44: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00410372 ! 45: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00420372 ! 46: C**** 00430372 ! 47: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00440372 ! 48: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00450372 ! 49: CZ03 ZPROG = 'PROGRAM NAME' 00460372 ! 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 00530372 ! 57: IVPASS = 0 00540372 ! 58: IVFAIL = 0 00550372 ! 59: IVDELE = 0 00560372 ! 60: IVINSP = 0 00570372 ! 61: IVTOTL = 0 00580372 ! 62: IVTOTN = 0 00590372 ! 63: ICZERO = 0 00600372 ! 64: C 00610372 ! 65: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00620372 ! 66: I01 = 05 00630372 ! 67: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00640372 ! 68: I02 = 06 00650372 ! 69: C 00660372 ! 70: I01 = 5 00670372 ! 71: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00680372 ! 72: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00690372 ! 73: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00700372 ! 74: C 00710372 ! 75: I02 = 6 00720372 ! 76: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00730372 ! 77: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00740372 ! 78: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00750372 ! 79: C 00760372 ! 80: CBE** ********************** BBCINITB **********************************00770372 ! 81: NUVI = I02 00780372 ! 82: IVTOTL = 18 00790372 ! 83: ZPROG = 'FM372' 00800372 ! 84: CBB** ********************** BBCHED0A **********************************00810372 ! 85: C**** 00820372 ! 86: C**** WRITE REPORT TITLE 00830372 ! 87: C**** 00840372 ! 88: WRITE (I02, 90002) 00850372 ! 89: WRITE (I02, 90006) 00860372 ! 90: WRITE (I02, 90007) 00870372 ! 91: WRITE (I02, 90008) ZVERS, ZVERSD 00880372 ! 92: WRITE (I02, 90009) ZPROG, ZPROG 00890372 ! 93: WRITE (I02, 90010) ZDATE, ZCOMPL 00900372 ! 94: CBE** ********************** BBCHED0A **********************************00910372 ! 95: C***** 00920372 ! 96: C***** HEADER FOR SEGMENT 186 00930372 ! 97: WRITE(NUVI,18600) 00940372 ! 98: 18600 FORMAT(1H ,33H XSIN - (186) INTRINSIC FUNCTIONS// 00950372 ! 99: 1 12H SIN (SINE)// 00960372 ! 100: 2 20H SUBSET REF. - 15.3) 00970372 ! 101: CBB** ********************** BBCHED0B **********************************00980372 ! 102: C**** WRITE DETAIL REPORT HEADERS 00990372 ! 103: C**** 01000372 ! 104: WRITE (I02,90004) 01010372 ! 105: WRITE (I02,90004) 01020372 ! 106: WRITE (I02,90013) 01030372 ! 107: WRITE (I02,90014) 01040372 ! 108: WRITE (I02,90015) IVTOTL 01050372 ! 109: CBE** ********************** BBCHED0B **********************************01060372 ! 110: C***** 01070372 ! 111: PIVS = 3.1415926535897932384626434 01080372 ! 112: C***** 01090372 ! 113: CT001* TEST 1 ZERO (0.0), SINCE SIN(0)=0 01100372 ! 114: IVTNUM = 1 01110372 ! 115: BVS = 0.0 01120372 ! 116: AVS = SIN(BVS) 01130372 ! 117: IF (AVS + 0.50000E-04) 20010, 10010, 40010 01140372 ! 118: 40010 IF (AVS - 0.50000E-04) 10010, 10010, 20010 01150372 ! 119: 10010 IVPASS = IVPASS + 1 01160372 ! 120: WRITE (NUVI, 80002) IVTNUM 01170372 ! 121: GO TO 0011 01180372 ! 122: 20010 IVFAIL = IVFAIL + 1 01190372 ! 123: RVCORR = 0.00000000000000 01200372 ! 124: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01210372 ! 125: 0011 CONTINUE 01220372 ! 126: CT002* TEST 2 PI 01230372 ! 127: IVTNUM = 2 01240372 ! 128: AVS = SIN(PIVS) 01250372 ! 129: IF (AVS + 0.50000E-04) 20020, 10020, 40020 01260372 ! 130: 40020 IF (AVS - 0.50000E-04) 10020, 10020, 20020 01270372 ! 131: 10020 IVPASS = IVPASS + 1 01280372 ! 132: WRITE (NUVI, 80002) IVTNUM 01290372 ! 133: GO TO 0021 01300372 ! 134: 20020 IVFAIL = IVFAIL + 1 01310372 ! 135: RVCORR = 0.00000000000000 01320372 ! 136: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01330372 ! 137: 0021 CONTINUE 01340372 ! 138: CT003* TEST 3 PI - 1/8 01350372 ! 139: IVTNUM = 3 01360372 ! 140: BVS = 3.0165926535 01370372 ! 141: AVS = SIN(BVS) 01380372 ! 142: IF (AVS - 0.12466E+00) 20030, 10030, 40030 01390372 ! 143: 40030 IF (AVS - 0.12468E+00) 10030, 10030, 20030 01400372 ! 144: 10030 IVPASS = IVPASS + 1 01410372 ! 145: WRITE (NUVI, 80002) IVTNUM 01420372 ! 146: GO TO 0031 01430372 ! 147: 20030 IVFAIL = IVFAIL + 1 01440372 ! 148: RVCORR = 0.12467473338523 01450372 ! 149: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01460372 ! 150: 0031 CONTINUE 01470372 ! 151: CT004* TEST 4 PI - 1/16 01480372 ! 152: IVTNUM = 4 01490372 ! 153: AVS = SIN(3.2040926535) 01500372 ! 154: IF (AVS + 0.62463E-01) 20040, 10040, 40040 01510372 ! 155: 40040 IF (AVS + 0.62456E-01) 10040, 10040, 20040 01520372 ! 156: 10040 IVPASS = IVPASS + 1 01530372 ! 157: WRITE (NUVI, 80002) IVTNUM 01540372 ! 158: GO TO 0041 01550372 ! 159: 20040 IVFAIL = IVFAIL + 1 01560372 ! 160: RVCORR = -0.06245931784238 01570372 ! 161: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01580372 ! 162: 0041 CONTINUE 01590372 ! 163: CT005* TEST 5 2*PI 01600372 ! 164: IVTNUM = 5 01610372 ! 165: BVS = PIVS * 2.0 01620372 ! 166: AVS = SIN(BVS) 01630372 ! 167: IF (AVS + 0.50000E-04) 20050, 10050, 40050 01640372 ! 168: 40050 IF (AVS - 0.50000E-04) 10050, 10050, 20050 01650372 ! 169: 10050 IVPASS = IVPASS + 1 01660372 ! 170: WRITE (NUVI, 80002) IVTNUM 01670372 ! 171: GO TO 0051 01680372 ! 172: 20050 IVFAIL = IVFAIL + 1 01690372 ! 173: RVCORR = 0.00000000000000 01700372 ! 174: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01710372 ! 175: 0051 CONTINUE 01720372 ! 176: CT006* TEST 6 2*PI - 1/128 01730372 ! 177: IVTNUM = 6 01740372 ! 178: BVS = (2.0 * PIVS) - 1.0 / 128.0 01750372 ! 179: AVS = SIN(BVS) 01760372 ! 180: IF (AVS + 0.78129E-02) 20060, 10060, 40060 01770372 ! 181: 40060 IF (AVS + 0.78120E-02) 10060, 10060, 20060 01780372 ! 182: 10060 IVPASS = IVPASS + 1 01790372 ! 183: WRITE (NUVI, 80002) IVTNUM 01800372 ! 184: GO TO 0061 01810372 ! 185: 20060 IVFAIL = IVFAIL + 1 01820372 ! 186: RVCORR = -0.00781242052738 01830372 ! 187: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01840372 ! 188: 70061 FORMAT (1H ,16X,34HINFORMATIVE - UNDER REVIEW BY FSTC) 01840*TI ! 189: WRITE (NUVI,70061) 01840*TI ! 190: 0061 CONTINUE 01850372 ! 191: CT007* TEST 7 THE VALUE 2.0 01860372 ! 192: IVTNUM = 7 01870372 ! 193: BVS = 2.0 01880372 ! 194: AVS = SIN(BVS) 01890372 ! 195: IF (AVS - 0.90925E+00) 20070, 10070, 40070 01900372 ! 196: 40070 IF (AVS - 0.90935E+00) 10070, 10070, 20070 01910372 ! 197: 10070 IVPASS = IVPASS + 1 01920372 ! 198: WRITE (NUVI, 80002) IVTNUM 01930372 ! 199: GO TO 0071 01940372 ! 200: 20070 IVFAIL = IVFAIL + 1 01950372 ! 201: RVCORR = 0.90929742682568 01960372 ! 202: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01970372 ! 203: 0071 CONTINUE 01980372 ! 204: CT008* TEST 8 THE VALUE -2.0 01990372 ! 205: IVTNUM = 8 02000372 ! 206: BVS = -2.0 02010372 ! 207: AVS = SIN(BVS) 02020372 ! 208: IF (AVS + 0.90935E+00) 20080, 10080, 40080 02030372 ! 209: 40080 IF (AVS + 0.90925E+00) 10080, 10080, 20080 02040372 ! 210: 10080 IVPASS = IVPASS + 1 02050372 ! 211: WRITE (NUVI, 80002) IVTNUM 02060372 ! 212: GO TO 0081 02070372 ! 213: 20080 IVFAIL = IVFAIL + 1 02080372 ! 214: RVCORR = -0.90929742682568 02090372 ! 215: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02100372 ! 216: 0081 CONTINUE 02110372 ! 217: CT009* TEST 09 A LARGE VALUE TO TEST ARGUMENT REDUCTION 02120372 ! 218: IVTNUM = 09 02130372 ! 219: AVS = SIN(100.0) 02140372 ! 220: IF (AVS + 0.50639E+00) 20090, 10090, 40090 02150372 ! 221: 40090 IF (AVS + 0.50634E+00) 10090, 10090, 20090 02160372 ! 222: 10090 IVPASS = IVPASS + 1 02170372 ! 223: WRITE (NUVI, 80002) IVTNUM 02180372 ! 224: GO TO 0091 02190372 ! 225: 20090 IVFAIL = IVFAIL + 1 02200372 ! 226: RVCORR = -0.50636564110976 02210372 ! 227: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02220372 ! 228: 0091 CONTINUE 02230372 ! 229: CT010* TEST 10 A VERY LARGE VALUE 02240372 ! 230: IVTNUM = 10 02250372 ! 231: AVS = SIN(-1000.0) 02260372 ! 232: IF (AVS + 0.82692E+00) 20100, 10100, 40100 02270372 ! 233: 40100 IF (AVS + 0.82683E+00) 10100, 10100, 20100 02280372 ! 234: 10100 IVPASS = IVPASS + 1 02290372 ! 235: WRITE (NUVI, 80002) IVTNUM 02300372 ! 236: GO TO 0101 02310372 ! 237: 20100 IVFAIL = IVFAIL + 1 02320372 ! 238: RVCORR = -0.82687954053200 02330372 ! 239: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02340372 ! 240: 0101 CONTINUE 02350372 ! 241: CT011* TEST 11 PI/2 02360372 ! 242: IVTNUM = 11 02370372 ! 243: AVS = SIN(1.5707963268) 02380372 ! 244: IF (AVS - 0.99995E+00) 20110, 10110, 40110 02390372 ! 245: 40110 IF (AVS - 0.10001E+01) 10110, 10110, 20110 02400372 ! 246: 10110 IVPASS = IVPASS + 1 02410372 ! 247: WRITE (NUVI, 80002) IVTNUM 02420372 ! 248: GO TO 0111 02430372 ! 249: 20110 IVFAIL = IVFAIL + 1 02440372 ! 250: RVCORR = 1.00000000000000 02450372 ! 251: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02460372 ! 252: 0111 CONTINUE 02470372 ! 253: CT012* TEST 12 PI/2 - 1/32 02480372 ! 254: IVTNUM = 12 02490372 ! 255: BVS = 1.5395463268 02500372 ! 256: AVS = SIN(BVS) 02510372 ! 257: IF (AVS - 0.99946E+00) 20120, 10120, 40120 02520372 ! 258: 40120 IF (AVS - 0.99957E+00) 10120, 10120, 20120 02530372 ! 259: 10120 IVPASS = IVPASS + 1 02540372 ! 260: WRITE (NUVI, 80002) IVTNUM 02550372 ! 261: GO TO 0121 02560372 ! 262: 20120 IVFAIL = IVFAIL + 1 02570372 ! 263: RVCORR = 0.99951175848514 02580372 ! 264: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02590372 ! 265: 0121 CONTINUE 02600372 ! 266: CT013* TEST 13 PI/2 - 1/64 02610372 ! 267: IVTNUM = 13 02620372 ! 268: AVS = SIN(1.5864213268) 02630372 ! 269: IF (AVS - 0.99982E+00) 20130, 10130, 40130 02640372 ! 270: 40130 IF (AVS - 0.99993E+00) 10130, 10130, 20130 02650372 ! 271: 10130 IVPASS = IVPASS + 1 02660372 ! 272: WRITE (NUVI, 80002) IVTNUM 02670372 ! 273: GO TO 0131 02680372 ! 274: 20130 IVFAIL = IVFAIL + 1 02690372 ! 275: RVCORR = 0.99987793217101 02700372 ! 276: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02710372 ! 277: 0131 CONTINUE 02720372 ! 278: CT014* TEST 14 3*PI/2 02730372 ! 279: IVTNUM = 14 02740372 ! 280: BVS = 3.0 * PIVS / 2.0 02750372 ! 281: AVS = SIN(BVS) 02760372 ! 282: IF (AVS + 0.10001E+01) 20140, 10140, 40140 02770372 ! 283: 40140 IF (AVS + 0.99995E+00) 10140, 10140, 20140 02780372 ! 284: 10140 IVPASS = IVPASS + 1 02790372 ! 285: WRITE (NUVI, 80002) IVTNUM 02800372 ! 286: GO TO 0141 02810372 ! 287: 20140 IVFAIL = IVFAIL + 1 02820372 ! 288: RVCORR = -1.00000000000000 02830372 ! 289: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02840372 ! 290: 0141 CONTINUE 02850372 ! 291: CT015* TEST 15 3*PI/2 - 1/16 02860372 ! 292: IVTNUM = 15 02870372 ! 293: BVS = (3.0 * PIVS / 2.0) - 1.0 / 16.0 02880372 ! 294: AVS = SIN(BVS) 02890372 ! 295: IF (AVS + 0.99810E+00) 20150, 10150, 40150 02900372 ! 296: 40150 IF (AVS + 0.99799E+00) 10150, 10150, 20150 02910372 ! 297: 10150 IVPASS = IVPASS + 1 02920372 ! 298: WRITE (NUVI, 80002) IVTNUM 02930372 ! 299: GO TO 0151 02940372 ! 300: 20150 IVFAIL = IVFAIL + 1 02950372 ! 301: RVCORR = -0.99804751070010 02960372 ! 302: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02970372 ! 303: 0151 CONTINUE 02980372 ! 304: CT016* TEST 16 3*PI/2 - 1/512 02990372 ! 305: IVTNUM = 16 03000372 ! 306: BVS = (3.0 * PIVS / 2.0) + 1.0 / 512.0 03010372 ! 307: AVS = SIN(BVS) 03020372 ! 308: IF (AVS + 0.10001E+01) 20160, 10160, 40160 03030372 ! 309: 40160 IF (AVS + 0.99994E+00) 10160, 10160, 20160 03040372 ! 310: 10160 IVPASS = IVPASS + 1 03050372 ! 311: WRITE (NUVI, 80002) IVTNUM 03060372 ! 312: GO TO 0161 03070372 ! 313: 20160 IVFAIL = IVFAIL + 1 03080372 ! 314: RVCORR = -0.99999809265197 03090372 ! 315: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 03100372 ! 316: 0161 CONTINUE 03110372 ! 317: CT017* TEST 17 ARGUMENT OF LOW MAGNITUDE 03120372 ! 318: IVTNUM = 17 03130372 ! 319: BVS = PIVS * 1.0E-37 03140372 ! 320: AVS = SIN(BVS) 03150372 ! 321: IF (AVS + 0.50000E-04) 20170, 10170, 40170 03160372 ! 322: 40170 IF (AVS - 0.50000E-04) 10170, 10170, 20170 03170372 ! 323: 10170 IVPASS = IVPASS + 1 03180372 ! 324: WRITE (NUVI, 80002) IVTNUM 03190372 ! 325: GO TO 0171 03200372 ! 326: 20170 IVFAIL = IVFAIL + 1 03210372 ! 327: RVCORR = 3.14159265358979E-37 03220372 ! 328: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 03230372 ! 329: 0171 CONTINUE 03240372 ! 330: CT018* TEST 18 THE FUNCTION APPLIED TWICE 03250372 ! 331: IVTNUM = 18 03260372 ! 332: AVS = SIN(PIVS / 4.0) * SIN(3.0 * PIVS / 4.0) 03270372 ! 333: IF (AVS - 0.49997E+00) 20180, 10180, 40180 03280372 ! 334: 40180 IF (AVS - 0.50003E+00) 10180, 10180, 20180 03290372 ! 335: 10180 IVPASS = IVPASS + 1 03300372 ! 336: WRITE (NUVI, 80002) IVTNUM 03310372 ! 337: GO TO 0181 03320372 ! 338: 20180 IVFAIL = IVFAIL + 1 03330372 ! 339: RVCORR = 0.50000000000000 03340372 ! 340: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 03350372 ! 341: 0181 CONTINUE 03360372 ! 342: C***** 03370372 ! 343: CBB** ********************** BBCSUM0 **********************************03380372 ! 344: C**** WRITE OUT TEST SUMMARY 03390372 ! 345: C**** 03400372 ! 346: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 03410372 ! 347: WRITE (I02, 90004) 03420372 ! 348: WRITE (I02, 90014) 03430372 ! 349: WRITE (I02, 90004) 03440372 ! 350: WRITE (I02, 90020) IVPASS 03450372 ! 351: WRITE (I02, 90022) IVFAIL 03460372 ! 352: WRITE (I02, 90024) IVDELE 03470372 ! 353: WRITE (I02, 90026) IVINSP 03480372 ! 354: WRITE (I02, 90028) IVTOTN, IVTOTL 03490372 ! 355: CBE** ********************** BBCSUM0 **********************************03500372 ! 356: CBB** ********************** BBCFOOT0 **********************************03510372 ! 357: C**** WRITE OUT REPORT FOOTINGS 03520372 ! 358: C**** 03530372 ! 359: WRITE (I02,90016) ZPROG, ZPROG 03540372 ! 360: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 03550372 ! 361: WRITE (I02,90019) 03560372 ! 362: CBE** ********************** BBCFOOT0 **********************************03570372 ! 363: CBB** ********************** BBCFMT0A **********************************03580372 ! 364: C**** FORMATS FOR TEST DETAIL LINES 03590372 ! 365: C**** 03600372 ! 366: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 03610372 ! 367: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 03620372 ! 368: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 03630372 ! 369: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 03640372 ! 370: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 03650372 ! 371: 1I6,/,1H ,15X,10HCORRECT= ,I6) 03660372 ! 372: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03670372 ! 373: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 03680372 ! 374: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03690372 ! 375: 1A21,/,1H ,16X,10HCORRECT= ,A21) 03700372 ! 376: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 03710372 ! 377: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 03720372 ! 378: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 03730372 ! 379: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 03740372 ! 380: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 03750372 ! 381: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 03760372 ! 382: 80050 FORMAT (1H ,48X,A31) 03770372 ! 383: CBE** ********************** BBCFMT0A **********************************03780372 ! 384: CBB** ********************** BBCFMT0B **********************************03790372 ! 385: C**** FORMAT STATEMENTS FOR PAGE HEADERS 03800372 ! 386: C**** 03810372 ! 387: 90002 FORMAT (1H1) 03820372 ! 388: 90004 FORMAT (1H ) 03830372 ! 389: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 03840372 ! 390: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03850372 ! 391: 90008 FORMAT (1H ,21X,A13,A17) 03860372 ! 392: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 03870372 ! 393: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 03880372 ! 394: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 03890372 ! 395: 1 7X,7HREMARKS,24X) 03900372 ! 396: 90014 FORMAT (1H ,46H----------------------------------------------, 03910372 ! 397: 1 33H---------------------------------) 03920372 ! 398: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 03930372 ! 399: C**** 03940372 ! 400: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03950372 ! 401: C**** 03960372 ! 402: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 03970372 ! 403: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 03980372 ! 404: 1 A13) 03990372 ! 405: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 04000372 ! 406: C**** 04010372 ! 407: C**** FORMAT STATEMENTS FOR RUN SUMMARY 04020372 ! 408: C**** 04030372 ! 409: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 04040372 ! 410: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 04050372 ! 411: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 04060372 ! 412: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 04070372 ! 413: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 04080372 ! 414: CBE** ********************** BBCFMT0B **********************************04090372 ! 415: C***** 04100372 ! 416: C***** END OF TEST SEGMENT 186 04110372 ! 417: STOP 04120372 ! 418: END 04130372 ! 419: 04140372
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.