![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM356.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 FM356.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***********************************************************************00010356 ! 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 00020356 ! 6: C***** FM356 XABS - (156) 00030356 ! 7: C***** 00040356 ! 8: C***********************************************************************00050356 ! 9: C***** GENERAL PURPOSE SUBSET REF00060356 ! 10: C***** TEST INTRINSIC FUNCTION ABS,IABS (ABSOLUTE VALUE) 15.3 00070356 ! 11: C***** (TABLE 5)00080356 ! 12: C***** 00090356 ! 13: CBB** ********************** BBCCOMNT **********************************00100356 ! 14: C**** 00110356 ! 15: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120356 ! 16: C**** VERSION 2.0 00130356 ! 17: C**** 00140356 ! 18: C**** 00150356 ! 19: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160356 ! 20: C**** GENERAL SERVICES ADMINISTRATION 00170356 ! 21: C**** FEDERAL SOFTWARE TESTING CENTER 00180356 ! 22: C**** 5203 LEESBURG PIKE, SUITE 1100 00190356 ! 23: C**** FALLS CHURCH, VA. 22041 00200356 ! 24: C**** 00210356 ! 25: C**** (703) 756-6153 00220356 ! 26: C**** 00230356 ! 27: CBE** ********************** BBCCOMNT **********************************00240356 ! 28: CBB** ********************** BBCINITA **********************************00250356 ! 29: C**** SPECIFICATION STATEMENTS 00260356 ! 30: C**** 00270356 ! 31: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00280356 ! 32: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00290356 ! 33: CBE** ********************** BBCINITA **********************************00300356 ! 34: CBB** ********************** BBCINITB **********************************00310356 ! 35: C**** INITIALIZE SECTION 00320356 ! 36: DATA ZVERS, ZVERSD, ZDATE 00330356 ! 37: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00340356 ! 38: DATA ZCOMPL, ZNAME, ZTAPE 00350356 ! 39: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00360356 ! 40: DATA ZPROJ, ZTAPED, ZPROG 00370356 ! 41: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00380356 ! 42: DATA REMRKS /' '/ 00390356 ! 43: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00400356 ! 44: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00410356 ! 45: C**** 00420356 ! 46: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00430356 ! 47: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00440356 ! 48: CZ03 ZPROG = 'PROGRAM NAME' 00450356 ! 49: ZDATE = '07-Nov-85 ' *RP ! 50: ZCOMPL = 'CCI 5.2 ' *RP ! 51: ZPROJ = 'TC-85- -410' *RP ! 52: ZNAME = ' ' *RP ! 53: ZTAPE = ' ' *RP ! 54: ZTAPED = '850703 ' *RP ! 55: C 00520356 ! 56: IVPASS = 0 00530356 ! 57: IVFAIL = 0 00540356 ! 58: IVDELE = 0 00550356 ! 59: IVINSP = 0 00560356 ! 60: IVTOTL = 0 00570356 ! 61: IVTOTN = 0 00580356 ! 62: ICZERO = 0 00590356 ! 63: C 00600356 ! 64: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00610356 ! 65: I01 = 05 00620356 ! 66: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00630356 ! 67: I02 = 06 00640356 ! 68: C 00650356 ! 69: I01 = 5 00660356 ! 70: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00670356 ! 71: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00680356 ! 72: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00690356 ! 73: C 00700356 ! 74: I02 = 6 00710356 ! 75: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00720356 ! 76: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00730356 ! 77: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00740356 ! 78: C 00750356 ! 79: CBE** ********************** BBCINITB **********************************00760356 ! 80: NUVI = I02 00770356 ! 81: IVTOTL = 10 00780356 ! 82: ZPROG = 'FM356' 00790356 ! 83: CBB** ********************** BBCHED0A **********************************00800356 ! 84: C**** 00810356 ! 85: C**** WRITE REPORT TITLE 00820356 ! 86: C**** 00830356 ! 87: WRITE (I02, 90002) 00840356 ! 88: WRITE (I02, 90006) 00850356 ! 89: WRITE (I02, 90007) 00860356 ! 90: WRITE (I02, 90008) ZVERS, ZVERSD 00870356 ! 91: WRITE (I02, 90009) ZPROG, ZPROG 00880356 ! 92: WRITE (I02, 90010) ZDATE, ZCOMPL 00890356 ! 93: CBE** ********************** BBCHED0A **********************************00900356 ! 94: C***** 00910356 ! 95: C***** HEADER FOR SEGMENT 156 00920356 ! 96: WRITE(NUVI,15601) 00930356 ! 97: 15601 FORMAT( 1H , // 36H XABS - (156) INTRINSIC FUNCTIONS--// 11X, 00940356 ! 98: 1 26HABS, IABS (ABSOLUTE VALUE)// 00950356 ! 99: 2 20H SUBSET REF. - 15.3) 00960356 ! 100: CBB** ********************** BBCHED0B **********************************00970356 ! 101: C**** WRITE DETAIL REPORT HEADERS 00980356 ! 102: C**** 00990356 ! 103: WRITE (I02,90004) 01000356 ! 104: WRITE (I02,90004) 01010356 ! 105: WRITE (I02,90013) 01020356 ! 106: WRITE (I02,90014) 01030356 ! 107: WRITE (I02,90015) IVTOTL 01040356 ! 108: CBE** ********************** BBCHED0B **********************************01050356 ! 109: C***** 01060356 ! 110: C***** TEST OF ABS 01070356 ! 111: C***** 01080356 ! 112: WRITE(NUVI, 15602) 01090356 ! 113: 15602 FORMAT (/ 8X, 11HTEST OF ABS) 01100356 ! 114: CT001* TEST 1 THE VALUE ZERO 01110356 ! 115: IVTNUM = 1 01120356 ! 116: RDDVS = 0.0 01130356 ! 117: RDAVS = ABS(RDDVS) 01140356 ! 118: IF (RDAVS + .00005) 20010, 10010, 40010 01150356 ! 119: 40010 IF (RDAVS - .00005) 10010, 10010, 20010 01160356 ! 120: 10010 IVPASS = IVPASS + 1 01170356 ! 121: WRITE (NUVI, 80002) IVTNUM 01180356 ! 122: GO TO 0011 01190356 ! 123: 20010 IVFAIL = IVFAIL + 1 01200356 ! 124: RVCORR = 0.0 01210356 ! 125: WRITE (NUVI, 80012) IVTNUM, RDAVS, RVCORR 01220356 ! 126: 0011 CONTINUE 01230356 ! 127: CT002* TEST 2 ZERO PREFIXED WITH A MINUS SIGN 01240356 ! 128: IVTNUM = 2 01250356 ! 129: RDDVS = 0.0 01260356 ! 130: RDAVS = ABS(-RDDVS) 01270356 ! 131: IF (RDAVS + .00005) 20020, 10020, 40020 01280356 ! 132: 40020 IF (RDAVS - .00005) 10020, 10020, 20020 01290356 ! 133: 10020 IVPASS = IVPASS + 1 01300356 ! 134: WRITE (NUVI, 80002) IVTNUM 01310356 ! 135: GO TO 0021 01320356 ! 136: 20020 IVFAIL = IVFAIL + 1 01330356 ! 137: RVCORR = 0.0 01340356 ! 138: WRITE (NUVI, 80012) IVTNUM, RDAVS, RVCORR 01350356 ! 139: 0021 CONTINUE 01360356 ! 140: CT003* TEST 3 A POSITIVE NON-INTEGRAL VALUE 01370356 ! 141: IVTNUM = 3 01380356 ! 142: RDDVS = 35.875 01390356 ! 143: RDAVS = ABS(RDDVS) 01400356 ! 144: IF (RDAVS - 35.873) 20030, 10030, 40030 01410356 ! 145: 40030 IF (RDAVS - 35.877) 10030, 10030, 20030 01420356 ! 146: 10030 IVPASS = IVPASS + 1 01430356 ! 147: WRITE (NUVI, 80002) IVTNUM 01440356 ! 148: GO TO 0031 01450356 ! 149: 20030 IVFAIL = IVFAIL + 1 01460356 ! 150: RVCORR = 35.875 01470356 ! 151: WRITE (NUVI, 80012) IVTNUM, RDAVS, RVCORR 01480356 ! 152: 0031 CONTINUE 01490356 ! 153: CT004* TEST 4 A NEGATIVE NON-INTEGRAL VALUE 01500356 ! 154: IVTNUM = 4 01510356 ! 155: RDBVS = -35.875 01520356 ! 156: RDAVS = ABS(RDBVS) 01530356 ! 157: IF (RDAVS - 35.873) 20040, 10040, 40040 01540356 ! 158: 40040 IF (RDAVS - 35.877) 10040, 10040, 20040 01550356 ! 159: 10040 IVPASS = IVPASS + 1 01560356 ! 160: WRITE (NUVI, 80002) IVTNUM 01570356 ! 161: GO TO 0041 01580356 ! 162: 20040 IVFAIL = IVFAIL + 1 01590356 ! 163: RVCORR = 35.875 01600356 ! 164: WRITE (NUVI, 80012) IVTNUM, RDAVS, RVCORR 01610356 ! 165: 0041 CONTINUE 01620356 ! 166: CT005* TEST 5 ARITHMETIC EXPRESSION PRESENTED TO FUNCTION 01630356 ! 167: IVTNUM = 5 01640356 ! 168: RDDVS = 2.625 01650356 ! 169: RDEVS = 3.0 01660356 ! 170: RDAVS = ABS(-RDDVS - RDEVS ** 3) 01670356 ! 171: IF (RDAVS - 29.623) 20050, 10050, 40050 01680356 ! 172: 40050 IF (RDAVS - 29.627) 10050, 10050, 20050 01690356 ! 173: 10050 IVPASS = IVPASS + 1 01700356 ! 174: WRITE (NUVI, 80002) IVTNUM 01710356 ! 175: GO TO 0051 01720356 ! 176: 20050 IVFAIL = IVFAIL + 1 01730356 ! 177: RVCORR = 29.625 01740356 ! 178: WRITE (NUVI, 80012) IVTNUM, RDAVS, RVCORR 01750356 ! 179: 0051 CONTINUE 01760356 ! 180: C***** 01770356 ! 181: C***** TEST OF IABS 01780356 ! 182: C***** 01790356 ! 183: WRITE(NUVI, 15604) 01800356 ! 184: 15604 FORMAT (/ 8X, 12HTEST OF IABS) 01810356 ! 185: C***** 01820356 ! 186: CT006* TEST 6 THE VALUE ZERO 01830356 ! 187: IVTNUM = 6 01840356 ! 188: IDDVI = 0 01850356 ! 189: IDAVI = IABS(IDDVI) 01860356 ! 190: IF (IDAVI - 0) 20060, 10060, 20060 01870356 ! 191: 10060 IVPASS = IVPASS + 1 01880356 ! 192: WRITE (NUVI, 80002) IVTNUM 01890356 ! 193: GO TO 0061 01900356 ! 194: 20060 IVFAIL = IVFAIL + 1 01910356 ! 195: IVCORR = 0 01920356 ! 196: WRITE (NUVI, 80010) IVTNUM, IDAVI, IVCORR 01930356 ! 197: 0061 CONTINUE 01940356 ! 198: CT007* TEST 7 ZERO PREFIXED WITH A MINUS SIGN 01950356 ! 199: IVTNUM = 7 01960356 ! 200: IDDVI = 0 01970356 ! 201: IDAVI = IABS(-IDDVI) 01980356 ! 202: IF (IDAVI - 0) 20070, 10070, 20070 01990356 ! 203: 10070 IVPASS = IVPASS + 1 02000356 ! 204: WRITE (NUVI, 80002) IVTNUM 02010356 ! 205: GO TO 0071 02020356 ! 206: 20070 IVFAIL = IVFAIL + 1 02030356 ! 207: IVCORR = 0 02040356 ! 208: WRITE (NUVI, 80010) IVTNUM, IDAVI, IVCORR 02050356 ! 209: 0071 CONTINUE 02060356 ! 210: CT008* TEST 8 A POSITIVE INTEGER 02070356 ! 211: IVTNUM = 8 02080356 ! 212: IDBVI = 73 02090356 ! 213: IDAVI = IABS(IDBVI) 02100356 ! 214: IF (IDAVI - 73) 20080, 10080, 20080 02110356 ! 215: 10080 IVPASS = IVPASS + 1 02120356 ! 216: WRITE (NUVI, 80002) IVTNUM 02130356 ! 217: GO TO 0081 02140356 ! 218: 20080 IVFAIL = IVFAIL + 1 02150356 ! 219: IVCORR = 73 02160356 ! 220: WRITE (NUVI, 80010) IVTNUM, IDAVI, IVCORR 02170356 ! 221: 0081 CONTINUE 02180356 ! 222: CT009* TEST 9 A NEGATIVE INTEGER 02190356 ! 223: IVTNUM = 9 02200356 ! 224: IDDVI = -10 02210356 ! 225: IDAVI = IABS(IDDVI) 02220356 ! 226: IF (IDAVI - 10) 20090, 10090, 20090 02230356 ! 227: 10090 IVPASS = IVPASS + 1 02240356 ! 228: WRITE (NUVI, 80002) IVTNUM 02250356 ! 229: GO TO 0091 02260356 ! 230: 20090 IVFAIL = IVFAIL + 1 02270356 ! 231: IVCORR = 10 02280356 ! 232: WRITE (NUVI, 80010) IVTNUM, IDAVI, IVCORR 02290356 ! 233: 0091 CONTINUE 02300356 ! 234: CT010* TEST 10 ARITHMETIC EXPRESSION PRESENTED TO FUNCTION 02310356 ! 235: IVTNUM = 10 02320356 ! 236: IDDVI = -3 02330356 ! 237: IDAVI = IABS(IDDVI ** 3) 02340356 ! 238: IF (IDAVI - 27) 20100, 10100, 20100 02350356 ! 239: 10100 IVPASS = IVPASS + 1 02360356 ! 240: WRITE (NUVI, 80002) IVTNUM 02370356 ! 241: GO TO 0101 02380356 ! 242: 20100 IVFAIL = IVFAIL + 1 02390356 ! 243: IVCORR = 27 02400356 ! 244: WRITE (NUVI, 80010) IVTNUM, IDAVI, IVCORR 02410356 ! 245: 0101 CONTINUE 02420356 ! 246: C***** 02430356 ! 247: CBB** ********************** BBCSUM0 **********************************02440356 ! 248: C**** WRITE OUT TEST SUMMARY 02450356 ! 249: C**** 02460356 ! 250: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02470356 ! 251: WRITE (I02, 90004) 02480356 ! 252: WRITE (I02, 90014) 02490356 ! 253: WRITE (I02, 90004) 02500356 ! 254: WRITE (I02, 90020) IVPASS 02510356 ! 255: WRITE (I02, 90022) IVFAIL 02520356 ! 256: WRITE (I02, 90024) IVDELE 02530356 ! 257: WRITE (I02, 90026) IVINSP 02540356 ! 258: WRITE (I02, 90028) IVTOTN, IVTOTL 02550356 ! 259: CBE** ********************** BBCSUM0 **********************************02560356 ! 260: CBB** ********************** BBCFOOT0 **********************************02570356 ! 261: C**** WRITE OUT REPORT FOOTINGS 02580356 ! 262: C**** 02590356 ! 263: WRITE (I02,90016) ZPROG, ZPROG 02600356 ! 264: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02610356 ! 265: WRITE (I02,90019) 02620356 ! 266: CBE** ********************** BBCFOOT0 **********************************02630356 ! 267: CBB** ********************** BBCFMT0A **********************************02640356 ! 268: C**** FORMATS FOR TEST DETAIL LINES 02650356 ! 269: C**** 02660356 ! 270: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 02670356 ! 271: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 02680356 ! 272: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 02690356 ! 273: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 02700356 ! 274: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 02710356 ! 275: 1I6,/,1H ,15X,10HCORRECT= ,I6) 02720356 ! 276: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02730356 ! 277: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 02740356 ! 278: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02750356 ! 279: 1A21,/,1H ,16X,10HCORRECT= ,A21) 02760356 ! 280: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 02770356 ! 281: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 02780356 ! 282: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 02790356 ! 283: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 02800356 ! 284: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 02810356 ! 285: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 02820356 ! 286: 80050 FORMAT (1H ,48X,A31) 02830356 ! 287: CBE** ********************** BBCFMT0A **********************************02840356 ! 288: CBB** ********************** BBCFMT0B **********************************02850356 ! 289: C**** FORMAT STATEMENTS FOR PAGE HEADERS 02860356 ! 290: C**** 02870356 ! 291: 90002 FORMAT (1H1) 02880356 ! 292: 90004 FORMAT (1H ) 02890356 ! 293: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 02900356 ! 294: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 02910356 ! 295: 90008 FORMAT (1H ,21X,A13,A17) 02920356 ! 296: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 02930356 ! 297: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 02940356 ! 298: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 02950356 ! 299: 1 7X,7HREMARKS,24X) 02960356 ! 300: 90014 FORMAT (1H ,46H----------------------------------------------, 02970356 ! 301: 1 33H---------------------------------) 02980356 ! 302: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 02990356 ! 303: C**** 03000356 ! 304: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03010356 ! 305: C**** 03020356 ! 306: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 03030356 ! 307: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 03040356 ! 308: 1 A13) 03050356 ! 309: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 03060356 ! 310: C**** 03070356 ! 311: C**** FORMAT STATEMENTS FOR RUN SUMMARY 03080356 ! 312: C**** 03090356 ! 313: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03100356 ! 314: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03110356 ! 315: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03120356 ! 316: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 03130356 ! 317: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 03140356 ! 318: CBE** ********************** BBCFMT0B **********************************03150356 ! 319: C***** 03160356 ! 320: C***** END OF TEST SEGMENT 156 03170356 ! 321: STOP 03180356 ! 322: END 03190356 ! 323: 03200356
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.