![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM817.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 FM817.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***********************************************************************00010817 ! 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 00020817 ! 6: C***** FM817 00030817 ! 7: C***** YCLOG - (183) 00040817 ! 8: C***** 00050817 ! 9: C***********************************************************************00060817 ! 10: C***** GENERAL PURPOSE ANS REF 00070817 ! 11: C***** TEST INTRINSIC FUNCTION CLOG 15.3 00080817 ! 12: C***** INTRINSIC FUNCTIONS AIMAG AND CMPLX ASSUMED WORKING TABLE 5 00090817 ! 13: C***** 00100817 ! 14: CBB** ********************** BBCCOMNT **********************************00110817 ! 15: C**** 00120817 ! 16: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130817 ! 17: C**** VERSION 2.0 00140817 ! 18: C**** 00150817 ! 19: C**** 00160817 ! 20: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170817 ! 21: C**** GENERAL SERVICES ADMINISTRATION 00180817 ! 22: C**** FEDERAL SOFTWARE TESTING CENTER 00190817 ! 23: C**** 5203 LEESBURG PIKE, SUITE 1100 00200817 ! 24: C**** FALLS CHURCH, VA. 22041 00210817 ! 25: C**** 00220817 ! 26: C**** (703) 756-6153 00230817 ! 27: C**** 00240817 ! 28: CBE** ********************** BBCCOMNT **********************************00250817 ! 29: C***** 00260817 ! 30: C***** S P E C I F I C A T I O N S SEGMENT 183 00270817 ! 31: COMPLEX AVC, BVC, CVC, ZVCORR 00280817 ! 32: REAL R2E(2) 00290817 ! 33: EQUIVALENCE (AVC, R2E) 00300817 ! 34: C***** 00310817 ! 35: CBB** ********************** BBCINITA **********************************00320817 ! 36: C**** SPECIFICATION STATEMENTS 00330817 ! 37: C**** 00340817 ! 38: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00350817 ! 39: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00360817 ! 40: CBE** ********************** BBCINITA **********************************00370817 ! 41: CBB** ********************** BBCINITB **********************************00380817 ! 42: C**** INITIALIZE SECTION 00390817 ! 43: DATA ZVERS, ZVERSD, ZDATE 00400817 ! 44: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00410817 ! 45: DATA ZCOMPL, ZNAME, ZTAPE 00420817 ! 46: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00430817 ! 47: DATA ZPROJ, ZTAPED, ZPROG 00440817 ! 48: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00450817 ! 49: DATA REMRKS /' '/ 00460817 ! 50: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00470817 ! 51: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00480817 ! 52: C**** 00490817 ! 53: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00500817 ! 54: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00510817 ! 55: CZ03 ZPROG = 'PROGRAM NAME' 00520817 ! 56: ZDATE = '07-Nov-85 ' *RP ! 57: ZCOMPL = 'CCI 5.2 ' *RP ! 58: ZPROJ = 'TC-85- -410' *RP ! 59: ZNAME = ' ' *RP ! 60: ZTAPE = ' ' *RP ! 61: ZTAPED = '850703 ' *RP ! 62: C 00590817 ! 63: IVPASS = 0 00600817 ! 64: IVFAIL = 0 00610817 ! 65: IVDELE = 0 00620817 ! 66: IVINSP = 0 00630817 ! 67: IVTOTL = 0 00640817 ! 68: IVTOTN = 0 00650817 ! 69: ICZERO = 0 00660817 ! 70: C 00670817 ! 71: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00680817 ! 72: I01 = 05 00690817 ! 73: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00700817 ! 74: I02 = 06 00710817 ! 75: C 00720817 ! 76: I01 = 5 00730817 ! 77: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00740817 ! 78: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00750817 ! 79: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00760817 ! 80: C 00770817 ! 81: I02 = 6 00780817 ! 82: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00790817 ! 83: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00800817 ! 84: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00810817 ! 85: C 00820817 ! 86: CBE** ********************** BBCINITB **********************************00830817 ! 87: NUVI = I02 00840817 ! 88: IVTOTL = 11 00850817 ! 89: ZPROG = 'FM817' 00860817 ! 90: CBB** ********************** BBCHED0A **********************************00870817 ! 91: C**** 00880817 ! 92: C**** WRITE REPORT TITLE 00890817 ! 93: C**** 00900817 ! 94: WRITE (I02, 90002) 00910817 ! 95: WRITE (I02, 90006) 00920817 ! 96: WRITE (I02, 90007) 00930817 ! 97: WRITE (I02, 90008) ZVERS, ZVERSD 00940817 ! 98: WRITE (I02, 90009) ZPROG, ZPROG 00950817 ! 99: WRITE (I02, 90010) ZDATE, ZCOMPL 00960817 ! 100: CBE** ********************** BBCHED0A **********************************00970817 ! 101: C***** 00980817 ! 102: C***** HEADER FOR SEGMENT 183 00990817 ! 103: WRITE(NUVI,18300) 01000817 ! 104: 18300 FORMAT(1H , / 35H YCLOG - (183) INTRINSIC FUNCTIONS// 01010817 ! 105: 1 34H CLOG (COMPLEX NATURAL LOGARITHM)// 01020817 ! 106: 2 17H ANS REF. - 15.3) 01030817 ! 107: CBB** ********************** BBCHED0B **********************************01040817 ! 108: C**** WRITE DETAIL REPORT HEADERS 01050817 ! 109: C**** 01060817 ! 110: WRITE (I02,90004) 01070817 ! 111: WRITE (I02,90004) 01080817 ! 112: WRITE (I02,90013) 01090817 ! 113: WRITE (I02,90014) 01100817 ! 114: WRITE (I02,90015) IVTOTL 01110817 ! 115: CBE** ********************** BBCHED0B **********************************01120817 ! 116: C***** 01130817 ! 117: PIVS = 3.1415926535897932384626434 01140817 ! 118: C***** TESTS 1 THRU 3 - POSITIVE REAL NUMBERS--CLOG, ALOG AGREE ON 01150817 ! 119: C***** REAL LINE 01160817 ! 120: CT001* TEST 1 01170817 ! 121: IVTNUM = 1 01180817 ! 122: AVC = CLOG((1.0, 0.0)) 01190817 ! 123: IF (R2E(1) + 0.50000E-04) 20010, 40012, 40011 01200817 ! 124: 40011 IF (R2E(1) - 0.50000E-04) 40012, 40012, 20010 01210817 ! 125: 40012 IF (R2E(2) + 0.50000E-04) 20010, 10010, 40010 01220817 ! 126: 40010 IF (R2E(2) - 0.50000E-04) 10010, 10010, 20010 01230817 ! 127: 10010 IVPASS = IVPASS + 1 01240817 ! 128: WRITE (NUVI, 80002) IVTNUM 01250817 ! 129: GO TO 0011 01260817 ! 130: 20010 IVFAIL = IVFAIL + 1 01270817 ! 131: ZVCORR = (0.00000000000000, 0.00000000000000) 01280817 ! 132: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 01290817 ! 133: 0011 CONTINUE 01300817 ! 134: CT002* TEST 2 01310817 ! 135: IVTNUM = 2 01320817 ! 136: AVC = CLOG((5.125, 0.0)) 01330817 ! 137: IF (R2E(1) - 0.16340E+01) 20020, 40022, 40021 01340817 ! 138: 40021 IF (R2E(1) - 0.16343E+01) 40022, 40022, 20020 01350817 ! 139: 40022 IF (R2E(2) + 0.50000E-04) 20020, 10020, 40020 01360817 ! 140: 40020 IF (R2E(2) - 0.50000E-04) 10020, 10020, 20020 01370817 ! 141: 10020 IVPASS = IVPASS + 1 01380817 ! 142: WRITE (NUVI, 80002) IVTNUM 01390817 ! 143: GO TO 0021 01400817 ! 144: 20020 IVFAIL = IVFAIL + 1 01410817 ! 145: ZVCORR = (1.6341305250245, 0.00000000000000) 01420817 ! 146: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 01430817 ! 147: 0021 CONTINUE 01440817 ! 148: CT003* TEST 3 01450817 ! 149: IVTNUM = 3 01460817 ! 150: AVC = CLOG((100.0, 0.0)) 01470817 ! 151: IF (R2E(1) - 0.46049E+01) 20030, 40032, 40031 01480817 ! 152: 40031 IF (R2E(1) - 0.46054E+01) 40032, 40032, 20030 01490817 ! 153: 40032 IF (R2E(2) + 0.50000E-04) 20030, 10030, 40030 01500817 ! 154: 40030 IF (R2E(2) - 0.50000E-04) 10030, 10030, 20030 01510817 ! 155: 10030 IVPASS = IVPASS + 1 01520817 ! 156: WRITE (NUVI, 80002) IVTNUM 01530817 ! 157: GO TO 0031 01540817 ! 158: 20030 IVFAIL = IVFAIL + 1 01550817 ! 159: ZVCORR = (4.6051701859881, 0.00000000000000) 01560817 ! 160: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 01570817 ! 161: 0031 CONTINUE 01580817 ! 162: CT004* TEST 4 AN EXPRESSION PRESENTED TO CLOG 01590817 ! 163: IVTNUM = 4 01600817 ! 164: AVC = CLOG((2.6875, 0.0) * (-1.0, 0.0)) 01610817 ! 165: IF (R2E(1) - 0.98856E+00) 20040, 40042, 40041 01620817 ! 166: 40041 IF (R2E(1) - 0.98866E+00) 40042, 40042, 20040 01630817 ! 167: 40042 IF (R2E(2) - 0.31414E+01) 20040, 10040, 40040 01640817 ! 168: 40040 IF (R2E(2) - 0.31418E+01) 10040, 10040, 20040 01650817 ! 169: 10040 IVPASS = IVPASS + 1 01660817 ! 170: WRITE (NUVI, 80002) IVTNUM 01670817 ! 171: GO TO 0041 01680817 ! 172: 20040 IVFAIL = IVFAIL + 1 01690817 ! 173: ZVCORR = (0.98861139345378, 3.1415926535898) 01700817 ! 174: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 01710817 ! 175: 0041 CONTINUE 01720817 ! 176: C***** TESTS 5 AND 6 - NEGATIVE REAL NUMBERS--CHECK RIGHT BRANCH AT 01730817 ! 177: C***** ENDPOINTS 01740817 ! 178: CT005* TEST 5 01750817 ! 179: IVTNUM = 5 01760817 ! 180: BVC = (-2.5, 0.0) 01770817 ! 181: AVC = CLOG(BVC + BVC) 01780817 ! 182: IF (R2E(1) - 0.16093E+01) 20050, 40052, 40051 01790817 ! 183: 40051 IF (R2E(1) - 0.16096E+01) 40052, 40052, 20050 01800817 ! 184: 40052 IF (R2E(2) - 0.31414E+01) 20050, 10050, 40050 01810817 ! 185: 40050 IF (R2E(2) - 0.31418E+01) 10050, 10050, 20050 01820817 ! 186: 10050 IVPASS = IVPASS + 1 01830817 ! 187: WRITE (NUVI, 80002) IVTNUM 01840817 ! 188: GO TO 0051 01850817 ! 189: 20050 IVFAIL = IVFAIL + 1 01860817 ! 190: ZVCORR = (1.6094379124341, 3.1415926535898) 01870817 ! 191: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 01880817 ! 192: 0051 CONTINUE 01890817 ! 193: CT006* TEST 6 01900817 ! 194: IVTNUM = 6 01910817 ! 195: BVC = (-10.0, 0.0) + (-10.25, 0.0) 01920817 ! 196: AVC = CLOG(BVC) 01930817 ! 197: IF (R2E(1) - 0.30080E+01) 20060, 40062, 40061 01940817 ! 198: 40061 IF (R2E(1) - 0.30083E+01) 40062, 40062, 20060 01950817 ! 199: 40062 IF (R2E(2) - 0.31414E+01) 20060, 10060, 40060 01960817 ! 200: 40060 IF (R2E(2) - 0.31418E+01) 10060, 10060, 20060 01970817 ! 201: 10060 IVPASS = IVPASS + 1 01980817 ! 202: WRITE (NUVI, 80002) IVTNUM 01990817 ! 203: GO TO 0061 02000817 ! 204: 20060 IVFAIL = IVFAIL + 1 02010817 ! 205: ZVCORR = (3.0081547935525, 3.1415926535898) 02020817 ! 206: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 02030817 ! 207: 0061 CONTINUE 02040817 ! 208: CT007* TEST 7 POSITIVE REAL, POSITIVE IMAGINARY ARGUMENTS 02050817 ! 209: IVTNUM = 7 02060817 ! 210: BVC = (2.0, 1.5) 02070817 ! 211: AVC = CLOG(BVC) 02080817 ! 212: IF (R2E(1) - 0.91624E+00) 20070, 40072, 40071 02090817 ! 213: 40071 IF (R2E(1) - 0.91634E+00) 40072, 40072, 20070 02100817 ! 214: 40072 IF (R2E(2) - 0.64346E+00) 20070, 10070, 40070 02110817 ! 215: 40070 IF (R2E(2) - 0.64354E+00) 10070, 10070, 20070 02120817 ! 216: 10070 IVPASS = IVPASS + 1 02130817 ! 217: WRITE (NUVI, 80002) IVTNUM 02140817 ! 218: GO TO 0071 02150817 ! 219: 20070 IVFAIL = IVFAIL + 1 02160817 ! 220: ZVCORR = (0.91629073187416, 0.64350110879328) 02170817 ! 221: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 02180817 ! 222: 0071 CONTINUE 02190817 ! 223: CT008* TEST 8 NEGATIVE REAL, POSITIVE IMAGINARY ARGUMENTS 02200817 ! 224: IVTNUM = 8 02210817 ! 225: BVC = (-2.75, 1.375) 02220817 ! 226: AVC = CLOG(BVC) 02230817 ! 227: IF (R2E(1) - 0.11231E+01) 20080, 40082, 40081 02240817 ! 228: 40081 IF (R2E(1) - 0.11233E+01) 40082, 40082, 20080 02250817 ! 229: 40082 IF (R2E(2) - 0.26778E+01) 20080, 10080, 40080 02260817 ! 230: 40080 IF (R2E(2) - 0.26781E+01) 10080, 10080, 20080 02270817 ! 231: 10080 IVPASS = IVPASS + 1 02280817 ! 232: WRITE (NUVI, 80002) IVTNUM 02290817 ! 233: GO TO 0081 02300817 ! 234: 20080 IVFAIL = IVFAIL + 1 02310817 ! 235: ZVCORR = (1.1231726873356, 2.6779450445890) 02320817 ! 236: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 02330817 ! 237: 0081 CONTINUE 02340817 ! 238: CT009* TEST 9 NEGATIVE REAL, NEGATIVE IMAGINARY ARGUMENTS 02350817 ! 239: IVTNUM = 9 02360817 ! 240: BVC = (-10.0, -10.0) 02370817 ! 241: AVC = CLOG(BVC) 02380817 ! 242: IF (R2E(1) - 0.26490E+01) 20090, 40092, 40091 02390817 ! 243: 40091 IF (R2E(1) - 0.26493E+01) 40092, 40092, 20090 02400817 ! 244: 40092 IF (R2E(2) + 0.23564E+01) 20090, 10090, 40090 02410817 ! 245: 40090 IF (R2E(2) + 0.23560E+01) 10090, 10090, 20090 02420817 ! 246: 10090 IVPASS = IVPASS + 1 02430817 ! 247: WRITE (NUVI, 80002) IVTNUM 02440817 ! 248: GO TO 0091 02450817 ! 249: 20090 IVFAIL = IVFAIL + 1 02460817 ! 250: ZVCORR = (2.6491586832740, -2.3561944901923) 02470817 ! 251: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 02480817 ! 252: 0091 CONTINUE 02490817 ! 253: CT010* TEST 10 CLOG USED TOGETHER WITH AIMAG 02500817 ! 254: IVTNUM = 10 02510817 ! 255: AVS = (AIMAG(CLOG((3.0, 1.75))) + AIMAG(CLOG((-3.0, 1.75)))) 02520817 ! 256: 1 - PIVS 02530817 ! 257: IF (AVS + 0.50000E-04) 20100, 10100, 40100 02540817 ! 258: 40100 IF (AVS - 0.50000E-04) 10100, 10100, 20100 02550817 ! 259: 10100 IVPASS = IVPASS + 1 02560817 ! 260: WRITE (NUVI, 80002) IVTNUM 02570817 ! 261: GO TO 0101 02580817 ! 262: 20100 IVFAIL = IVFAIL + 1 02590817 ! 263: RVCORR = 0.00000000000000 02600817 ! 264: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02610817 ! 265: 0101 CONTINUE 02620817 ! 266: CT011* TEST 11 CLOG USED TOGETHER WITH CMPLX AND AIMAG 02630817 ! 267: IVTNUM = 11 02640817 ! 268: BVC = CLOG((4.5, -3.75)) 02650817 ! 269: CVC = CLOG((-4.5, -3.75)) 02660817 ! 270: AVC = (BVC - CMPLX(0.0, AIMAG(BVC))) - 02670817 ! 271: 1 (CVC - CMPLX(0.0, AIMAG(CVC))) 02680817 ! 272: IF (R2E(1) + 0.50000E-04) 20110, 40112, 40111 02690817 ! 273: 40111 IF (R2E(1) - 0.50000E-04) 40112, 40112, 20110 02700817 ! 274: 40112 IF (R2E(2) + 0.50000E-04) 20110, 10110, 40110 02710817 ! 275: 40110 IF (R2E(2) - 0.50000E-04) 10110, 10110, 20110 02720817 ! 276: 10110 IVPASS = IVPASS + 1 02730817 ! 277: WRITE (NUVI, 80002) IVTNUM 02740817 ! 278: GO TO 0111 02750817 ! 279: 20110 IVFAIL = IVFAIL + 1 02760817 ! 280: ZVCORR = (0.00000000000000, 0.00000000000000) 02770817 ! 281: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 02780817 ! 282: 0111 CONTINUE 02790817 ! 283: C***** 02800817 ! 284: CBB** ********************** BBCSUM0 **********************************02810817 ! 285: C**** WRITE OUT TEST SUMMARY 02820817 ! 286: C**** 02830817 ! 287: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02840817 ! 288: WRITE (I02, 90004) 02850817 ! 289: WRITE (I02, 90014) 02860817 ! 290: WRITE (I02, 90004) 02870817 ! 291: WRITE (I02, 90020) IVPASS 02880817 ! 292: WRITE (I02, 90022) IVFAIL 02890817 ! 293: WRITE (I02, 90024) IVDELE 02900817 ! 294: WRITE (I02, 90026) IVINSP 02910817 ! 295: WRITE (I02, 90028) IVTOTN, IVTOTL 02920817 ! 296: CBE** ********************** BBCSUM0 **********************************02930817 ! 297: CBB** ********************** BBCFOOT0 **********************************02940817 ! 298: C**** WRITE OUT REPORT FOOTINGS 02950817 ! 299: C**** 02960817 ! 300: WRITE (I02,90016) ZPROG, ZPROG 02970817 ! 301: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02980817 ! 302: WRITE (I02,90019) 02990817 ! 303: CBE** ********************** BBCFOOT0 **********************************03000817 ! 304: CBB** ********************** BBCFMT0A **********************************03010817 ! 305: C**** FORMATS FOR TEST DETAIL LINES 03020817 ! 306: C**** 03030817 ! 307: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 03040817 ! 308: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 03050817 ! 309: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 03060817 ! 310: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 03070817 ! 311: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 03080817 ! 312: 1I6,/,1H ,15X,10HCORRECT= ,I6) 03090817 ! 313: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03100817 ! 314: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 03110817 ! 315: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03120817 ! 316: 1A21,/,1H ,16X,10HCORRECT= ,A21) 03130817 ! 317: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 03140817 ! 318: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 03150817 ! 319: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 03160817 ! 320: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 03170817 ! 321: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 03180817 ! 322: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 03190817 ! 323: 80050 FORMAT (1H ,48X,A31) 03200817 ! 324: CBE** ********************** BBCFMT0A **********************************03210817 ! 325: CBB** ********************** BBCFMAT1 **********************************03220817 ! 326: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 03230817 ! 327: C**** 03240817 ! 328: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03250817 ! 329: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 03260817 ! 330: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 03270817 ! 331: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 03280817 ! 332: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 03290817 ! 333: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 03300817 ! 334: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 03310817 ! 335: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 03320817 ! 336: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03330817 ! 337: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 03340817 ! 338: 21H(,F12.5,2H, ,F12.5,1H)) 03350817 ! 339: CBE** ********************** BBCFMAT1 **********************************03360817 ! 340: CBB** ********************** BBCFMT0B **********************************03370817 ! 341: C**** FORMAT STATEMENTS FOR PAGE HEADERS 03380817 ! 342: C**** 03390817 ! 343: 90002 FORMAT (1H1) 03400817 ! 344: 90004 FORMAT (1H ) 03410817 ! 345: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 03420817 ! 346: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03430817 ! 347: 90008 FORMAT (1H ,21X,A13,A17) 03440817 ! 348: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 03450817 ! 349: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 03460817 ! 350: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 03470817 ! 351: 1 7X,7HREMARKS,24X) 03480817 ! 352: 90014 FORMAT (1H ,46H----------------------------------------------, 03490817 ! 353: 1 33H---------------------------------) 03500817 ! 354: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 03510817 ! 355: C**** 03520817 ! 356: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03530817 ! 357: C**** 03540817 ! 358: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 03550817 ! 359: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 03560817 ! 360: 1 A13) 03570817 ! 361: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 03580817 ! 362: C**** 03590817 ! 363: C**** FORMAT STATEMENTS FOR RUN SUMMARY 03600817 ! 364: C**** 03610817 ! 365: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03620817 ! 366: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03630817 ! 367: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03640817 ! 368: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 03650817 ! 369: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 03660817 ! 370: CBE** ********************** BBCFMT0B **********************************03670817 ! 371: C***** 03680817 ! 372: C***** END OF TEST SEGMENT 183 03690817 ! 373: STOP 03700817 ! 374: END 03710817 ! 375: 03720817
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.