![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM379.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 FM379.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***********************************************************************00010379 ! 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 00020379 ! 6: C***** FM379 00030379 ! 7: C***** XRFOR - (201) 00040379 ! 8: C***** 00050379 ! 9: C***********************************************************************00060379 ! 10: C***** GENERAL PURPOSE SUBSET REF 00070379 ! 11: C***** TEST TRIGONOMETRIC FORMULAE 15.3 00080379 ! 12: C***** TABLE 5 00090379 ! 13: C***** 00100379 ! 14: CBB** ********************** BBCCOMNT **********************************00110379 ! 15: C**** 00120379 ! 16: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130379 ! 17: C**** VERSION 2.0 00140379 ! 18: C**** 00150379 ! 19: C**** 00160379 ! 20: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170379 ! 21: C**** GENERAL SERVICES ADMINISTRATION 00180379 ! 22: C**** FEDERAL SOFTWARE TESTING CENTER 00190379 ! 23: C**** 5203 LEESBURG PIKE, SUITE 1100 00200379 ! 24: C**** FALLS CHURCH, VA. 22041 00210379 ! 25: C**** 00220379 ! 26: C**** (703) 756-6153 00230379 ! 27: C**** 00240379 ! 28: CBE** ********************** BBCCOMNT **********************************00250379 ! 29: CBB** ********************** BBCINITA **********************************00260379 ! 30: C**** SPECIFICATION STATEMENTS 00270379 ! 31: C**** 00280379 ! 32: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00290379 ! 33: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00300379 ! 34: CBE** ********************** BBCINITA **********************************00310379 ! 35: CBB** ********************** BBCINITB **********************************00320379 ! 36: C**** INITIALIZE SECTION 00330379 ! 37: DATA ZVERS, ZVERSD, ZDATE 00340379 ! 38: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00350379 ! 39: DATA ZCOMPL, ZNAME, ZTAPE 00360379 ! 40: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00370379 ! 41: DATA ZPROJ, ZTAPED, ZPROG 00380379 ! 42: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00390379 ! 43: DATA REMRKS /' '/ 00400379 ! 44: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00410379 ! 45: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00420379 ! 46: C**** 00430379 ! 47: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00440379 ! 48: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00450379 ! 49: CZ03 ZPROG = 'PROGRAM NAME' 00460379 ! 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 00530379 ! 57: IVPASS = 0 00540379 ! 58: IVFAIL = 0 00550379 ! 59: IVDELE = 0 00560379 ! 60: IVINSP = 0 00570379 ! 61: IVTOTL = 0 00580379 ! 62: IVTOTN = 0 00590379 ! 63: ICZERO = 0 00600379 ! 64: C 00610379 ! 65: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00620379 ! 66: I01 = 05 00630379 ! 67: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00640379 ! 68: I02 = 06 00650379 ! 69: C 00660379 ! 70: I01 = 5 00670379 ! 71: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00680379 ! 72: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00690379 ! 73: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00700379 ! 74: C 00710379 ! 75: I02 = 6 00720379 ! 76: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00730379 ! 77: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00740379 ! 78: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00750379 ! 79: C 00760379 ! 80: CBE** ********************** BBCINITB **********************************00770379 ! 81: NUVI = I02 00780379 ! 82: IVTOTL = 10 00790379 ! 83: ZPROG = 'FM379' 00800379 ! 84: CBB** ********************** BBCHED0A **********************************00810379 ! 85: C**** 00820379 ! 86: C**** WRITE REPORT TITLE 00830379 ! 87: C**** 00840379 ! 88: WRITE (I02, 90002) 00850379 ! 89: WRITE (I02, 90006) 00860379 ! 90: WRITE (I02, 90007) 00870379 ! 91: WRITE (I02, 90008) ZVERS, ZVERSD 00880379 ! 92: WRITE (I02, 90009) ZPROG, ZPROG 00890379 ! 93: WRITE (I02, 90010) ZDATE, ZCOMPL 00900379 ! 94: CBE** ********************** BBCHED0A **********************************00910379 ! 95: C***** 00920379 ! 96: C***** HEADER FOR SEGMENT 201 00930379 ! 97: WRITE(NUVI,20101) 00940379 ! 98: 20101 FORMAT(1H , / 35H XRFOR - (201) INTRINSIC FUNCTIONS// 00950379 ! 99: 1 24H TRIGONOMETRIC FORMULAE// 00960379 ! 100: 2 20H SUBSET REF. - 15.3) 00970379 ! 101: CBB** ********************** BBCHED0B **********************************00980379 ! 102: C**** WRITE DETAIL REPORT HEADERS 00990379 ! 103: C**** 01000379 ! 104: WRITE (I02,90004) 01010379 ! 105: WRITE (I02,90004) 01020379 ! 106: WRITE (I02,90013) 01030379 ! 107: WRITE (I02,90014) 01040379 ! 108: WRITE (I02,90015) IVTOTL 01050379 ! 109: CBE** ********************** BBCHED0B **********************************01060379 ! 110: C***** 01070379 ! 111: PIVS = 3.1415926535897932384626434 01080379 ! 112: C***** 01090379 ! 113: CT001* TEST 1 LN(EXP(X)) = 1 01100379 ! 114: IVTNUM = 1 01110379 ! 115: BVS = 17.5 01120379 ! 116: AVS = ALOG(EXP(1.75)) - BVS / 10.0 01130379 ! 117: IF (AVS + 0.50000E-04) 20010, 10010, 40010 01140379 ! 118: 40010 IF (AVS - 0.50000E-04) 10010, 10010, 20010 01150379 ! 119: 10010 IVPASS = IVPASS + 1 01160379 ! 120: WRITE (NUVI, 80002) IVTNUM 01170379 ! 121: GO TO 0011 01180379 ! 122: 20010 IVFAIL = IVFAIL + 1 01190379 ! 123: RVCORR = 0.0000 01200379 ! 124: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01210379 ! 125: 0011 CONTINUE 01220379 ! 126: CT002* TEST 2 SIN**2 + COS**2 = 1 01230379 ! 127: IVTNUM = 2 01240379 ! 128: BVS = 10.0 / 4.0 01250379 ! 129: CVS = SIN(BVS) ** 2 01260379 ! 130: DVS = COS(BVS) ** 2 01270379 ! 131: AVS = CVS + DVS - 1.0 01280379 ! 132: IF (AVS + 0.50000E-04) 20020, 10020, 40020 01290379 ! 133: 40020 IF (AVS - 0.50000E-04) 10020, 10020, 20020 01300379 ! 134: 10020 IVPASS = IVPASS + 1 01310379 ! 135: WRITE (NUVI, 80002) IVTNUM 01320379 ! 136: GO TO 0021 01330379 ! 137: 20020 IVFAIL = IVFAIL + 1 01340379 ! 138: RVCORR = 0.0000 01350379 ! 139: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01360379 ! 140: 0021 CONTINUE 01370379 ! 141: CT003* TEST 3 SIN(2X) = 2*SIN(X)*COS(X) 01380379 ! 142: IVTNUM = 3 01390379 ! 143: BVS = 8.5 01400379 ! 144: CVS = BVS * (-0.5) 01410379 ! 145: AVS = (SIN(-4.25) * COS(CVS)) * 2.0 - SIN(-8.5) 01420379 ! 146: IF (AVS + 0.50000E-04) 20030, 10030, 40030 01430379 ! 147: 40030 IF (AVS - 0.50000E-04) 10030, 10030, 20030 01440379 ! 148: 10030 IVPASS = IVPASS + 1 01450379 ! 149: WRITE (NUVI, 80002) IVTNUM 01460379 ! 150: GO TO 0031 01470379 ! 151: 20030 IVFAIL = IVFAIL + 1 01480379 ! 152: RVCORR = 0.0000 01490379 ! 153: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01500379 ! 154: 0031 CONTINUE 01510379 ! 155: CT004* TEST 4 ARCSIN(X) = ARCCOS(1-X**2) 01520379 ! 156: IVTNUM = 4 01530379 ! 157: AVS = ASIN(-0.875) + ACOS(SQRT(1.0 - (0.875) ** 2)) 01540379 ! 158: IF (AVS + 0.50000E-04) 20040, 10040, 40040 01550379 ! 159: 40040 IF (AVS - 0.50000E-04) 10040, 10040, 20040 01560379 ! 160: 10040 IVPASS = IVPASS + 1 01570379 ! 161: WRITE (NUVI, 80002) IVTNUM 01580379 ! 162: GO TO 0041 01590379 ! 163: 20040 IVFAIL = IVFAIL + 1 01600379 ! 164: RVCORR = 0.0000 01610379 ! 165: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01620379 ! 166: 0041 CONTINUE 01630379 ! 167: CT005* TEST 5 TAN(X)**2 - 1 = -COS(2X)/COS(X)**2 01640379 ! 168: IVTNUM = 5 01650379 ! 169: BVS = 7.0 01660379 ! 170: AVS = COS(1.75) / COS(BVS / 8.0) ** 2 + TAN(0.875) ** 2 - 01670379 ! 171: 1 1 01680379 ! 172: IF (AVS + 0.50000E-04) 20050, 10050, 40050 01690379 ! 173: 40050 IF (AVS - 0.50000E-04) 10050, 10050, 20050 01700379 ! 174: 10050 IVPASS = IVPASS + 1 01710379 ! 175: WRITE (NUVI, 80002) IVTNUM 01720379 ! 176: GO TO 0051 01730379 ! 177: 20050 IVFAIL = IVFAIL + 1 01740379 ! 178: RVCORR = 0.0000 01750379 ! 179: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01760379 ! 180: 0051 CONTINUE 01770379 ! 181: CT006* TEST 6 ATAN(X/Y) = ATAN2(X,Y), Y > 0 01780379 ! 182: IVTNUM = 6 01790379 ! 183: BVS = 12.0 01800379 ! 184: CVS = ATAN2(BVS / 4.0, BVS / 3.0) 01810379 ! 185: AVS = CVS - ATAN(0.75) 01820379 ! 186: IF (AVS + 0.50000E-04) 20060, 10060, 40060 01830379 ! 187: 40060 IF (AVS - 0.50000E-04) 10060, 10060, 20060 01840379 ! 188: 10060 IVPASS = IVPASS + 1 01850379 ! 189: WRITE (NUVI, 80002) IVTNUM 01860379 ! 190: GO TO 0061 01870379 ! 191: 20060 IVFAIL = IVFAIL + 1 01880379 ! 192: RVCORR = 0.0000 01890379 ! 193: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01900379 ! 194: 0061 CONTINUE 01910379 ! 195: CT007* TEST 7 SQRT(X)**2 = X 01920379 ! 196: IVTNUM = 7 01930379 ! 197: AVS = SQRT(9.125) ** 2 - 9.125 01940379 ! 198: IF (AVS + 0.50000E-04) 20070, 10070, 40070 01950379 ! 199: 40070 IF (AVS - 0.50000E-04) 10070, 10070, 20070 01960379 ! 200: 10070 IVPASS = IVPASS + 1 01970379 ! 201: WRITE (NUVI, 80002) IVTNUM 01980379 ! 202: GO TO 0071 01990379 ! 203: 20070 IVFAIL = IVFAIL + 1 02000379 ! 204: RVCORR = 0.0000 02010379 ! 205: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02020379 ! 206: 0071 CONTINUE 02030379 ! 207: CT008* TEST 8 LN(X) = LN(10) * LOG10(X) 02040379 ! 208: IVTNUM = 8 02050379 ! 209: BVS = 62.5 / 1000.0 02060379 ! 210: AVS = ALOG10(BVS) * ALOG(10.0) - ALOG(0.0625) 02070379 ! 211: IF (AVS + 0.50000E-04) 20080, 10080, 40080 02080379 ! 212: 40080 IF (AVS - 0.50000E-04) 10080, 10080, 20080 02090379 ! 213: 10080 IVPASS = IVPASS + 1 02100379 ! 214: WRITE (NUVI, 80002) IVTNUM 02110379 ! 215: GO TO 0081 02120379 ! 216: 20080 IVFAIL = IVFAIL + 1 02130379 ! 217: RVCORR = 0.0000 02140379 ! 218: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02150379 ! 219: 0081 CONTINUE 02160379 ! 220: CT009* TEST 9 COSH**2 - SINH**2 = 1 02170379 ! 221: IVTNUM = 9 02180379 ! 222: BVS = 0.125 02190379 ! 223: CVS = SINH(2.125) 02200379 ! 224: DVS = COSH(2.0 + BVS) 02210379 ! 225: AVS = DVS ** 2 - CVS ** 2 - COSH(0.0) 02220379 ! 226: IF (AVS + 0.50000E-04) 20090, 10090, 40090 02230379 ! 227: 40090 IF (AVS - 0.50000E-04) 10090, 10090, 20090 02240379 ! 228: 10090 IVPASS = IVPASS + 1 02250379 ! 229: WRITE (NUVI, 80002) IVTNUM 02260379 ! 230: GO TO 0091 02270379 ! 231: 20090 IVFAIL = IVFAIL + 1 02280379 ! 232: RVCORR = 0.0000 02290379 ! 233: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02300379 ! 234: 0091 CONTINUE 02310379 ! 235: CT010* TEST 10 TANH(X) = 1 - 2/(EXP(2X)+1) 02320379 ! 236: IVTNUM = 10 02330379 ! 237: BVS = 5.0 02340379 ! 238: CVS = 2.0 02350379 ! 239: DVS = ALOG10(BVS * CVS) - SQRT(4.0) / 02360379 ! 240: 1 (EXP(2.0 * (BVS - CVS)) + COS(0.0)) 02370379 ! 241: AVS = DVS - TANH(3.0) 02380379 ! 242: IF (AVS + 0.50000E-04) 20100, 10100, 40100 02390379 ! 243: 40100 IF (AVS - 0.50000E-04) 10100, 10100, 20100 02400379 ! 244: 10100 IVPASS = IVPASS + 1 02410379 ! 245: WRITE (NUVI, 80002) IVTNUM 02420379 ! 246: GO TO 0101 02430379 ! 247: 20100 IVFAIL = IVFAIL + 1 02440379 ! 248: RVCORR = 0.0000 02450379 ! 249: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02460379 ! 250: 0101 CONTINUE 02470379 ! 251: C***** 02480379 ! 252: CBB** ********************** BBCSUM0 **********************************02490379 ! 253: C**** WRITE OUT TEST SUMMARY 02500379 ! 254: C**** 02510379 ! 255: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02520379 ! 256: WRITE (I02, 90004) 02530379 ! 257: WRITE (I02, 90014) 02540379 ! 258: WRITE (I02, 90004) 02550379 ! 259: WRITE (I02, 90020) IVPASS 02560379 ! 260: WRITE (I02, 90022) IVFAIL 02570379 ! 261: WRITE (I02, 90024) IVDELE 02580379 ! 262: WRITE (I02, 90026) IVINSP 02590379 ! 263: WRITE (I02, 90028) IVTOTN, IVTOTL 02600379 ! 264: CBE** ********************** BBCSUM0 **********************************02610379 ! 265: CBB** ********************** BBCFOOT0 **********************************02620379 ! 266: C**** WRITE OUT REPORT FOOTINGS 02630379 ! 267: C**** 02640379 ! 268: WRITE (I02,90016) ZPROG, ZPROG 02650379 ! 269: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02660379 ! 270: WRITE (I02,90019) 02670379 ! 271: CBE** ********************** BBCFOOT0 **********************************02680379 ! 272: CBB** ********************** BBCFMT0A **********************************02690379 ! 273: C**** FORMATS FOR TEST DETAIL LINES 02700379 ! 274: C**** 02710379 ! 275: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 02720379 ! 276: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 02730379 ! 277: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 02740379 ! 278: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 02750379 ! 279: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 02760379 ! 280: 1I6,/,1H ,15X,10HCORRECT= ,I6) 02770379 ! 281: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02780379 ! 282: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 02790379 ! 283: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02800379 ! 284: 1A21,/,1H ,16X,10HCORRECT= ,A21) 02810379 ! 285: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 02820379 ! 286: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 02830379 ! 287: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 02840379 ! 288: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 02850379 ! 289: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 02860379 ! 290: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 02870379 ! 291: 80050 FORMAT (1H ,48X,A31) 02880379 ! 292: CBE** ********************** BBCFMT0A **********************************02890379 ! 293: CBB** ********************** BBCFMT0B **********************************02900379 ! 294: C**** FORMAT STATEMENTS FOR PAGE HEADERS 02910379 ! 295: C**** 02920379 ! 296: 90002 FORMAT (1H1) 02930379 ! 297: 90004 FORMAT (1H ) 02940379 ! 298: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 02950379 ! 299: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 02960379 ! 300: 90008 FORMAT (1H ,21X,A13,A17) 02970379 ! 301: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 02980379 ! 302: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 02990379 ! 303: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 03000379 ! 304: 1 7X,7HREMARKS,24X) 03010379 ! 305: 90014 FORMAT (1H ,46H----------------------------------------------, 03020379 ! 306: 1 33H---------------------------------) 03030379 ! 307: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 03040379 ! 308: C**** 03050379 ! 309: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03060379 ! 310: C**** 03070379 ! 311: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 03080379 ! 312: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 03090379 ! 313: 1 A13) 03100379 ! 314: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 03110379 ! 315: C**** 03120379 ! 316: C**** FORMAT STATEMENTS FOR RUN SUMMARY 03130379 ! 317: C**** 03140379 ! 318: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03150379 ! 319: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03160379 ! 320: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03170379 ! 321: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 03180379 ! 322: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 03190379 ! 323: CBE** ********************** BBCFMT0B **********************************03200379 ! 324: C***** 03210379 ! 325: C***** END OF TEST SEGMENT 201 03220379 ! 326: STOP 03230379 ! 327: END 03240379 ! 328: 03250379
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.