![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM377.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 FM377.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***********************************************************************00010377 ! 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 00020377 ! 6: C***** FM377 00030377 ! 7: C***** XSINH - (197) 00040377 ! 8: C***** 00050377 ! 9: C***********************************************************************00060377 ! 10: C***** GENERAL PURPOSE SUBSET REF 00070377 ! 11: C***** TEST INTRINSIC FUNCTION SINH, COSH 15.3 00080377 ! 12: C***** TABLE 5 00090377 ! 13: C***** 00100377 ! 14: CBB** ********************** BBCCOMNT **********************************00110377 ! 15: C**** 00120377 ! 16: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130377 ! 17: C**** VERSION 2.0 00140377 ! 18: C**** 00150377 ! 19: C**** 00160377 ! 20: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170377 ! 21: C**** GENERAL SERVICES ADMINISTRATION 00180377 ! 22: C**** FEDERAL SOFTWARE TESTING CENTER 00190377 ! 23: C**** 5203 LEESBURG PIKE, SUITE 1100 00200377 ! 24: C**** FALLS CHURCH, VA. 22041 00210377 ! 25: C**** 00220377 ! 26: C**** (703) 756-6153 00230377 ! 27: C**** 00240377 ! 28: CBE** ********************** BBCCOMNT **********************************00250377 ! 29: CBB** ********************** BBCINITA **********************************00260377 ! 30: C**** SPECIFICATION STATEMENTS 00270377 ! 31: C**** 00280377 ! 32: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00290377 ! 33: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00300377 ! 34: CBE** ********************** BBCINITA **********************************00310377 ! 35: CBB** ********************** BBCINITB **********************************00320377 ! 36: C**** INITIALIZE SECTION 00330377 ! 37: DATA ZVERS, ZVERSD, ZDATE 00340377 ! 38: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00350377 ! 39: DATA ZCOMPL, ZNAME, ZTAPE 00360377 ! 40: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00370377 ! 41: DATA ZPROJ, ZTAPED, ZPROG 00380377 ! 42: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00390377 ! 43: DATA REMRKS /' '/ 00400377 ! 44: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00410377 ! 45: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00420377 ! 46: C**** 00430377 ! 47: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00440377 ! 48: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00450377 ! 49: CZ03 ZPROG = 'PROGRAM NAME' 00460377 ! 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 00530377 ! 57: IVPASS = 0 00540377 ! 58: IVFAIL = 0 00550377 ! 59: IVDELE = 0 00560377 ! 60: IVINSP = 0 00570377 ! 61: IVTOTL = 0 00580377 ! 62: IVTOTN = 0 00590377 ! 63: ICZERO = 0 00600377 ! 64: C 00610377 ! 65: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00620377 ! 66: I01 = 05 00630377 ! 67: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00640377 ! 68: I02 = 06 00650377 ! 69: C 00660377 ! 70: I01 = 5 00670377 ! 71: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00680377 ! 72: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00690377 ! 73: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00700377 ! 74: C 00710377 ! 75: I02 = 6 00720377 ! 76: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00730377 ! 77: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00740377 ! 78: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00750377 ! 79: C 00760377 ! 80: CBE** ********************** BBCINITB **********************************00770377 ! 81: NUVI = I02 00780377 ! 82: IVTOTL = 15 00790377 ! 83: ZPROG = 'FM377' 00800377 ! 84: CBB** ********************** BBCHED0A **********************************00810377 ! 85: C**** 00820377 ! 86: C**** WRITE REPORT TITLE 00830377 ! 87: C**** 00840377 ! 88: WRITE (I02, 90002) 00850377 ! 89: WRITE (I02, 90006) 00860377 ! 90: WRITE (I02, 90007) 00870377 ! 91: WRITE (I02, 90008) ZVERS, ZVERSD 00880377 ! 92: WRITE (I02, 90009) ZPROG, ZPROG 00890377 ! 93: WRITE (I02, 90010) ZDATE, ZCOMPL 00900377 ! 94: CBE** ********************** BBCHED0A **********************************00910377 ! 95: C***** 00920377 ! 96: C***** HEADER FOR SEGMENT 197 00930377 ! 97: WRITE(NUVI,19700) 00940377 ! 98: 19700 FORMAT(1H , / 35H XSINH - (197) INTRINSIC FUNCTIONS// 00950377 ! 99: 1 41H SINH, COSH (HYPERBOLIC SINE, COSINE)// 00960377 ! 100: 2 20H SUBSET REF. - 15.3) 00970377 ! 101: CBB** ********************** BBCHED0B **********************************00980377 ! 102: C**** WRITE DETAIL REPORT HEADERS 00990377 ! 103: C**** 01000377 ! 104: WRITE (I02,90004) 01010377 ! 105: WRITE (I02,90004) 01020377 ! 106: WRITE (I02,90013) 01030377 ! 107: WRITE (I02,90014) 01040377 ! 108: WRITE (I02,90015) IVTOTL 01050377 ! 109: CBE** ********************** BBCHED0B **********************************01060377 ! 110: C***** 01070377 ! 111: WRITE(NUVI,19701) 01080377 ! 112: 19701 FORMAT(/ 8X, 12HTEST OF SINH) 01090377 ! 113: C***** 01100377 ! 114: CT001* TEST 1 TEST AT ZERO (0.0) 01110377 ! 115: IVTNUM = 1 01120377 ! 116: BVS = 0.0 01130377 ! 117: AVS = SINH(BVS) 01140377 ! 118: IF (AVS + 0.50000E-04) 20010, 10010, 40010 01150377 ! 119: 40010 IF (AVS - 0.50000E-04) 10010, 10010, 20010 01160377 ! 120: 10010 IVPASS = IVPASS + 1 01170377 ! 121: WRITE (NUVI, 80002) IVTNUM 01180377 ! 122: GO TO 0011 01190377 ! 123: 20010 IVFAIL = IVFAIL + 1 01200377 ! 124: RVCORR = 0.00000000000000 01210377 ! 125: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01220377 ! 126: 0011 CONTINUE 01230377 ! 127: CT002* TEST 2 TEST ARGUMENTS CLOSE TO 1.0 01240377 ! 128: IVTNUM = 2 01250377 ! 129: AVS = SINH(15.0 / 16.0) 01260377 ! 130: IF (AVS - 0.10809E+01) 20020, 10020, 40020 01270377 ! 131: 40020 IF (AVS - 0.10811E+01) 10020, 10020, 20020 01280377 ! 132: 10020 IVPASS = IVPASS + 1 01290377 ! 133: WRITE (NUVI, 80002) IVTNUM 01300377 ! 134: GO TO 0021 01310377 ! 135: 20020 IVFAIL = IVFAIL + 1 01320377 ! 136: RVCORR = 1.08099191569306 01330377 ! 137: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01340377 ! 138: 0021 CONTINUE 01350377 ! 139: CT003* TEST 3 TEST AT 1.0 01360377 ! 140: IVTNUM = 3 01370377 ! 141: BVS = 1.0 01380377 ! 142: AVS = SINH(BVS) 01390377 ! 143: IF (AVS - 0.11751E+01) 20030, 10030, 40030 01400377 ! 144: 40030 IF (AVS - 0.11753E+01) 10030, 10030, 20030 01410377 ! 145: 10030 IVPASS = IVPASS + 1 01420377 ! 146: WRITE (NUVI, 80002) IVTNUM 01430377 ! 147: GO TO 0031 01440377 ! 148: 20030 IVFAIL = IVFAIL + 1 01450377 ! 149: RVCORR = 1.17520119364380 01460377 ! 150: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01470377 ! 151: 0031 CONTINUE 01480377 ! 152: CT004* TEST 4 TEST ARGUMENTS CLOSE TO 1.0 01490377 ! 153: IVTNUM = 4 01500377 ! 154: AVS = SINH(33.0 / 32.0) 01510377 ! 155: IF (AVS - 0.12239E+01) 20040, 10040, 40040 01520377 ! 156: 40040 IF (AVS - 0.12241E+01) 10040, 10040, 20040 01530377 ! 157: 10040 IVPASS = IVPASS + 1 01540377 ! 158: WRITE (NUVI, 80002) IVTNUM 01550377 ! 159: GO TO 0041 01560377 ! 160: 20040 IVFAIL = IVFAIL + 1 01570377 ! 161: RVCORR = 1.22400418778664 01580377 ! 162: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01590377 ! 163: 0041 CONTINUE 01600377 ! 164: CT005* TEST 5 TEST AT 2.0 01610377 ! 165: IVTNUM = 5 01620377 ! 166: BVS = 2.0 01630377 ! 167: AVS = SINH(BVS) 01640377 ! 168: IF (AVS - 0.36266E+01) 20050, 10050, 40050 01650377 ! 169: 40050 IF (AVS - 0.36271E+01) 10050, 10050, 20050 01660377 ! 170: 10050 IVPASS = IVPASS + 1 01670377 ! 171: WRITE (NUVI, 80002) IVTNUM 01680377 ! 172: GO TO 0051 01690377 ! 173: 20050 IVFAIL = IVFAIL + 1 01700377 ! 174: RVCORR = 3.62686040784702 01710377 ! 175: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01720377 ! 176: 0051 CONTINUE 01730377 ! 177: CT006* TEST 6 A NEGATIVE ARGUMENT 01740377 ! 178: IVTNUM = 6 01750377 ! 179: AVS = SINH(-2.0) 01760377 ! 180: IF (AVS + 0.36271E+01) 20060, 10060, 40060 01770377 ! 181: 40060 IF (AVS + 0.36266E+01) 10060, 10060, 20060 01780377 ! 182: 10060 IVPASS = IVPASS + 1 01790377 ! 183: WRITE (NUVI, 80002) IVTNUM 01800377 ! 184: GO TO 0061 01810377 ! 185: 20060 IVFAIL = IVFAIL + 1 01820377 ! 186: RVCORR = -3.62686040784702 01830377 ! 187: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01840377 ! 188: 0061 CONTINUE 01850377 ! 189: CT007* TEST 7 AN ARGUMENT OF LOW MAGNITUDE 01860377 ! 190: IVTNUM = 7 01870377 ! 191: AVS = SINH(1.0E-34) 01880377 ! 192: IF (AVS - 0.99995E-34) 20070, 10070, 40070 01890377 ! 193: 40070 IF (AVS - 0.10001E-33) 10070, 10070, 20070 01900377 ! 194: 10070 IVPASS = IVPASS + 1 01910377 ! 195: WRITE (NUVI, 80002) IVTNUM 01920377 ! 196: GO TO 0071 01930377 ! 197: 20070 IVFAIL = IVFAIL + 1 01940377 ! 198: RVCORR = 1.00000000000000E-34 01950377 ! 199: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01960377 ! 200: 0071 CONTINUE 01970377 ! 201: C***** 01980377 ! 202: WRITE (NUVI, 90002) 01990377 ! 203: WRITE (NUVI, 90013) 02000377 ! 204: WRITE (NUVI, 90014) 02010377 ! 205: C***** 02020377 ! 206: WRITE(NUVI,19709) 02030377 ! 207: 19709 FORMAT(/ 8X, 12HTEST OF COSH) 02040377 ! 208: C***** 02050377 ! 209: CT008* TEST 8 ZERO (0.0) 02060377 ! 210: IVTNUM = 8 02070377 ! 211: BVS = 0.0 02080377 ! 212: AVS = COSH(BVS) 02090377 ! 213: IF (AVS - 0.99995E+00) 20080, 10080, 40080 02100377 ! 214: 40080 IF (AVS - 0.10001E+01) 10080, 10080, 20080 02110377 ! 215: 10080 IVPASS = IVPASS + 1 02120377 ! 216: WRITE (NUVI, 80002) IVTNUM 02130377 ! 217: GO TO 0081 02140377 ! 218: 20080 IVFAIL = IVFAIL + 1 02150377 ! 219: RVCORR = 1.00000000000000 02160377 ! 220: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02170377 ! 221: 0081 CONTINUE 02180377 ! 222: CT009* TEST 9 VALUES CLOSE TO 1.0 02190377 ! 223: IVTNUM = 9 02200377 ! 224: AVS = COSH(15.0 / 16.0) 02210377 ! 225: IF (AVS - 0.14725E+01) 20090, 10090, 40090 02220377 ! 226: 40090 IF (AVS - 0.14727E+01) 10090, 10090, 20090 02230377 ! 227: 10090 IVPASS = IVPASS + 1 02240377 ! 228: WRITE (NUVI, 80002) IVTNUM 02250377 ! 229: GO TO 0091 02260377 ! 230: 20090 IVFAIL = IVFAIL + 1 02270377 ! 231: RVCORR = 1.47259754236986 02280377 ! 232: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02290377 ! 233: 0091 CONTINUE 02300377 ! 234: CT010* TEST 10 TEST AT 1.0 02310377 ! 235: IVTNUM = 10 02320377 ! 236: BVS = 1.0 02330377 ! 237: AVS = COSH(BVS) 02340377 ! 238: IF (AVS - 0.15430E+01) 20100, 10100, 40100 02350377 ! 239: 40100 IF (AVS - 0.15432E+01) 10100, 10100, 20100 02360377 ! 240: 10100 IVPASS = IVPASS + 1 02370377 ! 241: WRITE (NUVI, 80002) IVTNUM 02380377 ! 242: GO TO 0101 02390377 ! 243: 20100 IVFAIL = IVFAIL + 1 02400377 ! 244: RVCORR = 1.54308063481524 02410377 ! 245: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02420377 ! 246: 0101 CONTINUE 02430377 ! 247: CT011* TEST 11 TEST ARGUMENTS CLOSE TO 1.0 02440377 ! 248: IVTNUM = 11 02450377 ! 249: AVS = COSH(33.0 / 32.0) 02460377 ! 250: IF (AVS - 0.15804E+01) 20110, 10110, 40110 02470377 ! 251: 40110 IF (AVS - 0.15807E+01) 10110, 10110, 20110 02480377 ! 252: 10110 IVPASS = IVPASS + 1 02490377 ! 253: WRITE (NUVI, 80002) IVTNUM 02500377 ! 254: GO TO 0111 02510377 ! 255: 20110 IVFAIL = IVFAIL + 1 02520377 ! 256: RVCORR = 1.58056516845059 02530377 ! 257: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02540377 ! 258: 0111 CONTINUE 02550377 ! 259: CT012* TEST 12 TEST AT 2.0 02560377 ! 260: IVTNUM = 12 02570377 ! 261: BVS = 2.0 02580377 ! 262: AVS = COSH(BVS) 02590377 ! 263: IF (AVS - 0.37620E+01) 20120, 10120, 40120 02600377 ! 264: 40120 IF (AVS - 0.37624E+01) 10120, 10120, 20120 02610377 ! 265: 10120 IVPASS = IVPASS + 1 02620377 ! 266: WRITE (NUVI, 80002) IVTNUM 02630377 ! 267: GO TO 0121 02640377 ! 268: 20120 IVFAIL = IVFAIL + 1 02650377 ! 269: RVCORR = 3.76219569108363 02660377 ! 270: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02670377 ! 271: 0121 CONTINUE 02680377 ! 272: CT013* TEST 13 A NEGATIVE ARGUMENT 02690377 ! 273: IVTNUM = 13 02700377 ! 274: AVS = COSH(-2.0) 02710377 ! 275: IF (AVS - 0.37620E+01) 20130, 10130, 40130 02720377 ! 276: 40130 IF (AVS - 0.37624E+01) 10130, 10130, 20130 02730377 ! 277: 10130 IVPASS = IVPASS + 1 02740377 ! 278: WRITE (NUVI, 80002) IVTNUM 02750377 ! 279: GO TO 0131 02760377 ! 280: 20130 IVFAIL = IVFAIL + 1 02770377 ! 281: RVCORR = 3.76219569108363 02780377 ! 282: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02790377 ! 283: 0131 CONTINUE 02800377 ! 284: CT014* TEST 14 AN ARGUMENT OF LOW MAGNITUDE 02810377 ! 285: IVTNUM = 14 02820377 ! 286: AVS = COSH(-1.0E-34) 02830377 ! 287: IF (AVS - 0.99995E+00) 20140, 10140, 40140 02840377 ! 288: 40140 IF (AVS - 0.10001E+01) 10140, 10140, 20140 02850377 ! 289: 10140 IVPASS = IVPASS + 1 02860377 ! 290: WRITE (NUVI, 80002) IVTNUM 02870377 ! 291: GO TO 0141 02880377 ! 292: 20140 IVFAIL = IVFAIL + 1 02890377 ! 293: RVCORR = 1.00000000000000E+00 02900377 ! 294: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02910377 ! 295: 0141 CONTINUE 02920377 ! 296: CT015* TEST 15 POSITIVE VALUES SUPPLIED AS ARGUMENTS 02930377 ! 297: C***** TO BOTH FUNCTIONS IN AN EXPRESSION 02940377 ! 298: IVTNUM = 15 02950377 ! 299: AVS = SINH(3.25) + COSH(3.25) 02960377 ! 300: IF (AVS - 0.25789E+02) 20150, 10150, 40150 02970377 ! 301: 40150 IF (AVS - 0.25792E+02) 10150, 10150, 20150 02980377 ! 302: 10150 IVPASS = IVPASS + 1 02990377 ! 303: WRITE (NUVI, 80002) IVTNUM 03000377 ! 304: GO TO 0151 03010377 ! 305: 20150 IVFAIL = IVFAIL + 1 03020377 ! 306: RVCORR = 25.79033991719306 03030377 ! 307: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 03040377 ! 308: 0151 CONTINUE 03050377 ! 309: C***** 03060377 ! 310: CBB** ********************** BBCSUM0 **********************************03070377 ! 311: C**** WRITE OUT TEST SUMMARY 03080377 ! 312: C**** 03090377 ! 313: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 03100377 ! 314: WRITE (I02, 90004) 03110377 ! 315: WRITE (I02, 90014) 03120377 ! 316: WRITE (I02, 90004) 03130377 ! 317: WRITE (I02, 90020) IVPASS 03140377 ! 318: WRITE (I02, 90022) IVFAIL 03150377 ! 319: WRITE (I02, 90024) IVDELE 03160377 ! 320: WRITE (I02, 90026) IVINSP 03170377 ! 321: WRITE (I02, 90028) IVTOTN, IVTOTL 03180377 ! 322: CBE** ********************** BBCSUM0 **********************************03190377 ! 323: CBB** ********************** BBCFOOT0 **********************************03200377 ! 324: C**** WRITE OUT REPORT FOOTINGS 03210377 ! 325: C**** 03220377 ! 326: WRITE (I02,90016) ZPROG, ZPROG 03230377 ! 327: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 03240377 ! 328: WRITE (I02,90019) 03250377 ! 329: CBE** ********************** BBCFOOT0 **********************************03260377 ! 330: CBB** ********************** BBCFMT0A **********************************03270377 ! 331: C**** FORMATS FOR TEST DETAIL LINES 03280377 ! 332: C**** 03290377 ! 333: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 03300377 ! 334: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 03310377 ! 335: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 03320377 ! 336: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 03330377 ! 337: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 03340377 ! 338: 1I6,/,1H ,15X,10HCORRECT= ,I6) 03350377 ! 339: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03360377 ! 340: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 03370377 ! 341: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03380377 ! 342: 1A21,/,1H ,16X,10HCORRECT= ,A21) 03390377 ! 343: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 03400377 ! 344: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 03410377 ! 345: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 03420377 ! 346: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 03430377 ! 347: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 03440377 ! 348: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 03450377 ! 349: 80050 FORMAT (1H ,48X,A31) 03460377 ! 350: CBE** ********************** BBCFMT0A **********************************03470377 ! 351: CBB** ********************** BBCFMT0B **********************************03480377 ! 352: C**** FORMAT STATEMENTS FOR PAGE HEADERS 03490377 ! 353: C**** 03500377 ! 354: 90002 FORMAT (1H1) 03510377 ! 355: 90004 FORMAT (1H ) 03520377 ! 356: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 03530377 ! 357: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03540377 ! 358: 90008 FORMAT (1H ,21X,A13,A17) 03550377 ! 359: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 03560377 ! 360: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 03570377 ! 361: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 03580377 ! 362: 1 7X,7HREMARKS,24X) 03590377 ! 363: 90014 FORMAT (1H ,46H----------------------------------------------, 03600377 ! 364: 1 33H---------------------------------) 03610377 ! 365: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 03620377 ! 366: C**** 03630377 ! 367: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03640377 ! 368: C**** 03650377 ! 369: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 03660377 ! 370: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 03670377 ! 371: 1 A13) 03680377 ! 372: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 03690377 ! 373: C**** 03700377 ! 374: C**** FORMAT STATEMENTS FOR RUN SUMMARY 03710377 ! 375: C**** 03720377 ! 376: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03730377 ! 377: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03740377 ! 378: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03750377 ! 379: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 03760377 ! 380: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 03770377 ! 381: CBE** ********************** BBCFMT0B **********************************03780377 ! 382: C***** 03790377 ! 383: C***** END OF TEST SEGMENT 197 03800377 ! 384: STOP 03810377 ! 385: END 03820377
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.