![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM833.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 FM833.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***********************************************************************00010833 ! 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 00020833 ! 6: C***** FM833 00030833 ! 7: C***** YGEN6 - (211) 00040833 ! 8: C***** 00050833 ! 9: C***********************************************************************00060833 ! 10: C***** GENERAL PURPOSE ANS REF 00070833 ! 11: C***** TEST GENERIC FUNCTIONS 15.3 00080833 ! 12: C***** SPECIFIC AND GENERIC NAME OF SAME FUNCTION WITH TABLE 5 00090833 ! 13: C***** SAME TYPE OF ARGUMENT IN A STATEMENT 00100833 ! 14: C***** 00110833 ! 15: CBB** ********************** BBCCOMNT **********************************00120833 ! 16: C**** 00130833 ! 17: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00140833 ! 18: C**** VERSION 2.0 00150833 ! 19: C**** 00160833 ! 20: C**** 00170833 ! 21: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00180833 ! 22: C**** GENERAL SERVICES ADMINISTRATION 00190833 ! 23: C**** FEDERAL SOFTWARE TESTING CENTER 00200833 ! 24: C**** 5203 LEESBURG PIKE, SUITE 1100 00210833 ! 25: C**** FALLS CHURCH, VA. 22041 00220833 ! 26: C**** 00230833 ! 27: C**** (703) 756-6153 00240833 ! 28: C**** 00250833 ! 29: CBE** ********************** BBCCOMNT **********************************00260833 ! 30: C***** 00270833 ! 31: C***** S P E C I F I C A T I O N S SEGMENT 211 00280833 ! 32: DOUBLE PRECISION AVD, BVD, CVD, DVCORR 00290833 ! 33: COMPLEX AVC, BVC, ZVCORR 00300833 ! 34: REAL R2E(2) 00310833 ! 35: EQUIVALENCE (AVC, R2E) 00320833 ! 36: C***** 00330833 ! 37: CBB** ********************** BBCINITA **********************************00340833 ! 38: C**** SPECIFICATION STATEMENTS 00350833 ! 39: C**** 00360833 ! 40: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00370833 ! 41: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00380833 ! 42: CBE** ********************** BBCINITA **********************************00390833 ! 43: CBB** ********************** BBCINITB **********************************00400833 ! 44: C**** INITIALIZE SECTION 00410833 ! 45: DATA ZVERS, ZVERSD, ZDATE 00420833 ! 46: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00430833 ! 47: DATA ZCOMPL, ZNAME, ZTAPE 00440833 ! 48: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00450833 ! 49: DATA ZPROJ, ZTAPED, ZPROG 00460833 ! 50: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00470833 ! 51: DATA REMRKS /' '/ 00480833 ! 52: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00490833 ! 53: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00500833 ! 54: C**** 00510833 ! 55: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00520833 ! 56: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00530833 ! 57: CZ03 ZPROG = 'PROGRAM NAME' 00540833 ! 58: ZDATE = '07-Nov-85 ' *RP ! 59: ZCOMPL = 'CCI 5.2 ' *RP ! 60: ZPROJ = 'TC-85- -410' *RP ! 61: ZNAME = ' ' *RP ! 62: ZTAPE = ' ' *RP ! 63: ZTAPED = '850703 ' *RP ! 64: C 00610833 ! 65: IVPASS = 0 00620833 ! 66: IVFAIL = 0 00630833 ! 67: IVDELE = 0 00640833 ! 68: IVINSP = 0 00650833 ! 69: IVTOTL = 0 00660833 ! 70: IVTOTN = 0 00670833 ! 71: ICZERO = 0 00680833 ! 72: C 00690833 ! 73: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00700833 ! 74: I01 = 05 00710833 ! 75: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00720833 ! 76: I02 = 06 00730833 ! 77: C 00740833 ! 78: I01 = 5 00750833 ! 79: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00760833 ! 80: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00770833 ! 81: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00780833 ! 82: C 00790833 ! 83: I02 = 6 00800833 ! 84: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00810833 ! 85: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00820833 ! 86: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00830833 ! 87: C 00840833 ! 88: CBE** ********************** BBCINITB **********************************00850833 ! 89: NUVI = I02 00860833 ! 90: IVTOTL = 11 00870833 ! 91: ZPROG = 'FM833' 00880833 ! 92: CBB** ********************** BBCHED0A **********************************00890833 ! 93: C**** 00900833 ! 94: C**** WRITE REPORT TITLE 00910833 ! 95: C**** 00920833 ! 96: WRITE (I02, 90002) 00930833 ! 97: WRITE (I02, 90006) 00940833 ! 98: WRITE (I02, 90007) 00950833 ! 99: WRITE (I02, 90008) ZVERS, ZVERSD 00960833 ! 100: WRITE (I02, 90009) ZPROG, ZPROG 00970833 ! 101: WRITE (I02, 90010) ZDATE, ZCOMPL 00980833 ! 102: CBE** ********************** BBCHED0A **********************************00990833 ! 103: C***** 01000833 ! 104: C***** HEADER FOR SEGMENT 211 01010833 ! 105: WRITE(NUVI,21100) 01020833 ! 106: 21100 FORMAT( 1H , / 35H YGEN6 - (211) GENERIC FUNCTIONS --// 01030833 ! 107: 1 59H SPECIFIC AND GENERIC NAME OF SAME FUNCTION IN A STATEMENT//01040833 ! 108: 2 17H ANS REF. - 15.3) 01050833 ! 109: CBB** ********************** BBCHED0B **********************************01060833 ! 110: C**** WRITE DETAIL REPORT HEADERS 01070833 ! 111: C**** 01080833 ! 112: WRITE (I02,90004) 01090833 ! 113: WRITE (I02,90004) 01100833 ! 114: WRITE (I02,90013) 01110833 ! 115: WRITE (I02,90014) 01120833 ! 116: WRITE (I02,90015) IVTOTL 01130833 ! 117: CBE** ********************** BBCHED0B **********************************01140833 ! 118: C***** 01150833 ! 119: CT001* TEST 1 TEST OF ISIGN AND SIGN WITH INTEGER 01160833 ! 120: IVTNUM = 1 01170833 ! 121: KVI = 5 01180833 ! 122: JVI = -3 01190833 ! 123: LVI = ISIGN(KVI, JVI) - SIGN(KVI, JVI) 01200833 ! 124: IF (LVI - 0) 20010, 10010, 20010 01210833 ! 125: 10010 IVPASS = IVPASS + 1 01220833 ! 126: WRITE (NUVI, 80002) IVTNUM 01230833 ! 127: GO TO 0011 01240833 ! 128: 20010 IVFAIL = IVFAIL + 1 01250833 ! 129: IVCORR = 0 01260833 ! 130: WRITE (NUVI, 80010) IVTNUM, LVI, IVCORR 01270833 ! 131: 0011 CONTINUE 01280833 ! 132: CT002* TEST 2 TEST OF AMAX1 AND MAX WITH REALS 01290833 ! 133: IVTNUM = 2 01300833 ! 134: BVS = 2.5 01310833 ! 135: CVS = 3.5 01320833 ! 136: AVS = AMAX1(BVS, CVS) - MAX(BVS, CVS) 01330833 ! 137: IF (AVS + 0.50000E-04) 20020, 10020, 40020 01340833 ! 138: 40020 IF (AVS - 0.50000E-04) 10020, 10020, 20020 01350833 ! 139: 10020 IVPASS = IVPASS + 1 01360833 ! 140: WRITE (NUVI, 80002) IVTNUM 01370833 ! 141: GO TO 0021 01380833 ! 142: 20020 IVFAIL = IVFAIL + 1 01390833 ! 143: RVCORR = 0.0000 01400833 ! 144: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01410833 ! 145: 0021 CONTINUE 01420833 ! 146: CT003* TEST 3 TEST OF DEXP AND EXP WITH DOUBLE PREC 01430833 ! 147: IVTNUM = 3 01440833 ! 148: BVD = 1.0D0 01450833 ! 149: AVD = DEXP(BVD) - EXP(BVD) 01460833 ! 150: IF (AVD + 0.5000000000D-09) 20030, 10030, 40030 01470833 ! 151: 40030 IF (AVD - 0.5000000000D-09) 10030, 10030, 20030 01480833 ! 152: 10030 IVPASS = IVPASS + 1 01490833 ! 153: WRITE (NUVI, 80002) IVTNUM 01500833 ! 154: GO TO 0031 01510833 ! 155: 20030 IVFAIL = IVFAIL + 1 01520833 ! 156: DVCORR = 0.00000000D+00 01530833 ! 157: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01540833 ! 158: 0031 CONTINUE 01550833 ! 159: CT004* TEST 4 TEST OF DTANH AND TANH WITH DOUBLE PREC 01560833 ! 160: IVTNUM = 4 01570833 ! 161: BVD = 0.5D0 01580833 ! 162: AVD = DTANH(BVD) - TANH(BVD) 01590833 ! 163: IF (AVD + 0.5000000000D-09) 20040, 10040, 40040 01600833 ! 164: 40040 IF (AVD - 0.5000000000D-09) 10040, 10040, 20040 01610833 ! 165: 10040 IVPASS = IVPASS + 1 01620833 ! 166: WRITE (NUVI, 80002) IVTNUM 01630833 ! 167: GO TO 0041 01640833 ! 168: 20040 IVFAIL = IVFAIL + 1 01650833 ! 169: DVCORR = 0.00000000D+00 01660833 ! 170: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01670833 ! 171: 0041 CONTINUE 01680833 ! 172: CT005* TEST 5 TEST OF DASIN AND ASIN WITH DOUBLE PREC 01690833 ! 173: IVTNUM = 5 01700833 ! 174: BVD = -1.0D0 01710833 ! 175: AVD = DASIN(BVD) - ASIN(BVD) 01720833 ! 176: IF (AVD + 0.5000000000D-09) 20050, 10050, 40050 01730833 ! 177: 40050 IF (AVD - 0.5000000000D-09) 10050, 10050, 20050 01740833 ! 178: 10050 IVPASS = IVPASS + 1 01750833 ! 179: WRITE (NUVI, 80002) IVTNUM 01760833 ! 180: GO TO 0051 01770833 ! 181: 20050 IVFAIL = IVFAIL + 1 01780833 ! 182: DVCORR = 0.00000000D+00 01790833 ! 183: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01800833 ! 184: 0051 CONTINUE 01810833 ! 185: CT006* TEST 6 TEST OF DNINT AND ANINT WITH DOUBLE PREC 01820833 ! 186: IVTNUM = 6 01830833 ! 187: BVD = 2.75D0 01840833 ! 188: AVD = DNINT(BVD) - ANINT(BVD) 01850833 ! 189: IF (AVD + 0.5000000000D-09) 20060, 10060, 40060 01860833 ! 190: 40060 IF (AVD - 0.5000000000D-09) 10060, 10060, 20060 01870833 ! 191: 10060 IVPASS = IVPASS + 1 01880833 ! 192: WRITE (NUVI, 80002) IVTNUM 01890833 ! 193: GO TO 0061 01900833 ! 194: 20060 IVFAIL = IVFAIL + 1 01910833 ! 195: DVCORR = 0.00000000D+00 01920833 ! 196: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01930833 ! 197: 0061 CONTINUE 01940833 ! 198: CT007* TEST 7 TEST OF DMOD AND MOD WITH DOUBLE PREC 01950833 ! 199: IVTNUM = 7 01960833 ! 200: BVD = 6.0D0 01970833 ! 201: CVD = 3.0D0 01980833 ! 202: AVD = DMOD(BVD, CVD) - MOD(BVD, CVD) 01990833 ! 203: IF (AVD + 0.5000000000D-09) 20070, 10070, 40070 02000833 ! 204: 40070 IF (AVD - 0.5000000000D-09) 10070, 10070, 20070 02010833 ! 205: 10070 IVPASS = IVPASS + 1 02020833 ! 206: WRITE (NUVI, 80002) IVTNUM 02030833 ! 207: GO TO 0071 02040833 ! 208: 20070 IVFAIL = IVFAIL + 1 02050833 ! 209: DVCORR = 0.00000000D+00 02060833 ! 210: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02070833 ! 211: 0071 CONTINUE 02080833 ! 212: CT008* TEST 8 TEST OF CABS AND ABS WITH COMPLEX 02090833 ! 213: IVTNUM = 8 02100833 ! 214: BVC = (4.0, 3.0) 02110833 ! 215: AVC = CABS(BVC) - ABS(BVC) 02120833 ! 216: IF (R2E(1) + 0.50000E-04) 20080, 40082, 40081 02130833 ! 217: 40081 IF (R2E(1) - 0.50000E-04) 40082, 40082, 20080 02140833 ! 218: 40082 IF (R2E(2) + 0.50000E-04) 20080, 10080, 40080 02150833 ! 219: 40080 IF (R2E(2) - 0.50000E-04) 10080, 10080, 20080 02160833 ! 220: 10080 IVPASS = IVPASS + 1 02170833 ! 221: WRITE (NUVI, 80002) IVTNUM 02180833 ! 222: GO TO 0081 02190833 ! 223: 20080 IVFAIL = IVFAIL + 1 02200833 ! 224: ZVCORR = ( 0.0000, 0.0000) 02210833 ! 225: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 02220833 ! 226: 0081 CONTINUE 02230833 ! 227: CT009* TEST 9 TEST OF CSQRT AND SQRT WITH COMPLEX 02240833 ! 228: IVTNUM = 9 02250833 ! 229: BVC = (3.0, 4.0) 02260833 ! 230: AVC = CSQRT(BVC) - SQRT(BVC) 02270833 ! 231: IF (R2E(1) + 0.50000E-04) 20090, 40092, 40091 02280833 ! 232: 40091 IF (R2E(1) - 0.50000E-04) 40092, 40092, 20090 02290833 ! 233: 40092 IF (R2E(2) + 0.50000E-04) 20090, 10090, 40090 02300833 ! 234: 40090 IF (R2E(2) - 0.50000E-04) 10090, 10090, 20090 02310833 ! 235: 10090 IVPASS = IVPASS + 1 02320833 ! 236: WRITE (NUVI, 80002) IVTNUM 02330833 ! 237: GO TO 0091 02340833 ! 238: 20090 IVFAIL = IVFAIL + 1 02350833 ! 239: ZVCORR = ( 0.0000, 0.0000) 02360833 ! 240: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 02370833 ! 241: 0091 CONTINUE 02380833 ! 242: CT010* TEST 10 TEST OF CLOG AND LOG WITH COMPLEX 02390833 ! 243: IVTNUM = 10 02400833 ! 244: BVC = (1.0, 0.0) 02410833 ! 245: AVC = CLOG(BVC) - LOG(BVC) 02420833 ! 246: IF (R2E(1) + 0.50000E-04) 20100, 40102, 40101 02430833 ! 247: 40101 IF (R2E(1) - 0.50000E-04) 40102, 40102, 20100 02440833 ! 248: 40102 IF (R2E(2) + 0.50000E-04) 20100, 10100, 40100 02450833 ! 249: 40100 IF (R2E(2) - 0.50000E-04) 10100, 10100, 20100 02460833 ! 250: 10100 IVPASS = IVPASS + 1 02470833 ! 251: WRITE (NUVI, 80002) IVTNUM 02480833 ! 252: GO TO 0101 02490833 ! 253: 20100 IVFAIL = IVFAIL + 1 02500833 ! 254: ZVCORR = ( 0.0000, 0.0000) 02510833 ! 255: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 02520833 ! 256: 0101 CONTINUE 02530833 ! 257: CT011* TEST 11 TEST OF CSIN AND SIN WITH COMPLEX 02540833 ! 258: IVTNUM = 11 02550833 ! 259: BVC = (1.5, 3.5) 02560833 ! 260: AVC = CSIN(BVC) - SIN(BVC) 02570833 ! 261: IF (R2E(1) + 0.50000E-04) 20110, 40112, 40111 02580833 ! 262: 40111 IF (R2E(1) - 0.50000E-04) 40112, 40112, 20110 02590833 ! 263: 40112 IF (R2E(2) + 0.50000E-04) 20110, 10110, 40110 02600833 ! 264: 40110 IF (R2E(2) - 0.50000E-04) 10110, 10110, 20110 02610833 ! 265: 10110 IVPASS = IVPASS + 1 02620833 ! 266: WRITE (NUVI, 80002) IVTNUM 02630833 ! 267: GO TO 0111 02640833 ! 268: 20110 IVFAIL = IVFAIL + 1 02650833 ! 269: ZVCORR = ( 0.0000, 0.0000) 02660833 ! 270: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 02670833 ! 271: 0111 CONTINUE 02680833 ! 272: C***** 02690833 ! 273: CBB** ********************** BBCSUM0 **********************************02700833 ! 274: C**** WRITE OUT TEST SUMMARY 02710833 ! 275: C**** 02720833 ! 276: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02730833 ! 277: WRITE (I02, 90004) 02740833 ! 278: WRITE (I02, 90014) 02750833 ! 279: WRITE (I02, 90004) 02760833 ! 280: WRITE (I02, 90020) IVPASS 02770833 ! 281: WRITE (I02, 90022) IVFAIL 02780833 ! 282: WRITE (I02, 90024) IVDELE 02790833 ! 283: WRITE (I02, 90026) IVINSP 02800833 ! 284: WRITE (I02, 90028) IVTOTN, IVTOTL 02810833 ! 285: CBE** ********************** BBCSUM0 **********************************02820833 ! 286: CBB** ********************** BBCFOOT0 **********************************02830833 ! 287: C**** WRITE OUT REPORT FOOTINGS 02840833 ! 288: C**** 02850833 ! 289: WRITE (I02,90016) ZPROG, ZPROG 02860833 ! 290: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02870833 ! 291: WRITE (I02,90019) 02880833 ! 292: CBE** ********************** BBCFOOT0 **********************************02890833 ! 293: CBB** ********************** BBCFMT0A **********************************02900833 ! 294: C**** FORMATS FOR TEST DETAIL LINES 02910833 ! 295: C**** 02920833 ! 296: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 02930833 ! 297: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 02940833 ! 298: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 02950833 ! 299: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 02960833 ! 300: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 02970833 ! 301: 1I6,/,1H ,15X,10HCORRECT= ,I6) 02980833 ! 302: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02990833 ! 303: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 03000833 ! 304: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03010833 ! 305: 1A21,/,1H ,16X,10HCORRECT= ,A21) 03020833 ! 306: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 03030833 ! 307: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 03040833 ! 308: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 03050833 ! 309: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 03060833 ! 310: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 03070833 ! 311: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 03080833 ! 312: 80050 FORMAT (1H ,48X,A31) 03090833 ! 313: CBE** ********************** BBCFMT0A **********************************03100833 ! 314: CBB** ********************** BBCFMAT1 **********************************03110833 ! 315: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 03120833 ! 316: C**** 03130833 ! 317: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03140833 ! 318: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 03150833 ! 319: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 03160833 ! 320: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 03170833 ! 321: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 03180833 ! 322: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 03190833 ! 323: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 03200833 ! 324: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 03210833 ! 325: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03220833 ! 326: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 03230833 ! 327: 21H(,F12.5,2H, ,F12.5,1H)) 03240833 ! 328: CBE** ********************** BBCFMAT1 **********************************03250833 ! 329: CBB** ********************** BBCFMT0B **********************************03260833 ! 330: C**** FORMAT STATEMENTS FOR PAGE HEADERS 03270833 ! 331: C**** 03280833 ! 332: 90002 FORMAT (1H1) 03290833 ! 333: 90004 FORMAT (1H ) 03300833 ! 334: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 03310833 ! 335: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03320833 ! 336: 90008 FORMAT (1H ,21X,A13,A17) 03330833 ! 337: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 03340833 ! 338: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 03350833 ! 339: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 03360833 ! 340: 1 7X,7HREMARKS,24X) 03370833 ! 341: 90014 FORMAT (1H ,46H----------------------------------------------, 03380833 ! 342: 1 33H---------------------------------) 03390833 ! 343: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 03400833 ! 344: C**** 03410833 ! 345: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03420833 ! 346: C**** 03430833 ! 347: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 03440833 ! 348: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 03450833 ! 349: 1 A13) 03460833 ! 350: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 03470833 ! 351: C**** 03480833 ! 352: C**** FORMAT STATEMENTS FOR RUN SUMMARY 03490833 ! 353: C**** 03500833 ! 354: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03510833 ! 355: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03520833 ! 356: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03530833 ! 357: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 03540833 ! 358: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 03550833 ! 359: CBE** ********************** BBCFMT0B **********************************03560833 ! 360: C***** 03570833 ! 361: C***** END OF TEST SEGMENT 211 03580833 ! 362: STOP 03590833 ! 363: END 03600833
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.