![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM803.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 FM803.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***********************************************************************00010803 ! 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 00020803 ! 6: C***** FM803 YCABS - (158) 00030803 ! 7: C***** 00040803 ! 8: C***********************************************************************00050803 ! 9: C***** GENERAL PURPOSE ANS REF 00060803 ! 10: C***** TEST INTRINSIC FUNCTION CABS (ABSOLUTE VALUE OF 15.3 00070803 ! 11: C***** A COMPLEX ARGUMENT) (TABLE 5)00080803 ! 12: C***** 00090803 ! 13: CBB** ********************** BBCCOMNT **********************************00100803 ! 14: C**** 00110803 ! 15: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120803 ! 16: C**** VERSION 2.0 00130803 ! 17: C**** 00140803 ! 18: C**** 00150803 ! 19: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160803 ! 20: C**** GENERAL SERVICES ADMINISTRATION 00170803 ! 21: C**** FEDERAL SOFTWARE TESTING CENTER 00180803 ! 22: C**** 5203 LEESBURG PIKE, SUITE 1100 00190803 ! 23: C**** FALLS CHURCH, VA. 22041 00200803 ! 24: C**** 00210803 ! 25: C**** (703) 756-6153 00220803 ! 26: C**** 00230803 ! 27: CBE** ********************** BBCCOMNT **********************************00240803 ! 28: C***** 00250803 ! 29: C***** S P E C I F I C A T I O N S SEGMENT 158 00260803 ! 30: COMPLEX CPAVC 00270803 ! 31: C***** 00280803 ! 32: CBB** ********************** BBCINITA **********************************00290803 ! 33: C**** SPECIFICATION STATEMENTS 00300803 ! 34: C**** 00310803 ! 35: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00320803 ! 36: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00330803 ! 37: CBE** ********************** BBCINITA **********************************00340803 ! 38: CBB** ********************** BBCINITB **********************************00350803 ! 39: C**** INITIALIZE SECTION 00360803 ! 40: DATA ZVERS, ZVERSD, ZDATE 00370803 ! 41: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00380803 ! 42: DATA ZCOMPL, ZNAME, ZTAPE 00390803 ! 43: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00400803 ! 44: DATA ZPROJ, ZTAPED, ZPROG 00410803 ! 45: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00420803 ! 46: DATA REMRKS /' '/ 00430803 ! 47: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00440803 ! 48: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00450803 ! 49: C**** 00460803 ! 50: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00470803 ! 51: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00480803 ! 52: CZ03 ZPROG = 'PROGRAM NAME' 00490803 ! 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 00560803 ! 60: IVPASS = 0 00570803 ! 61: IVFAIL = 0 00580803 ! 62: IVDELE = 0 00590803 ! 63: IVINSP = 0 00600803 ! 64: IVTOTL = 0 00610803 ! 65: IVTOTN = 0 00620803 ! 66: ICZERO = 0 00630803 ! 67: C 00640803 ! 68: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00650803 ! 69: I01 = 05 00660803 ! 70: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00670803 ! 71: I02 = 06 00680803 ! 72: C 00690803 ! 73: I01 = 5 00700803 ! 74: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00710803 ! 75: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00720803 ! 76: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00730803 ! 77: C 00740803 ! 78: I02 = 6 00750803 ! 79: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00760803 ! 80: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00770803 ! 81: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00780803 ! 82: C 00790803 ! 83: CBE** ********************** BBCINITB **********************************00800803 ! 84: NUVI = I02 00810803 ! 85: IVTOTL = 9 00820803 ! 86: ZPROG = 'FM803' 00830803 ! 87: CBB** ********************** BBCHED0A **********************************00840803 ! 88: C**** 00850803 ! 89: C**** WRITE REPORT TITLE 00860803 ! 90: C**** 00870803 ! 91: WRITE (I02, 90002) 00880803 ! 92: WRITE (I02, 90006) 00890803 ! 93: WRITE (I02, 90007) 00900803 ! 94: WRITE (I02, 90008) ZVERS, ZVERSD 00910803 ! 95: WRITE (I02, 90009) ZPROG, ZPROG 00920803 ! 96: WRITE (I02, 90010) ZDATE, ZCOMPL 00930803 ! 97: CBE** ********************** BBCHED0A **********************************00940803 ! 98: C***** 00950803 ! 99: C***** HEADER FOR SEGMENT 158 WRITTEN 00960803 ! 100: WRITE (NUVI,15801) 00970803 ! 101: 15801 FORMAT (1H , //1X,34HYCABS - (158) INTRINSIC FUNCTION--//16X, 00980803 ! 102: 1 21HCABS (ABSOLUTE VALUE)//2X, 00990803 ! 103: 2 15HANS REF. - 15.3) 01000803 ! 104: CBB** ********************** BBCHED0B **********************************01010803 ! 105: C**** WRITE DETAIL REPORT HEADERS 01020803 ! 106: C**** 01030803 ! 107: WRITE (I02,90004) 01040803 ! 108: WRITE (I02,90004) 01050803 ! 109: WRITE (I02,90013) 01060803 ! 110: WRITE (I02,90014) 01070803 ! 111: WRITE (I02,90015) IVTOTL 01080803 ! 112: CBE** ********************** BBCHED0B **********************************01090803 ! 113: C***** 01100803 ! 114: CT001* TEST 1 COMPLEX VALUE ZERO (0,0) 01110803 ! 115: IVTNUM = 1 01120803 ! 116: RPAVS = CABS((0.0, 0.0)) 01130803 ! 117: IF (RPAVS + .00005) 20010, 10010, 40010 01140803 ! 118: 40010 IF (RPAVS - .00005) 10010, 10010, 20010 01150803 ! 119: 10010 IVPASS = IVPASS + 1 01160803 ! 120: WRITE (NUVI, 80002) IVTNUM 01170803 ! 121: GO TO 0011 01180803 ! 122: 20010 IVFAIL = IVFAIL + 1 01190803 ! 123: RVCORR = 0.0 01200803 ! 124: WRITE (NUVI, 80012) IVTNUM, RPAVS, RVCORR 01210803 ! 125: 0011 CONTINUE 01220803 ! 126: CT002* TEST 2 COMPLEX VALUE HAVING ONLY REAL COMPONENT 01230803 ! 127: IVTNUM = 2 01240803 ! 128: RPAVS = CABS((3.0, 0.0)) 01250803 ! 129: IF (RPAVS - 2.9998) 20020, 10020, 40020 01260803 ! 130: 40020 IF (RPAVS - 3.0002) 10020, 10020, 20020 01270803 ! 131: 10020 IVPASS = IVPASS + 1 01280803 ! 132: WRITE (NUVI, 80002) IVTNUM 01290803 ! 133: GO TO 0021 01300803 ! 134: 20020 IVFAIL = IVFAIL + 1 01310803 ! 135: RVCORR = 3.0 01320803 ! 136: WRITE(NUVI, 80012) IVTNUM, RPAVS, RVCORR 01330803 ! 137: 0021 CONTINUE 01340803 ! 138: CT003* TEST 3 COMPLEX VALUE HAVING ONLY IMAGINARY COMPONENT 01350803 ! 139: IVTNUM = 3 01360803 ! 140: RPAVS = CABS((0.0, 3.0)) 01370803 ! 141: IF (RPAVS - 2.9998) 20030, 10030, 40030 01380803 ! 142: 40030 IF (RPAVS - 3.0002) 10030, 10030, 20030 01390803 ! 143: 10030 IVPASS = IVPASS + 1 01400803 ! 144: WRITE (NUVI, 80002) IVTNUM 01410803 ! 145: GO TO 0031 01420803 ! 146: 20030 IVFAIL = IVFAIL + 1 01430803 ! 147: RVCORR = 3.0 01440803 ! 148: WRITE(NUVI, 80012) IVTNUM, RPAVS, RVCORR 01450803 ! 149: 0031 CONTINUE 01460803 ! 150: CT004* TEST 4 ARBITRARY COMPLEX VALUE 01470803 ! 151: IVTNUM = 4 01480803 ! 152: RPAVS = CABS((3.0, 4.0)) 01490803 ! 153: IF (RPAVS - 4.9997) 20040, 10040, 40040 01500803 ! 154: 40040 IF (RPAVS - 5.0003) 10040, 10040, 20040 01510803 ! 155: 10040 IVPASS = IVPASS + 1 01520803 ! 156: WRITE (NUVI, 80002) IVTNUM 01530803 ! 157: GO TO 0041 01540803 ! 158: 20040 IVFAIL = IVFAIL + 1 01550803 ! 159: RVCORR = 5.0 01560803 ! 160: WRITE(NUVI, 80012) IVTNUM, RPAVS, RVCORR 01570803 ! 161: 0041 CONTINUE 01580803 ! 162: CT005* TEST 5 NEGATIVE REAL COMPONENT, NO IMAGINARY COMPONENT 01590803 ! 163: IVTNUM = 5 01600803 ! 164: RPAVS = CABS((-3.0, 0.0)) 01610803 ! 165: IF (RPAVS - 2.9998) 20050, 10050, 40050 01620803 ! 166: 40050 IF (RPAVS - 3.0002) 10050, 10050, 20050 01630803 ! 167: 10050 IVPASS = IVPASS + 1 01640803 ! 168: WRITE (NUVI, 80002) IVTNUM 01650803 ! 169: GO TO 0051 01660803 ! 170: 20050 IVFAIL = IVFAIL + 1 01670803 ! 171: RVCORR = 3.0 01680803 ! 172: WRITE(NUVI, 80012) IVTNUM, RPAVS, RVCORR 01690803 ! 173: 0051 CONTINUE 01700803 ! 174: CT006* TEST 6 NO REAL COMPONENT, NEGATIVE IMAGINARY COMPONENT 01710803 ! 175: IVTNUM = 6 01720803 ! 176: RPAVS = CABS((0.0, -3.0)) 01730803 ! 177: IF (RPAVS - 2.9998) 20060, 10060, 40060 01740803 ! 178: 40060 IF (RPAVS - 3.0002) 10060, 10060, 20060 01750803 ! 179: 10060 IVPASS = IVPASS + 1 01760803 ! 180: WRITE (NUVI, 80002) IVTNUM 01770803 ! 181: GO TO 0061 01780803 ! 182: 20060 IVFAIL = IVFAIL + 1 01790803 ! 183: RVCORR = 3.0 01800803 ! 184: WRITE(NUVI, 80012) IVTNUM, RPAVS, RVCORR 01810803 ! 185: 0061 CONTINUE 01820803 ! 186: CT007* TEST 7 ARBITRARY COMPLEX VALUE WITH NEGATIVE COMPONENTS 01830803 ! 187: IVTNUM = 7 01840803 ! 188: RPAVS = CABS((-3.0, -4.0)) 01850803 ! 189: IF (RPAVS - 4.9997) 20070, 10070, 40070 01860803 ! 190: 40070 IF (RPAVS - 5.0003) 10070, 10070, 20070 01870803 ! 191: 10070 IVPASS = IVPASS + 1 01880803 ! 192: WRITE (NUVI, 80002) IVTNUM 01890803 ! 193: GO TO 0071 01900803 ! 194: 20070 IVFAIL = IVFAIL + 1 01910803 ! 195: RVCORR = 5.0 01920803 ! 196: WRITE(NUVI, 80012) IVTNUM, RPAVS, RVCORR 01930803 ! 197: 0071 CONTINUE 01940803 ! 198: CT008* TEST 8 COMPLEX VALUE ZERO PRECEDED BY MINUS SIGN 01950803 ! 199: IVTNUM = 8 01960803 ! 200: CPAVC = (0.0, 0.0) 01970803 ! 201: RPAVS = CABS(-CPAVC) 01980803 ! 202: IF (RPAVS + 0.00005) 20080, 10080, 40080 01990803 ! 203: 40080 IF (RPAVS - 0.00005) 10080, 10080, 20080 02000803 ! 204: 10080 IVPASS = IVPASS + 1 02010803 ! 205: WRITE (NUVI, 80002) IVTNUM 02020803 ! 206: GO TO 0081 02030803 ! 207: 20080 IVFAIL = IVFAIL + 1 02040803 ! 208: RVCORR = 0.0 02050803 ! 209: WRITE(NUVI, 80012) IVTNUM, RPAVS, RVCORR 02060803 ! 210: 0081 CONTINUE 02070803 ! 211: CT009* TEST 9 COMPLEX EXPRESSION PRESENTED AS ARGUMENT 02080803 ! 212: IVTNUM = 9 02090803 ! 213: CPAVC = (3.0, 4.0) 02100803 ! 214: RPAVS = CABS(CPAVC - (3.0, 4.0)) 02110803 ! 215: IF (RPAVS + 0.00005) 20090, 10090, 40090 02120803 ! 216: 40090 IF (RPAVS - 0.00005) 10090, 10090, 20090 02130803 ! 217: 10090 IVPASS = IVPASS + 1 02140803 ! 218: WRITE (NUVI, 80002) IVTNUM 02150803 ! 219: GO TO 0091 02160803 ! 220: 20090 IVFAIL = IVFAIL + 1 02170803 ! 221: RVCORR = 0.0 02180803 ! 222: WRITE(NUVI, 80012) IVTNUM, RPAVS, RVCORR 02190803 ! 223: 0091 CONTINUE 02200803 ! 224: C***** 02210803 ! 225: CBB** ********************** BBCSUM0 **********************************02220803 ! 226: C**** WRITE OUT TEST SUMMARY 02230803 ! 227: C**** 02240803 ! 228: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02250803 ! 229: WRITE (I02, 90004) 02260803 ! 230: WRITE (I02, 90014) 02270803 ! 231: WRITE (I02, 90004) 02280803 ! 232: WRITE (I02, 90020) IVPASS 02290803 ! 233: WRITE (I02, 90022) IVFAIL 02300803 ! 234: WRITE (I02, 90024) IVDELE 02310803 ! 235: WRITE (I02, 90026) IVINSP 02320803 ! 236: WRITE (I02, 90028) IVTOTN, IVTOTL 02330803 ! 237: CBE** ********************** BBCSUM0 **********************************02340803 ! 238: CBB** ********************** BBCFOOT0 **********************************02350803 ! 239: C**** WRITE OUT REPORT FOOTINGS 02360803 ! 240: C**** 02370803 ! 241: WRITE (I02,90016) ZPROG, ZPROG 02380803 ! 242: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02390803 ! 243: WRITE (I02,90019) 02400803 ! 244: CBE** ********************** BBCFOOT0 **********************************02410803 ! 245: CBB** ********************** BBCFMT0A **********************************02420803 ! 246: C**** FORMATS FOR TEST DETAIL LINES 02430803 ! 247: C**** 02440803 ! 248: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 02450803 ! 249: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 02460803 ! 250: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 02470803 ! 251: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 02480803 ! 252: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 02490803 ! 253: 1I6,/,1H ,15X,10HCORRECT= ,I6) 02500803 ! 254: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02510803 ! 255: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 02520803 ! 256: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02530803 ! 257: 1A21,/,1H ,16X,10HCORRECT= ,A21) 02540803 ! 258: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 02550803 ! 259: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 02560803 ! 260: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 02570803 ! 261: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 02580803 ! 262: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 02590803 ! 263: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 02600803 ! 264: 80050 FORMAT (1H ,48X,A31) 02610803 ! 265: CBE** ********************** BBCFMT0A **********************************02620803 ! 266: CBB** ********************** BBCFMAT1 **********************************02630803 ! 267: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 02640803 ! 268: C**** 02650803 ! 269: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02660803 ! 270: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 02670803 ! 271: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 02680803 ! 272: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 02690803 ! 273: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 02700803 ! 274: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 02710803 ! 275: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 02720803 ! 276: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 02730803 ! 277: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02740803 ! 278: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 02750803 ! 279: 21H(,F12.5,2H, ,F12.5,1H)) 02760803 ! 280: CBE** ********************** BBCFMAT1 **********************************02770803 ! 281: CBB** ********************** BBCFMT0B **********************************02780803 ! 282: C**** FORMAT STATEMENTS FOR PAGE HEADERS 02790803 ! 283: C**** 02800803 ! 284: 90002 FORMAT (1H1) 02810803 ! 285: 90004 FORMAT (1H ) 02820803 ! 286: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 02830803 ! 287: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 02840803 ! 288: 90008 FORMAT (1H ,21X,A13,A17) 02850803 ! 289: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 02860803 ! 290: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 02870803 ! 291: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 02880803 ! 292: 1 7X,7HREMARKS,24X) 02890803 ! 293: 90014 FORMAT (1H ,46H----------------------------------------------, 02900803 ! 294: 1 33H---------------------------------) 02910803 ! 295: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 02920803 ! 296: C**** 02930803 ! 297: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 02940803 ! 298: C**** 02950803 ! 299: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 02960803 ! 300: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 02970803 ! 301: 1 A13) 02980803 ! 302: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 02990803 ! 303: C**** 03000803 ! 304: C**** FORMAT STATEMENTS FOR RUN SUMMARY 03010803 ! 305: C**** 03020803 ! 306: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03030803 ! 307: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03040803 ! 308: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03050803 ! 309: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 03060803 ! 310: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 03070803 ! 311: CBE** ********************** BBCFMT0B **********************************03080803 ! 312: C***** 03090803 ! 313: C***** END OF TEST SEGMENT 158 03100803 ! 314: STOP 03110803 ! 315: END 03120803 ! 316: 03130803
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.