![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM834.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 FM834.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***********************************************************************00010834 ! 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 00020834 ! 6: C***** FM834 00030834 ! 7: C***** YGEN7 - (212) 00040834 ! 8: C***** 00050834 ! 9: C***********************************************************************00060834 ! 10: C***** GENERAL PURPOSE ANS REF 00070834 ! 11: C***** TEST GENERIC FUNCTIONS 15.3 00080834 ! 12: C***** USES GENERIC FUNCTIONS AS ARGUMENTS TO TABLE 5 00090834 ! 13: C***** OTHER GENERIC FUNCTIONS 00100834 ! 14: C***** 00110834 ! 15: CBB** ********************** BBCCOMNT **********************************00120834 ! 16: C**** 00130834 ! 17: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00140834 ! 18: C**** VERSION 2.0 00150834 ! 19: C**** 00160834 ! 20: C**** 00170834 ! 21: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00180834 ! 22: C**** GENERAL SERVICES ADMINISTRATION 00190834 ! 23: C**** FEDERAL SOFTWARE TESTING CENTER 00200834 ! 24: C**** 5203 LEESBURG PIKE, SUITE 1100 00210834 ! 25: C**** FALLS CHURCH, VA. 22041 00220834 ! 26: C**** 00230834 ! 27: C**** (703) 756-6153 00240834 ! 28: C**** 00250834 ! 29: CBE** ********************** BBCCOMNT **********************************00260834 ! 30: C***** 00270834 ! 31: C***** S P E C I F I C A T I O N S SEGMENT 212 00280834 ! 32: DOUBLE PRECISION AVD, DVCORR 00290834 ! 33: COMPLEX AVC, ZVCORR 00300834 ! 34: REAL R2E(2) 00310834 ! 35: EQUIVALENCE (AVC, R2E) 00320834 ! 36: C***** 00330834 ! 37: CBB** ********************** BBCINITA **********************************00340834 ! 38: C**** SPECIFICATION STATEMENTS 00350834 ! 39: C**** 00360834 ! 40: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00370834 ! 41: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00380834 ! 42: CBE** ********************** BBCINITA **********************************00390834 ! 43: CBB** ********************** BBCINITB **********************************00400834 ! 44: C**** INITIALIZE SECTION 00410834 ! 45: DATA ZVERS, ZVERSD, ZDATE 00420834 ! 46: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00430834 ! 47: DATA ZCOMPL, ZNAME, ZTAPE 00440834 ! 48: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00450834 ! 49: DATA ZPROJ, ZTAPED, ZPROG 00460834 ! 50: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00470834 ! 51: DATA REMRKS /' '/ 00480834 ! 52: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00490834 ! 53: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00500834 ! 54: C**** 00510834 ! 55: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00520834 ! 56: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00530834 ! 57: CZ03 ZPROG = 'PROGRAM NAME' 00540834 ! 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 00610834 ! 65: IVPASS = 0 00620834 ! 66: IVFAIL = 0 00630834 ! 67: IVDELE = 0 00640834 ! 68: IVINSP = 0 00650834 ! 69: IVTOTL = 0 00660834 ! 70: IVTOTN = 0 00670834 ! 71: ICZERO = 0 00680834 ! 72: C 00690834 ! 73: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00700834 ! 74: I01 = 05 00710834 ! 75: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00720834 ! 76: I02 = 06 00730834 ! 77: C 00740834 ! 78: I01 = 5 00750834 ! 79: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00760834 ! 80: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00770834 ! 81: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00780834 ! 82: C 00790834 ! 83: I02 = 6 00800834 ! 84: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00810834 ! 85: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00820834 ! 86: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00830834 ! 87: C 00840834 ! 88: CBE** ********************** BBCINITB **********************************00850834 ! 89: NUVI = I02 00860834 ! 90: IVTOTL = 7 00870834 ! 91: ZPROG = 'FM834' 00880834 ! 92: CBB** ********************** BBCHED0A **********************************00890834 ! 93: C**** 00900834 ! 94: C**** WRITE REPORT TITLE 00910834 ! 95: C**** 00920834 ! 96: WRITE (I02, 90002) 00930834 ! 97: WRITE (I02, 90006) 00940834 ! 98: WRITE (I02, 90007) 00950834 ! 99: WRITE (I02, 90008) ZVERS, ZVERSD 00960834 ! 100: WRITE (I02, 90009) ZPROG, ZPROG 00970834 ! 101: WRITE (I02, 90010) ZDATE, ZCOMPL 00980834 ! 102: CBE** ********************** BBCHED0A **********************************00990834 ! 103: C***** 01000834 ! 104: C***** HEADER FOR SEGMENT 212 01010834 ! 105: WRITE(NUVI,21200) 01020834 ! 106: 21200 FORMAT( 1H , / 35H YGEN7 - (212) GENERIC FUNCTIONS --// 01030834 ! 107: 1 33H AS ARGUMENTS TO OTHER FUNCTIONS// 01040834 ! 108: 2 17H ANS REF. - 15.3) 01050834 ! 109: CBB** ********************** BBCHED0B **********************************01060834 ! 110: C**** WRITE DETAIL REPORT HEADERS 01070834 ! 111: C**** 01080834 ! 112: WRITE (I02,90004) 01090834 ! 113: WRITE (I02,90004) 01100834 ! 114: WRITE (I02,90013) 01110834 ! 115: WRITE (I02,90014) 01120834 ! 116: WRITE (I02,90015) IVTOTL 01130834 ! 117: CBE** ********************** BBCHED0B **********************************01140834 ! 118: C***** 01150834 ! 119: CT001* TEST 1 TEST OF ABS AND MIN WITH INTEGERS 01160834 ! 120: C***** 01170834 ! 121: IVTNUM = 1 01180834 ! 122: LVI = 2 - ABS( MIN( -3, -8)) 01190834 ! 123: IF (LVI + 6) 20010, 10010, 20010 01200834 ! 124: 10010 IVPASS = IVPASS + 1 01210834 ! 125: WRITE (NUVI, 80002) IVTNUM 01220834 ! 126: GO TO 0011 01230834 ! 127: 20010 IVFAIL = IVFAIL + 1 01240834 ! 128: IVCORR = -6 01250834 ! 129: WRITE (NUVI, 80010) IVTNUM, LVI, IVCORR 01260834 ! 130: 0011 CONTINUE 01270834 ! 131: CT002* TEST 2 TEST OF MOD AND SIGN WITH INTEGERS 01280834 ! 132: IVTNUM = 2 01290834 ! 133: LVI = 25 * MOD( SIGN( 14, -2), 3) 01300834 ! 134: IF (LVI + 50) 20020, 10020, 20020 01310834 ! 135: 10020 IVPASS = IVPASS + 1 01320834 ! 136: WRITE (NUVI, 80002) IVTNUM 01330834 ! 137: GO TO 0021 01340834 ! 138: 20020 IVFAIL = IVFAIL + 1 01350834 ! 139: IVCORR = -50 01360834 ! 140: WRITE (NUVI, 80010) IVTNUM, LVI, IVCORR 01370834 ! 141: 0021 CONTINUE 01380834 ! 142: CT003* TEST 3 TEST OF COS AND SQRT WITH REALS 01390834 ! 143: IVTNUM = 3 01400834 ! 144: AVS = 2.0 * COS( 1.25 + SQRT( 3.50)) 01410834 ! 145: IF (AVS + 0.19997E+01) 20030, 10030, 40030 01420834 ! 146: 40030 IF (AVS + 0.19994E+01) 10030, 10030, 20030 01430834 ! 147: 10030 IVPASS = IVPASS + 1 01440834 ! 148: WRITE (NUVI, 80002) IVTNUM 01450834 ! 149: GO TO 0031 01460834 ! 150: 20030 IVFAIL = IVFAIL + 1 01470834 ! 151: RVCORR = -1.9995689 01480834 ! 152: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01490834 ! 153: 0031 CONTINUE 01500834 ! 154: CT004* TEST 4 TEST OF MAX, LOG AND LOG10 WITH REALS 01510834 ! 155: IVTNUM = 4 01520834 ! 156: AVS = MAX( LOG( 274.125), 4.5 * LOG10( 121.75)) 01530834 ! 157: IF (AVS - 0.93841E+01) 20040, 10040, 40040 01540834 ! 158: 40040 IF (AVS - 0.93851E+01) 10040, 10040, 20040 01550834 ! 159: 10040 IVPASS = IVPASS + 1 01560834 ! 160: WRITE (NUVI, 80002) IVTNUM 01570834 ! 161: GO TO 0041 01580834 ! 162: 20040 IVFAIL = IVFAIL + 1 01590834 ! 163: RVCORR = 9.3846103 01600834 ! 164: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01610834 ! 165: 0041 CONTINUE 01620834 ! 166: CT005* TEST 5 TEST OF EXP AND MOD WITH DOUBLE PREC 01630834 ! 167: IVTNUM = 5 01640834 ! 168: AVD = 1.0D0 - EXP(5.25D0 + MOD(76.0D0, 2.5D0)) 01650834 ! 169: IF (AVD + 0.5170128250D+03) 20050, 10050, 40050 01660834 ! 170: 40050 IF (AVD + 0.5170128244D+03) 10050, 10050, 20050 01670834 ! 171: 10050 IVPASS = IVPASS + 1 01680834 ! 172: WRITE (NUVI, 80002) IVTNUM 01690834 ! 173: GO TO 0051 01700834 ! 174: 20050 IVFAIL = IVFAIL + 1 01710834 ! 175: DVCORR = -517.01282466834D0 01720834 ! 176: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01730834 ! 177: 0051 CONTINUE 01740834 ! 178: CT006* TEST 6 TEST OF SINH, ABS, TAN AND ATAN 01750834 ! 179: IVTNUM = 6 01760834 ! 180: AVD = SINH( ABS( TAN( 3.25D0) - ATAN( 1.1D-1)) - 0.01D0) 01770834 ! 181: IF (AVD + 0.9274631705D-02) 20060, 10060, 40060 01780834 ! 182: 40060 IF (AVD + 0.9274631695D-02) 10060, 10060, 20060 01790834 ! 183: 10060 IVPASS = IVPASS + 1 01800834 ! 184: WRITE (NUVI, 80002) IVTNUM 01810834 ! 185: GO TO 0061 01820834 ! 186: 20060 IVFAIL = IVFAIL + 1 01830834 ! 187: DVCORR = -0.92746316996764D-2 01840834 ! 188: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01850834 ! 189: 0061 CONTINUE 01860834 ! 190: CT007* TEST 7 TEST OF EXP WITH COMPLEX AND COS WITH REAL 01870834 ! 191: IVTNUM = 7 01880834 ! 192: AVC = EXP( CMPLX(3.5, COS(0.925))) * CMPLX(1.0, 1.50) 01890834 ! 193: IF (R2E(1) + 0.82578E+00) 20070, 40072, 40071 01900834 ! 194: 40071 IF (R2E(1) + 0.82569E+00) 40072, 40072, 20070 01910834 ! 195: 40072 IF (R2E(2) - 0.59691E+02) 20070, 10070, 40070 01920834 ! 196: 40070 IF (R2E(2) - 0.59697E+02) 10070, 10070, 20070 01930834 ! 197: 10070 IVPASS = IVPASS + 1 01940834 ! 198: WRITE (NUVI, 80002) IVTNUM 01950834 ! 199: GO TO 0071 01960834 ! 200: 20070 IVFAIL = IVFAIL + 1 01970834 ! 201: ZVCORR = (-0.8257397, 59.6940191) 01980834 ! 202: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 01990834 ! 203: 0071 CONTINUE 02000834 ! 204: CBB** ********************** BBCSUM0 **********************************02010834 ! 205: C**** WRITE OUT TEST SUMMARY 02020834 ! 206: C**** 02030834 ! 207: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02040834 ! 208: WRITE (I02, 90004) 02050834 ! 209: WRITE (I02, 90014) 02060834 ! 210: WRITE (I02, 90004) 02070834 ! 211: WRITE (I02, 90020) IVPASS 02080834 ! 212: WRITE (I02, 90022) IVFAIL 02090834 ! 213: WRITE (I02, 90024) IVDELE 02100834 ! 214: WRITE (I02, 90026) IVINSP 02110834 ! 215: WRITE (I02, 90028) IVTOTN, IVTOTL 02120834 ! 216: CBE** ********************** BBCSUM0 **********************************02130834 ! 217: CBB** ********************** BBCFOOT0 **********************************02140834 ! 218: C**** WRITE OUT REPORT FOOTINGS 02150834 ! 219: C**** 02160834 ! 220: WRITE (I02,90016) ZPROG, ZPROG 02170834 ! 221: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02180834 ! 222: WRITE (I02,90019) 02190834 ! 223: CBE** ********************** BBCFOOT0 **********************************02200834 ! 224: CBB** ********************** BBCFMT0A **********************************02210834 ! 225: C**** FORMATS FOR TEST DETAIL LINES 02220834 ! 226: C**** 02230834 ! 227: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 02240834 ! 228: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 02250834 ! 229: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 02260834 ! 230: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 02270834 ! 231: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 02280834 ! 232: 1I6,/,1H ,15X,10HCORRECT= ,I6) 02290834 ! 233: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02300834 ! 234: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 02310834 ! 235: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02320834 ! 236: 1A21,/,1H ,16X,10HCORRECT= ,A21) 02330834 ! 237: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 02340834 ! 238: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 02350834 ! 239: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 02360834 ! 240: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 02370834 ! 241: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 02380834 ! 242: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 02390834 ! 243: 80050 FORMAT (1H ,48X,A31) 02400834 ! 244: CBE** ********************** BBCFMT0A **********************************02410834 ! 245: CBB** ********************** BBCFMAT1 **********************************02420834 ! 246: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 02430834 ! 247: C**** 02440834 ! 248: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02450834 ! 249: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 02460834 ! 250: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 02470834 ! 251: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 02480834 ! 252: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 02490834 ! 253: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 02500834 ! 254: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 02510834 ! 255: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 02520834 ! 256: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02530834 ! 257: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 02540834 ! 258: 21H(,F12.5,2H, ,F12.5,1H)) 02550834 ! 259: CBE** ********************** BBCFMAT1 **********************************02560834 ! 260: CBB** ********************** BBCFMT0B **********************************02570834 ! 261: C**** FORMAT STATEMENTS FOR PAGE HEADERS 02580834 ! 262: C**** 02590834 ! 263: 90002 FORMAT (1H1) 02600834 ! 264: 90004 FORMAT (1H ) 02610834 ! 265: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 02620834 ! 266: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 02630834 ! 267: 90008 FORMAT (1H ,21X,A13,A17) 02640834 ! 268: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 02650834 ! 269: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 02660834 ! 270: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 02670834 ! 271: 1 7X,7HREMARKS,24X) 02680834 ! 272: 90014 FORMAT (1H ,46H----------------------------------------------, 02690834 ! 273: 1 33H---------------------------------) 02700834 ! 274: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 02710834 ! 275: C**** 02720834 ! 276: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 02730834 ! 277: C**** 02740834 ! 278: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 02750834 ! 279: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 02760834 ! 280: 1 A13) 02770834 ! 281: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 02780834 ! 282: C**** 02790834 ! 283: C**** FORMAT STATEMENTS FOR RUN SUMMARY 02800834 ! 284: C**** 02810834 ! 285: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 02820834 ! 286: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 02830834 ! 287: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 02840834 ! 288: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 02850834 ! 289: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 02860834 ! 290: CBE** ********************** BBCFMT0B **********************************02870834 ! 291: C***** 02880834 ! 292: C***** END OF TEST SEGMENT 212 02890834 ! 293: STOP 02900834 ! 294: END 02910834
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.