![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM359.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 FM359.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***********************************************************************00010359 ! 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 00020359 ! 6: C***** FM359 XSIGN - (161) 00030359 ! 7: C***** 00040359 ! 8: C***********************************************************************00050359 ! 9: C***** GENERAL PURPOSE SUBSET REF00060359 ! 10: C***** TEST INTRINSIC FUNCTION - SIGN, ISIGN - (TRANSFER 15.3 00070359 ! 11: C***** OF SIGN - SIGN OF A2 TIMES ABS(A1) ) (TABLE 5)00080359 ! 12: C***** 00090359 ! 13: CBB** ********************** BBCCOMNT **********************************00100359 ! 14: C**** 00110359 ! 15: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120359 ! 16: C**** VERSION 2.0 00130359 ! 17: C**** 00140359 ! 18: C**** 00150359 ! 19: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160359 ! 20: C**** GENERAL SERVICES ADMINISTRATION 00170359 ! 21: C**** FEDERAL SOFTWARE TESTING CENTER 00180359 ! 22: C**** 5203 LEESBURG PIKE, SUITE 1100 00190359 ! 23: C**** FALLS CHURCH, VA. 22041 00200359 ! 24: C**** 00210359 ! 25: C**** (703) 756-6153 00220359 ! 26: C**** 00230359 ! 27: CBE** ********************** BBCCOMNT **********************************00240359 ! 28: CBB** ********************** BBCINITA **********************************00250359 ! 29: C**** SPECIFICATION STATEMENTS 00260359 ! 30: C**** 00270359 ! 31: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00280359 ! 32: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00290359 ! 33: CBE** ********************** BBCINITA **********************************00300359 ! 34: CBB** ********************** BBCINITB **********************************00310359 ! 35: C**** INITIALIZE SECTION 00320359 ! 36: DATA ZVERS, ZVERSD, ZDATE 00330359 ! 37: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00340359 ! 38: DATA ZCOMPL, ZNAME, ZTAPE 00350359 ! 39: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00360359 ! 40: DATA ZPROJ, ZTAPED, ZPROG 00370359 ! 41: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00380359 ! 42: DATA REMRKS /' '/ 00390359 ! 43: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00400359 ! 44: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00410359 ! 45: C**** 00420359 ! 46: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00430359 ! 47: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00440359 ! 48: CZ03 ZPROG = 'PROGRAM NAME' 00450359 ! 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 00520359 ! 56: IVPASS = 0 00530359 ! 57: IVFAIL = 0 00540359 ! 58: IVDELE = 0 00550359 ! 59: IVINSP = 0 00560359 ! 60: IVTOTL = 0 00570359 ! 61: IVTOTN = 0 00580359 ! 62: ICZERO = 0 00590359 ! 63: C 00600359 ! 64: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00610359 ! 65: I01 = 05 00620359 ! 66: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00630359 ! 67: I02 = 06 00640359 ! 68: C 00650359 ! 69: I01 = 5 00660359 ! 70: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00670359 ! 71: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00680359 ! 72: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00690359 ! 73: C 00700359 ! 74: I02 = 6 00710359 ! 75: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00720359 ! 76: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00730359 ! 77: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00740359 ! 78: C 00750359 ! 79: CBE** ********************** BBCINITB **********************************00760359 ! 80: NUVI = I02 00770359 ! 81: IVTOTL = 22 00780359 ! 82: ZPROG = 'FM359' 00790359 ! 83: CBB** ********************** BBCHED0A **********************************00800359 ! 84: C**** 00810359 ! 85: C**** WRITE REPORT TITLE 00820359 ! 86: C**** 00830359 ! 87: WRITE (I02, 90002) 00840359 ! 88: WRITE (I02, 90006) 00850359 ! 89: WRITE (I02, 90007) 00860359 ! 90: WRITE (I02, 90008) ZVERS, ZVERSD 00870359 ! 91: WRITE (I02, 90009) ZPROG, ZPROG 00880359 ! 92: WRITE (I02, 90010) ZDATE, ZCOMPL 00890359 ! 93: CBE** ********************** BBCHED0A **********************************00900359 ! 94: C***** 00910359 ! 95: C***** HEADER FOR SEGMENT 161 00920359 ! 96: WRITE (NUVI,16101) 00930359 ! 97: 16101 FORMAT(1H , // 2X,36HXSIGN - (161) INTRINSIC FUNCTIONS-- //12X,00940359 ! 98: 1 30HSIGN, ISIGN (TRANSFER OF SIGN)// 00950359 ! 99: 2 2X,19HSUBSET REF. - 15.3 ) 00960359 ! 100: CBB** ********************** BBCHED0B **********************************00970359 ! 101: C**** WRITE DETAIL REPORT HEADERS 00980359 ! 102: C**** 00990359 ! 103: WRITE (I02,90004) 01000359 ! 104: WRITE (I02,90004) 01010359 ! 105: WRITE (I02,90013) 01020359 ! 106: WRITE (I02,90014) 01030359 ! 107: WRITE (I02,90015) IVTOTL 01040359 ! 108: CBE** ********************** BBCHED0B **********************************01050359 ! 109: C***** 01060359 ! 110: C***** TEST OF SIGN 01070359 ! 111: C***** 01080359 ! 112: WRITE(NUVI, 16102) 01090359 ! 113: 16102 FORMAT (/ 8X, 12HTEST OF SIGN) 01100359 ! 114: CT001* TEST 1 BOTH VALUES ZERO 01110359 ! 115: IVTNUM = 1 01120359 ! 116: RFBVS = 0.0 01130359 ! 117: RFAVS = SIGN(RFBVS, RFBVS) 01140359 ! 118: IF (RFAVS + 0.00005) 20010, 10010, 40010 01150359 ! 119: 40010 IF (RFAVS - 0.00005) 10010, 10010, 20010 01160359 ! 120: 10010 IVPASS = IVPASS + 1 01170359 ! 121: WRITE (NUVI, 80002) IVTNUM 01180359 ! 122: GO TO 0011 01190359 ! 123: 20010 IVFAIL = IVFAIL + 1 01200359 ! 124: RVCORR = 0.0 01210359 ! 125: WRITE (NUVI, 80012) IVTNUM, RFAVS, RVCORR 01220359 ! 126: 0011 CONTINUE 01230359 ! 127: CT002* TEST 2 FIRST VALUE POSITIVE, SECOND ZERO 01240359 ! 128: IVTNUM = 2 01250359 ! 129: RFBVS = 1.5 01260359 ! 130: RFDVS = 0.0 01270359 ! 131: RFAVS = SIGN(RFBVS, RFDVS) 01280359 ! 132: IF (RFAVS - 1.4999) 20020, 10020, 40020 01290359 ! 133: 40020 IF (RFAVS - 1.5001) 10020, 10020, 20020 01300359 ! 134: 10020 IVPASS = IVPASS + 1 01310359 ! 135: WRITE (NUVI, 80002) IVTNUM 01320359 ! 136: GO TO 0021 01330359 ! 137: 20020 IVFAIL = IVFAIL + 1 01340359 ! 138: RVCORR = 1.5 01350359 ! 139: WRITE (NUVI, 80012) IVTNUM, RFAVS, RVCORR 01360359 ! 140: 0021 CONTINUE 01370359 ! 141: CT003* TEST 3 FIRST VALUE NEGATIVE, SECOND ZERO 01380359 ! 142: IVTNUM = 3 01390359 ! 143: RFBVS = -1.5 01400359 ! 144: RFDVS = 0.0 01410359 ! 145: RFAVS = SIGN(RFBVS, RFDVS) 01420359 ! 146: IF (RFAVS - 1.4999) 20030, 10030, 40030 01430359 ! 147: 40030 IF (RFAVS - 1.5001) 10030, 10030, 20030 01440359 ! 148: 10030 IVPASS = IVPASS + 1 01450359 ! 149: WRITE (NUVI, 80002) IVTNUM 01460359 ! 150: GO TO 0031 01470359 ! 151: 20030 IVFAIL = IVFAIL + 1 01480359 ! 152: RVCORR = 1.5 01490359 ! 153: WRITE (NUVI, 80012) IVTNUM, RFAVS, RVCORR 01500359 ! 154: 0031 CONTINUE 01510359 ! 155: CT004* TEST 4 FIRST VALUE ZERO, SECOND POSITIVE 01520359 ! 156: IVTNUM = 4 01530359 ! 157: RFBVS = 0.0 01540359 ! 158: RFDVS = 2.5 01550359 ! 159: RFAVS = SIGN(RFBVS, RFDVS) 01560359 ! 160: IF (RFAVS + 0.00005) 20040, 10040, 40040 01570359 ! 161: 40040 IF (RFAVS - 0.00005) 10040, 10040, 20040 01580359 ! 162: 10040 IVPASS = IVPASS + 1 01590359 ! 163: WRITE (NUVI, 80002) IVTNUM 01600359 ! 164: GO TO 0041 01610359 ! 165: 20040 IVFAIL = IVFAIL + 1 01620359 ! 166: RVCORR = 0.0 01630359 ! 167: WRITE (NUVI, 80012) IVTNUM, RFAVS, RVCORR 01640359 ! 168: 0041 CONTINUE 01650359 ! 169: CT005* TEST 5 BOTH VALUES POSITIVE 01660359 ! 170: IVTNUM = 5 01670359 ! 171: RFBVS = 1.5 01680359 ! 172: RFDVS = 2.5 01690359 ! 173: RFAVS = SIGN(RFBVS, RFDVS) 01700359 ! 174: IF (RFAVS - 1.4999) 20050, 10050, 40050 01710359 ! 175: 40050 IF (RFAVS - 1.5001) 10050, 10050, 20050 01720359 ! 176: 10050 IVPASS = IVPASS + 1 01730359 ! 177: WRITE (NUVI, 80002) IVTNUM 01740359 ! 178: GO TO 0051 01750359 ! 179: 20050 IVFAIL = IVFAIL + 1 01760359 ! 180: RVCORR = 1.5 01770359 ! 181: WRITE (NUVI, 80012) IVTNUM, RFAVS, RVCORR 01780359 ! 182: 0051 CONTINUE 01790359 ! 183: CT006* TEST 6 FIRST VALUE NEGATIVE, SECOND POSITIVE 01800359 ! 184: IVTNUM = 6 01810359 ! 185: RFBVS = -1.5 01820359 ! 186: RFDVS = 2.5 01830359 ! 187: RFAVS = SIGN(RFBVS, RFDVS) 01840359 ! 188: IF (RFAVS - 1.4999) 20060, 10060, 40060 01850359 ! 189: 40060 IF (RFAVS - 1.5001) 10060, 10060, 20060 01860359 ! 190: 10060 IVPASS = IVPASS + 1 01870359 ! 191: WRITE (NUVI, 80002) IVTNUM 01880359 ! 192: GO TO 0061 01890359 ! 193: 20060 IVFAIL = IVFAIL + 1 01900359 ! 194: RVCORR = 1.5 01910359 ! 195: WRITE (NUVI, 80012) IVTNUM, RFAVS, RVCORR 01920359 ! 196: 0061 CONTINUE 01930359 ! 197: CT007* TEST 7 FIRST VALUE ZERO, SECOND NEGATIVE 01940359 ! 198: IVTNUM = 7 01950359 ! 199: RFBVS = 0.0 01960359 ! 200: RFDVS = -2.5 01970359 ! 201: RFAVS = SIGN(RFBVS, RFDVS) 01980359 ! 202: IF (RFAVS + 0.00005) 20070, 10070, 40070 01990359 ! 203: 40070 IF (RFAVS - 0.00005) 10070, 10070, 20070 02000359 ! 204: 10070 IVPASS = IVPASS + 1 02010359 ! 205: WRITE (NUVI, 80002) IVTNUM 02020359 ! 206: GO TO 0071 02030359 ! 207: 20070 IVFAIL = IVFAIL + 1 02040359 ! 208: RVCORR = 0.0 02050359 ! 209: WRITE (NUVI, 80012) IVTNUM, RFAVS, RVCORR 02060359 ! 210: 0071 CONTINUE 02070359 ! 211: CT008* TEST 8 BOTH VALUES NEGATIVE 02080359 ! 212: IVTNUM = 8 02090359 ! 213: RFBVS = -1.5 02100359 ! 214: RFDVS = -2.5 02110359 ! 215: RFAVS = SIGN(RFBVS, RFDVS) 02120359 ! 216: IF (RFAVS + 1.5001) 20080, 10080, 40080 02130359 ! 217: 40080 IF (RFAVS + 1.4999) 10080, 10080, 20080 02140359 ! 218: 10080 IVPASS = IVPASS + 1 02150359 ! 219: WRITE (NUVI, 80002) IVTNUM 02160359 ! 220: GO TO 0081 02170359 ! 221: 20080 IVFAIL = IVFAIL + 1 02180359 ! 222: RVCORR = -1.5 02190359 ! 223: WRITE (NUVI, 80012) IVTNUM, RFAVS, RVCORR 02200359 ! 224: 0081 CONTINUE 02210359 ! 225: CT009* TEST 9 FIRST VALUE POSITIVE, SECOND NEGATIVE 02220359 ! 226: IVTNUM = 9 02230359 ! 227: RFBVS = 1.5 02240359 ! 228: RFDVS = -2.5 02250359 ! 229: RFAVS = SIGN(RFBVS, RFDVS) 02260359 ! 230: IF (RFAVS + 1.5001) 20090, 10090, 40090 02270359 ! 231: 40090 IF (RFAVS + 1.4999) 10090, 10090, 20090 02280359 ! 232: 10090 IVPASS = IVPASS + 1 02290359 ! 233: WRITE (NUVI, 80002) IVTNUM 02300359 ! 234: GO TO 0091 02310359 ! 235: 20090 IVFAIL = IVFAIL + 1 02320359 ! 236: RVCORR = -1.5 02330359 ! 237: WRITE (NUVI, 80012) IVTNUM, RFAVS, RVCORR 02340359 ! 238: 0091 CONTINUE 02350359 ! 239: CT010* TEST 10 BOTH VALUES ZERO, 1ST ZERO PRECEDED BY A MINUS SIGN 02360359 ! 240: IVTNUM = 10 02370359 ! 241: RFDVS = 0.0 02380359 ! 242: RFEVS = 0.0 02390359 ! 243: RFAVS = SIGN(-RFDVS, RFEVS) 02400359 ! 244: IF (RFAVS + 0.0005) 20100, 10100, 40100 02410359 ! 245: 40100 IF (RFAVS - 0.00005) 10100, 10100, 20100 02420359 ! 246: 10100 IVPASS = IVPASS + 1 02430359 ! 247: WRITE (NUVI, 80002) IVTNUM 02440359 ! 248: GO TO 0101 02450359 ! 249: 20100 IVFAIL = IVFAIL + 1 02460359 ! 250: RVCORR = 0.0 02470359 ! 251: WRITE (NUVI, 80012) IVTNUM, RFAVS, RVCORR 02480359 ! 252: 0101 CONTINUE 02490359 ! 253: CT011* TEST 11 ARITHMETIC EXPRESSIONS PRESENTED TO SIGN 02500359 ! 254: IVTNUM = 11 02510359 ! 255: RFDVS = 1.5 02520359 ! 256: RFEVS = 2.0 02530359 ! 257: RFAVS = SIGN(RFDVS + RFEVS, RFDVS - RFEVS) 02540359 ! 258: IF (RFAVS + 3.5002) 20110, 10110, 40110 02550359 ! 259: 40110 IF (RFAVS + 3.4998) 10110, 10110, 20110 02560359 ! 260: 10110 IVPASS = IVPASS + 1 02570359 ! 261: WRITE (NUVI, 80002) IVTNUM 02580359 ! 262: GO TO 0111 02590359 ! 263: 20110 IVFAIL = IVFAIL + 1 02600359 ! 264: RVCORR = -3.5 02610359 ! 265: WRITE (NUVI, 80012) IVTNUM, RFAVS, RVCORR 02620359 ! 266: 0111 CONTINUE 02630359 ! 267: C***** 02640359 ! 268: C***** TEST OF ISIGN 02650359 ! 269: C***** 02660359 ! 270: WRITE(NUVI, 16104) 02670359 ! 271: 16104 FORMAT (/ 8X, 13HTEST OF ISIGN) 02680359 ! 272: C***** 02690359 ! 273: CT012* TEST 12 BOTH VALUES ZERO 02700359 ! 274: IVTNUM = 12 02710359 ! 275: IFBVI = 0 02720359 ! 276: IFDVI = 0 02730359 ! 277: IFAVI = ISIGN(IFBVI, IFDVI) 02740359 ! 278: IF (IFAVI - 0) 20120, 10120, 20120 02750359 ! 279: 10120 IVPASS = IVPASS + 1 02760359 ! 280: WRITE (NUVI, 80002) IVTNUM 02770359 ! 281: GO TO 0121 02780359 ! 282: 20120 IVFAIL = IVFAIL + 1 02790359 ! 283: IVCORR = 0 02800359 ! 284: WRITE (NUVI, 80010) IVTNUM, IFAVI, IVCORR 02810359 ! 285: 0121 CONTINUE 02820359 ! 286: CT013* TEST 13 FIRST VALUE POSITIVE, SECOND ZERO 02830359 ! 287: IVTNUM = 13 02840359 ! 288: IFBVI = 2 02850359 ! 289: IFDVI = 0 02860359 ! 290: IFAVI = ISIGN(IFBVI, IFDVI) 02870359 ! 291: IF (IFAVI - 2) 20130, 10130, 20130 02880359 ! 292: 10130 IVPASS = IVPASS + 1 02890359 ! 293: WRITE (NUVI, 80002) IVTNUM 02900359 ! 294: GO TO 0131 02910359 ! 295: 20130 IVFAIL = IVFAIL + 1 02920359 ! 296: IVCORR = 2 02930359 ! 297: WRITE (NUVI, 80010) IVTNUM, IFAVI, IVCORR 02940359 ! 298: 0131 CONTINUE 02950359 ! 299: CT014* TEST 14 FIRST VALUE NEGATIVE, SECOND ZERO 02960359 ! 300: IVTNUM = 14 02970359 ! 301: IFBVI = -2 02980359 ! 302: IFDVI = 0 02990359 ! 303: IFAVI = ISIGN(IFBVI, IFDVI) 03000359 ! 304: IF (IFAVI - 2) 20140, 10140, 20140 03010359 ! 305: 10140 IVPASS = IVPASS + 1 03020359 ! 306: WRITE (NUVI, 80002) IVTNUM 03030359 ! 307: GO TO 0141 03040359 ! 308: 20140 IVFAIL = IVFAIL + 1 03050359 ! 309: IVCORR = 2 03060359 ! 310: WRITE (NUVI, 80010) IVTNUM, IFAVI, IVCORR 03070359 ! 311: 0141 CONTINUE 03080359 ! 312: CT015* TEST 15 FIRST VALUE ZERO, SECOND POSITIVE 03090359 ! 313: IVTNUM = 15 03100359 ! 314: IFBVI = 0 03110359 ! 315: IFDVI = 5 03120359 ! 316: IFAVI = ISIGN(IFBVI, IFDVI) 03130359 ! 317: IF (IFAVI - 0) 20150, 10150, 20150 03140359 ! 318: 10150 IVPASS = IVPASS + 1 03150359 ! 319: WRITE (NUVI, 80002) IVTNUM 03160359 ! 320: GO TO 0151 03170359 ! 321: 20150 IVFAIL = IVFAIL + 1 03180359 ! 322: IVCORR = 0 03190359 ! 323: WRITE (NUVI, 80010) IVTNUM, IFAVI, IVCORR 03200359 ! 324: 0151 CONTINUE 03210359 ! 325: CT016* TEST 16 BOTH VALUES POSITIVE 03220359 ! 326: IVTNUM = 16 03230359 ! 327: IFBVI = 2 03240359 ! 328: IFDVI = 5 03250359 ! 329: IFAVI = ISIGN(IFBVI, IFDVI) 03260359 ! 330: IF (IFAVI - 2) 20160, 10160, 20160 03270359 ! 331: 10160 IVPASS = IVPASS + 1 03280359 ! 332: WRITE (NUVI, 80002) IVTNUM 03290359 ! 333: GO TO 0161 03300359 ! 334: 20160 IVFAIL = IVFAIL + 1 03310359 ! 335: IVCORR = 2 03320359 ! 336: WRITE (NUVI, 80010) IVTNUM, IFAVI, IVCORR 03330359 ! 337: 0161 CONTINUE 03340359 ! 338: CT017* TEST 17 FIRST VALUE NEGATIVE, SECOND POSITIVE 03350359 ! 339: IVTNUM = 17 03360359 ! 340: IFBVI = -2 03370359 ! 341: IFDVI = 5 03380359 ! 342: IFAVI = ISIGN(IFBVI, IFDVI) 03390359 ! 343: IF (IFAVI - 2) 20170, 10170, 20170 03400359 ! 344: 10170 IVPASS = IVPASS + 1 03410359 ! 345: WRITE (NUVI, 80002) IVTNUM 03420359 ! 346: GO TO 0171 03430359 ! 347: 20170 IVFAIL = IVFAIL + 1 03440359 ! 348: IVCORR = 2 03450359 ! 349: WRITE (NUVI, 80010) IVTNUM, IFAVI, IVCORR 03460359 ! 350: 0171 CONTINUE 03470359 ! 351: CT018* TEST 18 FIRST VALUE ZERO, SECOND NEGATIVE 03480359 ! 352: IVTNUM = 18 03490359 ! 353: IFBVI = 0 03500359 ! 354: IFDVI = -5 03510359 ! 355: IFAVI = ISIGN(IFBVI, IFDVI) 03520359 ! 356: IF (IFAVI - 0) 20180, 10180, 20180 03530359 ! 357: 10180 IVPASS = IVPASS + 1 03540359 ! 358: WRITE (NUVI, 80002) IVTNUM 03550359 ! 359: GO TO 0181 03560359 ! 360: 20180 IVFAIL = IVFAIL + 1 03570359 ! 361: IVCORR = 0 03580359 ! 362: WRITE (NUVI, 80010) IVTNUM, IFAVI, IVCORR 03590359 ! 363: 0181 CONTINUE 03600359 ! 364: CT019* TEST 19 BOTH VALUES NEGATIVE 03610359 ! 365: IVTNUM = 19 03620359 ! 366: IFBVI = -2 03630359 ! 367: IFDVI = -5 03640359 ! 368: IFAVI = ISIGN(IFBVI, IFDVI) 03650359 ! 369: IF (IFAVI + 2) 20190, 10190, 20190 03660359 ! 370: 10190 IVPASS = IVPASS + 1 03670359 ! 371: WRITE (NUVI, 80002) IVTNUM 03680359 ! 372: GO TO 0191 03690359 ! 373: 20190 IVFAIL = IVFAIL + 1 03700359 ! 374: IVCORR = -2 03710359 ! 375: WRITE (NUVI, 80010) IVTNUM, IFAVI, IVCORR 03720359 ! 376: 0191 CONTINUE 03730359 ! 377: CT020* TEST 20 FIRST VALUE POSITIVE, SECOND NEGATIVE 03740359 ! 378: IVTNUM = 20 03750359 ! 379: IFBVI = 2 03760359 ! 380: IFDVI = -5 03770359 ! 381: IFAVI = ISIGN(IFBVI, IFDVI) 03780359 ! 382: IF (IFAVI + 2) 20200, 10200, 20200 03790359 ! 383: 10200 IVPASS = IVPASS + 1 03800359 ! 384: WRITE (NUVI, 80002) IVTNUM 03810359 ! 385: GO TO 0201 03820359 ! 386: 20200 IVFAIL = IVFAIL + 1 03830359 ! 387: IVCORR = -2 03840359 ! 388: WRITE (NUVI, 80010) IVTNUM, IFAVI, IVCORR 03850359 ! 389: 0201 CONTINUE 03860359 ! 390: CT021* TEST 21 BOTH VALUES ZERO, 1ST ZERO PRECEDED BY A MINUS SIGN 03870359 ! 391: IVTNUM = 21 03880359 ! 392: IFDVI = 0 03890359 ! 393: IFEVI = 0 03900359 ! 394: IFAVI = ISIGN(-IFDVI, IFEVI) 03910359 ! 395: IF (IFAVI - 0) 20210, 10210, 20210 03920359 ! 396: 10210 IVPASS = IVPASS + 1 03930359 ! 397: WRITE (NUVI, 80002) IVTNUM 03940359 ! 398: GO TO 0211 03950359 ! 399: 20210 IVFAIL = IVFAIL + 1 03960359 ! 400: IVCORR = 0 03970359 ! 401: WRITE (NUVI, 80010) IVTNUM, IFAVI, IVCORR 03980359 ! 402: 0211 CONTINUE 03990359 ! 403: CT022* TEST 22 ARITHMETIC EXPRESSIONS PRESENTED TO ISIGN 04000359 ! 404: IVTNUM = 22 04010359 ! 405: IFDVI = 2 04020359 ! 406: IFEVI = 3 04030359 ! 407: IFAVI = ISIGN(IFDVI + IFEVI, IFDVI - IFEVI) 04040359 ! 408: IF (IFAVI + 5) 20220, 10220, 20220 04050359 ! 409: 10220 IVPASS = IVPASS + 1 04060359 ! 410: WRITE (NUVI, 80002) IVTNUM 04070359 ! 411: GO TO 0221 04080359 ! 412: 20220 IVFAIL = IVFAIL + 1 04090359 ! 413: IVCORR = -5 04100359 ! 414: WRITE (NUVI, 80010) IVTNUM, IFAVI, IVCORR 04110359 ! 415: 0221 CONTINUE 04120359 ! 416: C***** 04130359 ! 417: CBB** ********************** BBCSUM0 **********************************04140359 ! 418: C**** WRITE OUT TEST SUMMARY 04150359 ! 419: C**** 04160359 ! 420: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 04170359 ! 421: WRITE (I02, 90004) 04180359 ! 422: WRITE (I02, 90014) 04190359 ! 423: WRITE (I02, 90004) 04200359 ! 424: WRITE (I02, 90020) IVPASS 04210359 ! 425: WRITE (I02, 90022) IVFAIL 04220359 ! 426: WRITE (I02, 90024) IVDELE 04230359 ! 427: WRITE (I02, 90026) IVINSP 04240359 ! 428: WRITE (I02, 90028) IVTOTN, IVTOTL 04250359 ! 429: CBE** ********************** BBCSUM0 **********************************04260359 ! 430: CBB** ********************** BBCFOOT0 **********************************04270359 ! 431: C**** WRITE OUT REPORT FOOTINGS 04280359 ! 432: C**** 04290359 ! 433: WRITE (I02,90016) ZPROG, ZPROG 04300359 ! 434: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 04310359 ! 435: WRITE (I02,90019) 04320359 ! 436: CBE** ********************** BBCFOOT0 **********************************04330359 ! 437: CBB** ********************** BBCFMT0A **********************************04340359 ! 438: C**** FORMATS FOR TEST DETAIL LINES 04350359 ! 439: C**** 04360359 ! 440: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 04370359 ! 441: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 04380359 ! 442: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 04390359 ! 443: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 04400359 ! 444: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 04410359 ! 445: 1I6,/,1H ,15X,10HCORRECT= ,I6) 04420359 ! 446: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 04430359 ! 447: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 04440359 ! 448: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 04450359 ! 449: 1A21,/,1H ,16X,10HCORRECT= ,A21) 04460359 ! 450: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 04470359 ! 451: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 04480359 ! 452: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 04490359 ! 453: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 04500359 ! 454: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 04510359 ! 455: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 04520359 ! 456: 80050 FORMAT (1H ,48X,A31) 04530359 ! 457: CBE** ********************** BBCFMT0A **********************************04540359 ! 458: CBB** ********************** BBCFMT0B **********************************04550359 ! 459: C**** FORMAT STATEMENTS FOR PAGE HEADERS 04560359 ! 460: C**** 04570359 ! 461: 90002 FORMAT (1H1) 04580359 ! 462: 90004 FORMAT (1H ) 04590359 ! 463: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 04600359 ! 464: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 04610359 ! 465: 90008 FORMAT (1H ,21X,A13,A17) 04620359 ! 466: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 04630359 ! 467: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 04640359 ! 468: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 04650359 ! 469: 1 7X,7HREMARKS,24X) 04660359 ! 470: 90014 FORMAT (1H ,46H----------------------------------------------, 04670359 ! 471: 1 33H---------------------------------) 04680359 ! 472: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 04690359 ! 473: C**** 04700359 ! 474: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 04710359 ! 475: C**** 04720359 ! 476: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 04730359 ! 477: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 04740359 ! 478: 1 A13) 04750359 ! 479: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 04760359 ! 480: C**** 04770359 ! 481: C**** FORMAT STATEMENTS FOR RUN SUMMARY 04780359 ! 482: C**** 04790359 ! 483: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 04800359 ! 484: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 04810359 ! 485: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 04820359 ! 486: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 04830359 ! 487: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 04840359 ! 488: CBE** ********************** BBCFMT0B **********************************04850359 ! 489: C***** 04860359 ! 490: C***** END OF TEST SEGMENT 161 04870359 ! 491: STOP 04880359 ! 492: END 04890359 ! 493: 04900359
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.