![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM812.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 FM812.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***********************************************************************00010812 ! 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 00020812 ! 6: C***** FM812 00030812 ! 7: C***** YDSQRT - (176) 00040812 ! 8: C***** 00050812 ! 9: C***********************************************************************00060812 ! 10: C***** GENERAL PURPOSE ANS REF 00070812 ! 11: C***** TEST INTRINSIC FUNCTION DSQRT 15.3 00080812 ! 12: C***** TABLE 5 00090812 ! 13: C***** 00100812 ! 14: CBB** ********************** BBCCOMNT **********************************00110812 ! 15: C**** 00120812 ! 16: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130812 ! 17: C**** VERSION 2.0 00140812 ! 18: C**** 00150812 ! 19: C**** 00160812 ! 20: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170812 ! 21: C**** GENERAL SERVICES ADMINISTRATION 00180812 ! 22: C**** FEDERAL SOFTWARE TESTING CENTER 00190812 ! 23: C**** 5203 LEESBURG PIKE, SUITE 1100 00200812 ! 24: C**** FALLS CHURCH, VA. 22041 00210812 ! 25: C**** 00220812 ! 26: C**** (703) 756-6153 00230812 ! 27: C**** 00240812 ! 28: CBE** ********************** BBCCOMNT **********************************00250812 ! 29: C***** S P E C I F I C A T I O N S SEGMENT 176 00260812 ! 30: DOUBLE PRECISION AVD, BVD, DVCORR 00270812 ! 31: C***** 00280812 ! 32: CBB** ********************** BBCINITA **********************************00290812 ! 33: C**** SPECIFICATION STATEMENTS 00300812 ! 34: C**** 00310812 ! 35: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00320812 ! 36: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00330812 ! 37: CBE** ********************** BBCINITA **********************************00340812 ! 38: CBB** ********************** BBCINITB **********************************00350812 ! 39: C**** INITIALIZE SECTION 00360812 ! 40: DATA ZVERS, ZVERSD, ZDATE 00370812 ! 41: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00380812 ! 42: DATA ZCOMPL, ZNAME, ZTAPE 00390812 ! 43: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00400812 ! 44: DATA ZPROJ, ZTAPED, ZPROG 00410812 ! 45: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00420812 ! 46: DATA REMRKS /' '/ 00430812 ! 47: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00440812 ! 48: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00450812 ! 49: C**** 00460812 ! 50: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00470812 ! 51: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00480812 ! 52: CZ03 ZPROG = 'PROGRAM NAME' 00490812 ! 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 00560812 ! 60: IVPASS = 0 00570812 ! 61: IVFAIL = 0 00580812 ! 62: IVDELE = 0 00590812 ! 63: IVINSP = 0 00600812 ! 64: IVTOTL = 0 00610812 ! 65: IVTOTN = 0 00620812 ! 66: ICZERO = 0 00630812 ! 67: C 00640812 ! 68: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00650812 ! 69: I01 = 05 00660812 ! 70: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00670812 ! 71: I02 = 06 00680812 ! 72: C 00690812 ! 73: I01 = 5 00700812 ! 74: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00710812 ! 75: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00720812 ! 76: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00730812 ! 77: C 00740812 ! 78: I02 = 6 00750812 ! 79: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00760812 ! 80: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00770812 ! 81: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00780812 ! 82: C 00790812 ! 83: CBE** ********************** BBCINITB **********************************00800812 ! 84: NUVI = I02 00810812 ! 85: IVTOTL = 13 00820812 ! 86: ZPROG = 'FM812' 00830812 ! 87: CBB** ********************** BBCHED0A **********************************00840812 ! 88: C**** 00850812 ! 89: C**** WRITE REPORT TITLE 00860812 ! 90: C**** 00870812 ! 91: WRITE (I02, 90002) 00880812 ! 92: WRITE (I02, 90006) 00890812 ! 93: WRITE (I02, 90007) 00900812 ! 94: WRITE (I02, 90008) ZVERS, ZVERSD 00910812 ! 95: WRITE (I02, 90009) ZPROG, ZPROG 00920812 ! 96: WRITE (I02, 90010) ZDATE, ZCOMPL 00930812 ! 97: CBE** ********************** BBCHED0A **********************************00940812 ! 98: C***** 00950812 ! 99: C***** HEADER FOR SEGMENT 176 00960812 ! 100: WRITE(NUVI,17600) 00970812 ! 101: 17600 FORMAT(1H , / 36H YDSQRT - (176) INTRINSIC FUNCTIONS// 00980812 ! 102: 1 38H DSQRT (DOUBLE PRECISION SQUARE ROOT)// 00990812 ! 103: 2 17H ANS REF. - 15.3) 01000812 ! 104: CBB** ********************** BBCHED0B **********************************01010812 ! 105: C**** WRITE DETAIL REPORT HEADERS 01020812 ! 106: C**** 01030812 ! 107: WRITE (I02,90004) 01040812 ! 108: WRITE (I02,90004) 01050812 ! 109: WRITE (I02,90013) 01060812 ! 110: WRITE (I02,90014) 01070812 ! 111: WRITE (I02,90015) IVTOTL 01080812 ! 112: CBE** ********************** BBCHED0B **********************************01090812 ! 113: C***** 01100812 ! 114: CT001* TEST 1 FIXED POINT OF FUNCTION 01110812 ! 115: IVTNUM = 1 01120812 ! 116: BVD = 0.0D0 01130812 ! 117: AVD = DSQRT(BVD) 01140812 ! 118: IF (AVD + 0.5000000000D-09) 20010, 10010, 40010 01150812 ! 119: 40010 IF (AVD - 0.5000000000D-09) 10010, 10010, 20010 01160812 ! 120: 10010 IVPASS = IVPASS + 1 01170812 ! 121: WRITE (NUVI, 80002) IVTNUM 01180812 ! 122: GO TO 0011 01190812 ! 123: 20010 IVFAIL = IVFAIL + 1 01200812 ! 124: DVCORR = 0.00000000000000000000D0 01210812 ! 125: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01220812 ! 126: 0011 CONTINUE 01230812 ! 127: CT002* TEST 2 FIXED POINT OF FUNCTION 01240812 ! 128: IVTNUM = 2 01250812 ! 129: AVD = DSQRT(1.0D0) 01260812 ! 130: IF (AVD - 0.9999999995D+00) 20020, 10020, 40020 01270812 ! 131: 40020 IF (AVD - 0.1000000001D+01) 10020, 10020, 20020 01280812 ! 132: 10020 IVPASS = IVPASS + 1 01290812 ! 133: WRITE (NUVI, 80002) IVTNUM 01300812 ! 134: GO TO 0021 01310812 ! 135: 20020 IVFAIL = IVFAIL + 1 01320812 ! 136: DVCORR = 1.0000000000000000000D0 01330812 ! 137: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01340812 ! 138: 0021 CONTINUE 01350812 ! 139: CT003* TEST 3 CONSTANT OF VALUE 2.0D0 01360812 ! 140: IVTNUM = 3 01370812 ! 141: AVD = DSQRT(2.0D0) 01380812 ! 142: IF (AVD - 0.1414213561D+01) 20030, 10030, 40030 01390812 ! 143: 40030 IF (AVD - 0.1414213563D+01) 10030, 10030, 20030 01400812 ! 144: 10030 IVPASS = IVPASS + 1 01410812 ! 145: WRITE (NUVI, 80002) IVTNUM 01420812 ! 146: GO TO 0031 01430812 ! 147: 20030 IVFAIL = IVFAIL + 1 01440812 ! 148: DVCORR = 1.4142135623730950488D0 01450812 ! 149: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01460812 ! 150: 0031 CONTINUE 01470812 ! 151: CT004* TEST 4 CONSTANT OF VALUE 4.0D0 01480812 ! 152: IVTNUM = 4 01490812 ! 153: AVD = DSQRT(4.0D0) 01500812 ! 154: IF (AVD - 0.1999999999D+01) 20040, 10040, 40040 01510812 ! 155: 40040 IF (AVD - 0.2000000001D+01) 10040, 10040, 20040 01520812 ! 156: 10040 IVPASS = IVPASS + 1 01530812 ! 157: WRITE (NUVI, 80002) IVTNUM 01540812 ! 158: GO TO 0041 01550812 ! 159: 20040 IVFAIL = IVFAIL + 1 01560812 ! 160: DVCORR = 2.0000000000000000000D0 01570812 ! 161: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01580812 ! 162: 0041 CONTINUE 01590812 ! 163: CT005* TEST 5 CONSTANT OF VALUE 15.0D0 01600812 ! 164: IVTNUM = 5 01610812 ! 165: AVD = DSQRT(15.0D0) 01620812 ! 166: IF (AVD - 0.3872983344D+01) 20050, 10050, 40050 01630812 ! 167: 40050 IF (AVD - 0.3872983348D+01) 10050, 10050, 20050 01640812 ! 168: 10050 IVPASS = IVPASS + 1 01650812 ! 169: WRITE (NUVI, 80002) IVTNUM 01660812 ! 170: GO TO 0051 01670812 ! 171: 20050 IVFAIL = IVFAIL + 1 01680812 ! 172: DVCORR = 3.8729833462074168852D0 01690812 ! 173: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01700812 ! 174: 0051 CONTINUE 01710812 ! 175: CT006* TEST 6 CONSTANT OF VALUE 31.0D0 01720812 ! 176: IVTNUM = 6 01730812 ! 177: AVD = DSQRT(31.0D0) 01740812 ! 178: IF (AVD - 0.5567764360D+01) 20060, 10060, 40060 01750812 ! 179: 40060 IF (AVD - 0.5567764366D+01) 10060, 10060, 20060 01760812 ! 180: 10060 IVPASS = IVPASS + 1 01770812 ! 181: WRITE (NUVI, 80002) IVTNUM 01780812 ! 182: GO TO 0061 01790812 ! 183: 20060 IVFAIL = IVFAIL + 1 01800812 ! 184: DVCORR = 5.5677643628300219221D0 01810812 ! 185: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01820812 ! 186: 0061 CONTINUE 01830812 ! 187: CT007* TEST 7 VARIABLE PRESENTED TO DSQRT 01840812 ! 188: IVTNUM = 7 01850812 ! 189: BVD = 2.0D0 / 4.0D0 01860812 ! 190: AVD = DSQRT(BVD) 01870812 ! 191: IF (AVD - 0.7071067808D+00) 20070, 10070, 40070 01880812 ! 192: 40070 IF (AVD - 0.7071067816D+00) 10070, 10070, 20070 01890812 ! 193: 10070 IVPASS = IVPASS + 1 01900812 ! 194: WRITE (NUVI, 80002) IVTNUM 01910812 ! 195: GO TO 0071 01920812 ! 196: 20070 IVFAIL = IVFAIL + 1 01930812 ! 197: DVCORR = 0.70710678118654752440D0 01940812 ! 198: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01950812 ! 199: 0071 CONTINUE 01960812 ! 200: CT008* TEST 8 EXPRESSION PRESENTED TO DSQRT 01970812 ! 201: IVTNUM = 8 01980812 ! 202: BVD = 25.0D0 01990812 ! 203: AVD = DSQRT(BVD / 100.0D0) 02000812 ! 204: IF (AVD - 0.4999999997D+00) 20080, 10080, 40080 02010812 ! 205: 40080 IF (AVD - 0.5000000003D+00) 10080, 10080, 20080 02020812 ! 206: 10080 IVPASS = IVPASS + 1 02030812 ! 207: WRITE (NUVI, 80002) IVTNUM 02040812 ! 208: GO TO 0081 02050812 ! 209: 20080 IVFAIL = IVFAIL + 1 02060812 ! 210: DVCORR = 0.50000000000000000000D0 02070812 ! 211: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02080812 ! 212: 0081 CONTINUE 02090812 ! 213: CT009* TEST 9 EXPRESSION PRESENTED TO DSQRT 02100812 ! 214: IVTNUM = 9 02110812 ! 215: BVD = 0.0875D0 02120812 ! 216: AVD = DSQRT(BVD * 10.0D0) 02130812 ! 217: IF (AVD - 0.9354143462D+00) 20090, 10090, 40090 02140812 ! 218: 40090 IF (AVD - 0.9354143472D+00) 10090, 10090, 20090 02150812 ! 219: 10090 IVPASS = IVPASS + 1 02160812 ! 220: WRITE (NUVI, 80002) IVTNUM 02170812 ! 221: GO TO 0091 02180812 ! 222: 20090 IVFAIL = IVFAIL + 1 02190812 ! 223: DVCORR = 0.93541434669348534640D0 02200812 ! 224: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02210812 ! 225: 0091 CONTINUE 02220812 ! 226: CT010* TEST 10 AN EXPRESSION WITH VALUE CLOSE TO ONE 02230812 ! 227: IVTNUM = 10 02240812 ! 228: AVD = DSQRT(31.0D0 / 32.0D0) 02250812 ! 229: IF (AVD - 0.9842509837D+00) 20100, 10100, 40100 02260812 ! 230: 40100 IF (AVD - 0.9842509848D+00) 10100, 10100, 20100 02270812 ! 231: 10100 IVPASS = IVPASS + 1 02280812 ! 232: WRITE (NUVI, 80002) IVTNUM 02290812 ! 233: GO TO 0101 02300812 ! 234: 20100 IVFAIL = IVFAIL + 1 02310812 ! 235: DVCORR = 0.98425098425147637746D0 02320812 ! 236: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02330812 ! 237: 0101 CONTINUE 02340812 ! 238: CT011* TEST 11 AN ARGUMENT OF LOW MAGNITUDE 02350812 ! 239: IVTNUM = 11 02360812 ! 240: AVD = DSQRT(1.6D-35) 02370812 ! 241: IF (AVD - 0.3999999998D-17) 20110, 10110, 40110 02380812 ! 242: 40110 IF (AVD - 0.4000000002D-17) 10110, 10110, 20110 02390812 ! 243: 10110 IVPASS = IVPASS + 1 02400812 ! 244: WRITE (NUVI, 80002) IVTNUM 02410812 ! 245: GO TO 0111 02420812 ! 246: 20110 IVFAIL = IVFAIL + 1 02430812 ! 247: DVCORR = 0.40000000000000000000D-17 02440812 ! 248: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02450812 ! 249: 0111 CONTINUE 02460812 ! 250: CT012* TEST 12 AN ARGUMENT OF HIGH MAGNITUDE 02470812 ! 251: IVTNUM = 12 02480812 ! 252: AVD = DSQRT(1.0D+35) 02490812 ! 253: IF (AVD - 0.3162277658D+18) 20120, 10120, 40120 02500812 ! 254: 40120 IF (AVD - 0.3162277662D+18) 10120, 10120, 20120 02510812 ! 255: 10120 IVPASS = IVPASS + 1 02520812 ! 256: WRITE (NUVI, 80002) IVTNUM 02530812 ! 257: GO TO 0121 02540812 ! 258: 20120 IVFAIL = IVFAIL + 1 02550812 ! 259: DVCORR = 0.31622776601683793320D+18 02560812 ! 260: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02570812 ! 261: 0121 CONTINUE 02580812 ! 262: CT013* TEST 13 THE FUNCTION APPLIED TWICE 02590812 ! 263: IVTNUM = 13 02600812 ! 264: BVD = DSQRT(1.6D0) 02610812 ! 265: AVD = DSQRT(0.625D0) * BVD 02620812 ! 266: IF (AVD - 0.9999999995D+00) 20130, 10130, 40130 02630812 ! 267: 40130 IF (AVD - 0.1000000001D+01) 10130, 10130, 20130 02640812 ! 268: 10130 IVPASS = IVPASS + 1 02650812 ! 269: WRITE (NUVI, 80002) IVTNUM 02660812 ! 270: GO TO 0131 02670812 ! 271: 20130 IVFAIL = IVFAIL + 1 02680812 ! 272: DVCORR = 1.00000000000000D0 02690812 ! 273: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02700812 ! 274: 0131 CONTINUE 02710812 ! 275: C***** 02720812 ! 276: CBB** ********************** BBCSUM0 **********************************02730812 ! 277: C**** WRITE OUT TEST SUMMARY 02740812 ! 278: C**** 02750812 ! 279: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02760812 ! 280: WRITE (I02, 90004) 02770812 ! 281: WRITE (I02, 90014) 02780812 ! 282: WRITE (I02, 90004) 02790812 ! 283: WRITE (I02, 90020) IVPASS 02800812 ! 284: WRITE (I02, 90022) IVFAIL 02810812 ! 285: WRITE (I02, 90024) IVDELE 02820812 ! 286: WRITE (I02, 90026) IVINSP 02830812 ! 287: WRITE (I02, 90028) IVTOTN, IVTOTL 02840812 ! 288: CBE** ********************** BBCSUM0 **********************************02850812 ! 289: CBB** ********************** BBCFOOT0 **********************************02860812 ! 290: C**** WRITE OUT REPORT FOOTINGS 02870812 ! 291: C**** 02880812 ! 292: WRITE (I02,90016) ZPROG, ZPROG 02890812 ! 293: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02900812 ! 294: WRITE (I02,90019) 02910812 ! 295: CBE** ********************** BBCFOOT0 **********************************02920812 ! 296: CBB** ********************** BBCFMT0A **********************************02930812 ! 297: C**** FORMATS FOR TEST DETAIL LINES 02940812 ! 298: C**** 02950812 ! 299: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 02960812 ! 300: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 02970812 ! 301: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 02980812 ! 302: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 02990812 ! 303: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 03000812 ! 304: 1I6,/,1H ,15X,10HCORRECT= ,I6) 03010812 ! 305: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03020812 ! 306: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 03030812 ! 307: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03040812 ! 308: 1A21,/,1H ,16X,10HCORRECT= ,A21) 03050812 ! 309: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 03060812 ! 310: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 03070812 ! 311: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 03080812 ! 312: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 03090812 ! 313: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 03100812 ! 314: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 03110812 ! 315: 80050 FORMAT (1H ,48X,A31) 03120812 ! 316: CBE** ********************** BBCFMT0A **********************************03130812 ! 317: CBB** ********************** BBCFMAT1 **********************************03140812 ! 318: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 03150812 ! 319: C**** 03160812 ! 320: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03170812 ! 321: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 03180812 ! 322: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 03190812 ! 323: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 03200812 ! 324: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 03210812 ! 325: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 03220812 ! 326: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 03230812 ! 327: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 03240812 ! 328: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03250812 ! 329: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 03260812 ! 330: 21H(,F12.5,2H, ,F12.5,1H)) 03270812 ! 331: CBE** ********************** BBCFMAT1 **********************************03280812 ! 332: CBB** ********************** BBCFMT0B **********************************03290812 ! 333: C**** FORMAT STATEMENTS FOR PAGE HEADERS 03300812 ! 334: C**** 03310812 ! 335: 90002 FORMAT (1H1) 03320812 ! 336: 90004 FORMAT (1H ) 03330812 ! 337: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 03340812 ! 338: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03350812 ! 339: 90008 FORMAT (1H ,21X,A13,A17) 03360812 ! 340: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 03370812 ! 341: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 03380812 ! 342: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 03390812 ! 343: 1 7X,7HREMARKS,24X) 03400812 ! 344: 90014 FORMAT (1H ,46H----------------------------------------------, 03410812 ! 345: 1 33H---------------------------------) 03420812 ! 346: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 03430812 ! 347: C**** 03440812 ! 348: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03450812 ! 349: C**** 03460812 ! 350: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 03470812 ! 351: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 03480812 ! 352: 1 A13) 03490812 ! 353: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 03500812 ! 354: C**** 03510812 ! 355: C**** FORMAT STATEMENTS FOR RUN SUMMARY 03520812 ! 356: C**** 03530812 ! 357: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03540812 ! 358: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03550812 ! 359: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03560812 ! 360: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 03570812 ! 361: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 03580812 ! 362: CBE** ********************** BBCFMT0B **********************************03590812 ! 363: C***** END OF TEST SEGMENT 176 03600812 ! 364: STOP 03610812 ! 365: END 03620812 ! 366: 03630812
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.