![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM520.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 FM520.f CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / testf77 / tests |
1.1 ! root 1: PROGRAM FM520 00010520 ! 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 00020520 ! 6: C TESTING PARAMETER STATEMENT 00030520 ! 7: C 00040520 ! 8: C 00050520 ! 9: CBB** ********************** BBCCOMNT **********************************00060520 ! 10: C**** 00070520 ! 11: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00080520 ! 12: C**** VERSION 2.0 00090520 ! 13: C**** 00100520 ! 14: C**** 00110520 ! 15: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00120520 ! 16: C**** GENERAL SERVICES ADMINISTRATION 00130520 ! 17: C**** FEDERAL SOFTWARE TESTING CENTER 00140520 ! 18: C**** 5203 LEESBURG PIKE, SUITE 1100 00150520 ! 19: C**** FALLS CHURCH, VA. 22041 00160520 ! 20: C**** 00170520 ! 21: C**** (703) 756-6153 00180520 ! 22: C**** 00190520 ! 23: CBE** ********************** BBCCOMNT **********************************00200520 ! 24: IMPLICIT DOUBLE PRECISION (D), COMPLEX (Z), LOGICAL (L) 00210520 ! 25: IMPLICIT CHARACTER*27 (C) 00220520 ! 26: CBB** ********************** BBCINITA **********************************00230520 ! 27: C**** SPECIFICATION STATEMENTS 00240520 ! 28: C**** 00250520 ! 29: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00260520 ! 30: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00270520 ! 31: CBE** ********************** BBCINITA **********************************00280520 ! 32: C 00290520 ! 33: PARAMETER(IPN001=5+5,IPN002=8-3,IPN003=1*5) 00300520 ! 34: PARAMETER(RPN001=5.1+4.9,RPN002=8.7-3.7,RPN003=2.0*2.5) 00310520 ! 35: C 00320520 ! 36: C TEST 1 - 7 TEST INTEGER ARITHMETIC EXPRESSION USING 00330520 ! 37: C ONLY SYMBOLIC NAMES OF ARITHMETIC CONSTANTS 00340520 ! 38: C S06AF-2P 4.A 00350520 ! 39: C 00360520 ! 40: C 00370520 ! 41: C 00380520 ! 42: CBB** ********************** BBCINITB **********************************00390520 ! 43: C**** INITIALIZE SECTION 00400520 ! 44: DATA ZVERS, ZVERSD, ZDATE 00410520 ! 45: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00420520 ! 46: DATA ZCOMPL, ZNAME, ZTAPE 00430520 ! 47: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00440520 ! 48: DATA ZPROJ, ZTAPED, ZPROG 00450520 ! 49: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00460520 ! 50: DATA REMRKS /' '/ 00470520 ! 51: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00480520 ! 52: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00490520 ! 53: C**** 00500520 ! 54: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00510520 ! 55: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00520520 ! 56: CZ03 ZPROG = 'PROGRAM NAME' 00530520 ! 57: ZDATE = '07-Nov-85 ' *RP ! 58: ZCOMPL = 'CCI 5.2 ' *RP ! 59: ZPROJ = 'TC-85- -410' *RP ! 60: ZNAME = ' ' *RP ! 61: ZTAPE = ' ' *RP ! 62: ZTAPED = '850703 ' *RP ! 63: C 00600520 ! 64: IVPASS = 0 00610520 ! 65: IVFAIL = 0 00620520 ! 66: IVDELE = 0 00630520 ! 67: IVINSP = 0 00640520 ! 68: IVTOTL = 0 00650520 ! 69: IVTOTN = 0 00660520 ! 70: ICZERO = 0 00670520 ! 71: C 00680520 ! 72: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00690520 ! 73: I01 = 05 00700520 ! 74: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00710520 ! 75: I02 = 06 00720520 ! 76: C 00730520 ! 77: I01 = 5 00740520 ! 78: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00750520 ! 79: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00760520 ! 80: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00770520 ! 81: C 00780520 ! 82: I02 = 6 00790520 ! 83: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00800520 ! 84: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00810520 ! 85: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00820520 ! 86: C 00830520 ! 87: CBE** ********************** BBCINITB **********************************00840520 ! 88: ZPROG='FM520' 00850520 ! 89: IVTOTL = 30 00860520 ! 90: CBB** ********************** BBCHED0A **********************************00870520 ! 91: C**** 00880520 ! 92: C**** WRITE REPORT TITLE 00890520 ! 93: C**** 00900520 ! 94: WRITE (I02, 90002) 00910520 ! 95: WRITE (I02, 90006) 00920520 ! 96: WRITE (I02, 90007) 00930520 ! 97: WRITE (I02, 90008) ZVERS, ZVERSD 00940520 ! 98: WRITE (I02, 90009) ZPROG, ZPROG 00950520 ! 99: WRITE (I02, 90010) ZDATE, ZCOMPL 00960520 ! 100: CBE** ********************** BBCHED0A **********************************00970520 ! 101: CBB** ********************** BBCHED0B **********************************00980520 ! 102: C**** WRITE DETAIL REPORT HEADERS 00990520 ! 103: C**** 01000520 ! 104: WRITE (I02,90004) 01010520 ! 105: WRITE (I02,90004) 01020520 ! 106: WRITE (I02,90013) 01030520 ! 107: WRITE (I02,90014) 01040520 ! 108: WRITE (I02,90015) IVTOTL 01050520 ! 109: CBE** ********************** BBCHED0B **********************************01060520 ! 110: C 01070520 ! 111: CT001* TEST 001 **** FCVS PROGRAM 520 **** 01080520 ! 112: C 01090520 ! 113: C 01100520 ! 114: IVTNUM = 1 01110520 ! 115: IVCOMP=+IPN001 01120520 ! 116: IVCORR=+10 01130520 ! 117: 40010 IF (IVCOMP - 10) 20010, 10010, 20010 01140520 ! 118: 10010 IVPASS = IVPASS + 1 01150520 ! 119: WRITE (I02,80002) IVTNUM 01160520 ! 120: GO TO 0021 01170520 ! 121: 20010 IVFAIL = IVFAIL + 1 01180520 ! 122: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01190520 ! 123: 0021 CONTINUE 01200520 ! 124: C 01210520 ! 125: CT002* TEST 002 **** FCVS PROGRAM 520 **** 01220520 ! 126: C 01230520 ! 127: C 01240520 ! 128: IVTNUM = 2 01250520 ! 129: IVCOMP=-IPN001 01260520 ! 130: IVCORR=-10 01270520 ! 131: 40020 IF (IVCOMP + 10) 20020, 10020, 20020 01280520 ! 132: 10020 IVPASS = IVPASS + 1 01290520 ! 133: WRITE (I02,80002) IVTNUM 01300520 ! 134: GO TO 0031 01310520 ! 135: 20020 IVFAIL = IVFAIL + 1 01320520 ! 136: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01330520 ! 137: 0031 CONTINUE 01340520 ! 138: C 01350520 ! 139: CT003* TEST 003 **** FCVS PROGRAM 520 **** 01360520 ! 140: C 01370520 ! 141: C 01380520 ! 142: IVTNUM = 3 01390520 ! 143: IVCOMP=IPN001+IPN002 01400520 ! 144: IVCORR=15 01410520 ! 145: 40030 IF (IVCOMP - 15) 20030, 10030, 20030 01420520 ! 146: 10030 IVPASS = IVPASS + 1 01430520 ! 147: WRITE (I02,80002) IVTNUM 01440520 ! 148: GO TO 0041 01450520 ! 149: 20030 IVFAIL = IVFAIL + 1 01460520 ! 150: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01470520 ! 151: 0041 CONTINUE 01480520 ! 152: C 01490520 ! 153: CT004* TEST 004 **** FCVS PROGRAM 520 **** 01500520 ! 154: C 01510520 ! 155: C 01520520 ! 156: IVTNUM = 4 01530520 ! 157: IVCOMP=IPN001-IPN002 01540520 ! 158: IVCORR=5 01550520 ! 159: 40040 IF (IVCOMP - 5) 20040, 10040, 20040 01560520 ! 160: 10040 IVPASS = IVPASS + 1 01570520 ! 161: WRITE (I02,80002) IVTNUM 01580520 ! 162: GO TO 0051 01590520 ! 163: 20040 IVFAIL = IVFAIL + 1 01600520 ! 164: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01610520 ! 165: 0051 CONTINUE 01620520 ! 166: C 01630520 ! 167: CT005* TEST 005 **** FCVS PROGRAM 520 **** 01640520 ! 168: C 01650520 ! 169: C 01660520 ! 170: IVTNUM = 5 01670520 ! 171: IVCOMP=IPN001*IPN002 01680520 ! 172: IVCORR=50 01690520 ! 173: 40050 IF (IVCOMP - 50) 20050, 10050, 20050 01700520 ! 174: 10050 IVPASS = IVPASS + 1 01710520 ! 175: WRITE (I02,80002) IVTNUM 01720520 ! 176: GO TO 0061 01730520 ! 177: 20050 IVFAIL = IVFAIL + 1 01740520 ! 178: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01750520 ! 179: 0061 CONTINUE 01760520 ! 180: C 01770520 ! 181: CT006* TEST 006 **** FCVS PROGRAM 520 **** 01780520 ! 182: C 01790520 ! 183: C 01800520 ! 184: IVTNUM = 6 01810520 ! 185: IVCOMP=IPN001/IPN002 01820520 ! 186: IVCORR=2 01830520 ! 187: 40060 IF (IVCOMP - 2) 20060, 10060, 20060 01840520 ! 188: 10060 IVPASS = IVPASS + 1 01850520 ! 189: WRITE (I02,80002) IVTNUM 01860520 ! 190: GO TO 0071 01870520 ! 191: 20060 IVFAIL = IVFAIL + 1 01880520 ! 192: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01890520 ! 193: 0071 CONTINUE 01900520 ! 194: C 01910520 ! 195: CT007* TEST 007 **** FCVS PROGRAM 520 **** 01920520 ! 196: C 01930520 ! 197: C 01940520 ! 198: IVTNUM = 7 01950520 ! 199: IVCOMP=IPN001**IPN002 01960520 ! 200: IVCORR=100000 01970520 ! 201: 40070 IF (IVCOMP - 100000) 20070, 10070, 20070 01980520 ! 202: 10070 IVPASS = IVPASS + 1 01990520 ! 203: WRITE (I02,80002) IVTNUM 02000520 ! 204: GO TO 0081 02010520 ! 205: 20070 IVFAIL = IVFAIL + 1 02020520 ! 206: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02030520 ! 207: 0081 CONTINUE 02040520 ! 208: C 02050520 ! 209: C 02060520 ! 210: C TEST 8 - 14 TEST REAL ARITHMETIC EXPRESSION USING 02070520 ! 211: C ONLY SYMBOLIC NAMES OF ARITHMETIC CONSTANTS 02080520 ! 212: C S06AF-2P 4.A 02090520 ! 213: C 02100520 ! 214: CT008* TEST 008 **** FCVS PROGRAM 520 **** 02110520 ! 215: C 02120520 ! 216: C 02130520 ! 217: IVTNUM = 8 02140520 ! 218: RVCOMP=+RPN001 02150520 ! 219: RVCORR=+10.0 02160520 ! 220: IF (RVCOMP - 0.99995E+01) 20080, 10080, 40080 02170520 ! 221: 40080 IF (RVCOMP - 0.10001E+02) 10080, 10080, 20080 02180520 ! 222: 10080 IVPASS = IVPASS + 1 02190520 ! 223: WRITE (I02,80002) IVTNUM 02200520 ! 224: GO TO 0091 02210520 ! 225: 20080 IVFAIL = IVFAIL + 1 02220520 ! 226: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 02230520 ! 227: 0091 CONTINUE 02240520 ! 228: C 02250520 ! 229: CT009* TEST 009 **** FCVS PROGRAM 520 **** 02260520 ! 230: C 02270520 ! 231: C 02280520 ! 232: IVTNUM = 9 02290520 ! 233: RVCOMP=-RPN001 02300520 ! 234: RVCORR=-10.0 02310520 ! 235: IF (RVCOMP + 0.10001E+02) 20090, 10090, 40090 02320520 ! 236: 40090 IF (RVCOMP + 0.99995E+01) 10090, 10090, 20090 02330520 ! 237: 10090 IVPASS = IVPASS + 1 02340520 ! 238: WRITE (I02,80002) IVTNUM 02350520 ! 239: GO TO 0101 02360520 ! 240: 20090 IVFAIL = IVFAIL + 1 02370520 ! 241: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 02380520 ! 242: 0101 CONTINUE 02390520 ! 243: C 02400520 ! 244: CT010* TEST 010 **** FCVS PROGRAM 520 **** 02410520 ! 245: C 02420520 ! 246: IVTNUM = 10 02430520 ! 247: RVCOMP=RPN001+RPN002 02440520 ! 248: RVCORR=15.0 02450520 ! 249: IF (RVCOMP - 0.14999E+02) 20100, 10100, 40100 02460520 ! 250: 40100 IF (RVCOMP - 0.15001E+02) 10100, 10100, 20100 02470520 ! 251: 10100 IVPASS = IVPASS + 1 02480520 ! 252: WRITE (I02,80002) IVTNUM 02490520 ! 253: GO TO 0111 02500520 ! 254: 20100 IVFAIL = IVFAIL + 1 02510520 ! 255: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 02520520 ! 256: 0111 CONTINUE 02530520 ! 257: C 02540520 ! 258: CT011* TEST 011 **** FCVS PROGRAM 520 **** 02550520 ! 259: C 02560520 ! 260: C 02570520 ! 261: IVTNUM = 11 02580520 ! 262: RVCOMP=RPN001-RPN002 02590520 ! 263: RVCORR=5.0 02600520 ! 264: IF (RVCOMP - 0.49997E+01) 20110, 10110, 40110 02610520 ! 265: 40110 IF (RVCOMP - 0.50003E+01) 10110, 10110, 20110 02620520 ! 266: 10110 IVPASS = IVPASS + 1 02630520 ! 267: WRITE (I02,80002) IVTNUM 02640520 ! 268: GO TO 0121 02650520 ! 269: 20110 IVFAIL = IVFAIL + 1 02660520 ! 270: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 02670520 ! 271: 0121 CONTINUE 02680520 ! 272: C 02690520 ! 273: CT012* TEST 012 **** FCVS PROGRAM 520 **** 02700520 ! 274: C 02710520 ! 275: C 02720520 ! 276: IVTNUM = 12 02730520 ! 277: RVCOMP=RPN001*RPN002 02740520 ! 278: RVCORR=50.0 02750520 ! 279: IF (RVCOMP - 0.49997E+02) 20120, 10120, 40120 02760520 ! 280: 40120 IF (RVCOMP - 0.50003E+02) 10120, 10120, 20120 02770520 ! 281: 10120 IVPASS = IVPASS + 1 02780520 ! 282: WRITE (I02,80002) IVTNUM 02790520 ! 283: GO TO 0131 02800520 ! 284: 20120 IVFAIL = IVFAIL + 1 02810520 ! 285: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 02820520 ! 286: 0131 CONTINUE 02830520 ! 287: C 02840520 ! 288: CT013* TEST 013 **** FCVS PROGRAM 520 **** 02850520 ! 289: C 02860520 ! 290: IVTNUM = 13 02870520 ! 291: RVCOMP=RPN001/RPN002 02880520 ! 292: RVCORR=2.0 02890520 ! 293: IF (RVCOMP - 0.19999E+01) 20130, 10130, 40130 02900520 ! 294: 40130 IF (RVCOMP - 0.20001E+01) 10130, 10130, 20130 02910520 ! 295: 10130 IVPASS = IVPASS + 1 02920520 ! 296: WRITE (I02,80002) IVTNUM 02930520 ! 297: GO TO 0141 02940520 ! 298: 20130 IVFAIL = IVFAIL + 1 02950520 ! 299: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 02960520 ! 300: 0141 CONTINUE 02970520 ! 301: C 02980520 ! 302: CT014* TEST 014 **** FCVS PROGRAM 520 **** 02990520 ! 303: C 03000520 ! 304: IVTNUM = 14 03010520 ! 305: RVCOMP=RPN001**RPN002 03020520 ! 306: RVCORR=100000.0 03030520 ! 307: IF (RVCOMP - 0.99995E+05) 20140, 10140, 40140 03040520 ! 308: 40140 IF (RVCOMP - 0.10001E+06) 10140, 10140, 20140 03050520 ! 309: 10140 IVPASS = IVPASS + 1 03060520 ! 310: WRITE (I02,80002) IVTNUM 03070520 ! 311: GO TO 0151 03080520 ! 312: 20140 IVFAIL = IVFAIL + 1 03090520 ! 313: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 03100520 ! 314: 0151 CONTINUE 03110520 ! 315: C 03120520 ! 316: C 03130520 ! 317: C TEST 15 - 18 REPEATS TEST 1 - 7 USING MORE THAN ONE OPERATOR 03140520 ! 318: C S06AF-2P 4.C 03150520 ! 319: C 03160520 ! 320: CT015* TEST 015 **** FCVS PROGRAM 520 **** 03170520 ! 321: C 03180520 ! 322: C 03190520 ! 323: IVTNUM = 15 03200520 ! 324: IVCOMP=IPN001+IPN001-IPN002 03210520 ! 325: IVCORR=15 03220520 ! 326: 40150 IF (IVCOMP - 15) 20150, 10150, 20150 03230520 ! 327: 10150 IVPASS = IVPASS + 1 03240520 ! 328: WRITE (I02,80002) IVTNUM 03250520 ! 329: GO TO 0161 03260520 ! 330: 20150 IVFAIL = IVFAIL + 1 03270520 ! 331: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03280520 ! 332: 0161 CONTINUE 03290520 ! 333: C 03300520 ! 334: CT016* TEST 016 **** FCVS PROGRAM 520 **** 03310520 ! 335: C 03320520 ! 336: IVTNUM = 16 03330520 ! 337: IVCOMP=IPN001+IPN001-IPN002*IPN002 03340520 ! 338: IVCORR=-5 03350520 ! 339: 40160 IF (IVCOMP + 5) 20160, 10160, 20160 03360520 ! 340: 10160 IVPASS = IVPASS + 1 03370520 ! 341: WRITE (I02,80002) IVTNUM 03380520 ! 342: GO TO 0171 03390520 ! 343: 20160 IVFAIL = IVFAIL + 1 03400520 ! 344: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03410520 ! 345: 0171 CONTINUE 03420520 ! 346: C 03430520 ! 347: CT017* TEST 017 **** FCVS PROGRAM 520 **** 03440520 ! 348: C 03450520 ! 349: C 03460520 ! 350: IVTNUM = 17 03470520 ! 351: IVCOMP=IPN001+IPN001-IPN002*IPN002/IPN003 03480520 ! 352: IVCORR=15 03490520 ! 353: 40170 IF (IVCOMP - 15) 20170, 10170, 20170 03500520 ! 354: 10170 IVPASS = IVPASS + 1 03510520 ! 355: WRITE (I02,80002) IVTNUM 03520520 ! 356: GO TO 0181 03530520 ! 357: 20170 IVFAIL = IVFAIL + 1 03540520 ! 358: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03550520 ! 359: 0181 CONTINUE 03560520 ! 360: C 03570520 ! 361: CT018* TEST 018 **** FCVS PROGRAM 520 **** 03580520 ! 362: C 03590520 ! 363: IVTNUM = 18 03600520 ! 364: IVCOMP=IPN001+IPN001**IPN002-IPN002*IPN002/IPN003 03610520 ! 365: IVCORR=100005 03620520 ! 366: 40180 IF (IVCOMP - 100005) 20180, 10180, 20180 03630520 ! 367: 10180 IVPASS = IVPASS + 1 03640520 ! 368: WRITE (I02,80002) IVTNUM 03650520 ! 369: GO TO 0191 03660520 ! 370: 20180 IVFAIL = IVFAIL + 1 03670520 ! 371: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03680520 ! 372: 0191 CONTINUE 03690520 ! 373: C 03700520 ! 374: C 03710520 ! 375: C TEST 19 - 22 REPEATS TEST 8 - 14 USING MORE THAN ONE OPERATOR 03720520 ! 376: C S06AF-2P 4.C 03730520 ! 377: C 03740520 ! 378: CT019* TEST 019 **** FCVS PROGRAM 520 **** 03750520 ! 379: C 03760520 ! 380: IVTNUM = 19 03770520 ! 381: RVCOMP=RPN001+RPN001-RPN002 03780520 ! 382: RVCORR=15.0 03790520 ! 383: IF (RVCOMP - 0.14999E+02) 20190, 10190, 40190 03800520 ! 384: 40190 IF (RVCOMP - 0.15001E+02) 10190, 10190, 20190 03810520 ! 385: 10190 IVPASS = IVPASS + 1 03820520 ! 386: WRITE (I02,80002) IVTNUM 03830520 ! 387: GO TO 0201 03840520 ! 388: 20190 IVFAIL = IVFAIL + 1 03850520 ! 389: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 03860520 ! 390: 0201 CONTINUE 03870520 ! 391: C 03880520 ! 392: CT020* TEST 020 **** FCVS PROGRAM 520 **** 03890520 ! 393: C 03900520 ! 394: IVTNUM = 20 03910520 ! 395: RVCOMP=RPN001+RPN001-RPN002*RPN002 03920520 ! 396: RVCORR=-5.0 03930520 ! 397: IF (RVCOMP + 0.50003E+01) 20200, 10200, 40200 03940520 ! 398: 40200 IF (RVCOMP + 0.49997E+01) 10200, 10200, 20200 03950520 ! 399: 10200 IVPASS = IVPASS + 1 03960520 ! 400: WRITE (I02,80002) IVTNUM 03970520 ! 401: GO TO 0211 03980520 ! 402: 20200 IVFAIL = IVFAIL + 1 03990520 ! 403: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 04000520 ! 404: 0211 CONTINUE 04010520 ! 405: C 04020520 ! 406: CT021* TEST 021 **** FCVS PROGRAM 520 **** 04030520 ! 407: C 04040520 ! 408: IVTNUM = 21 04050520 ! 409: RVCOMP=RPN001+RPN001-RPN002*RPN002/RPN003 04060520 ! 410: RVCORR=15.0 04070520 ! 411: IF (RVCOMP - 0.14999E+02) 20210, 10210, 40210 04080520 ! 412: 40210 IF (RVCOMP - 0.15001E+02) 10210, 10210, 20210 04090520 ! 413: 10210 IVPASS = IVPASS + 1 04100520 ! 414: WRITE (I02,80002) IVTNUM 04110520 ! 415: GO TO 0221 04120520 ! 416: 20210 IVFAIL = IVFAIL + 1 04130520 ! 417: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 04140520 ! 418: 0221 CONTINUE 04150520 ! 419: C 04160520 ! 420: CT022* TEST 022 **** FCVS PROGRAM 520 **** 04170520 ! 421: C 04180520 ! 422: IVTNUM = 22 04190520 ! 423: RVCOMP=RPN001+RPN001**RPN002-RPN002*RPN002/RPN003 04200520 ! 424: RVCORR=100005.0 04210520 ! 425: IF (RVCOMP - 0.10000E+06) 20220, 10220, 40220 04220520 ! 426: 40220 IF (RVCOMP - 0.10001E+06) 10220, 10220, 20220 04230520 ! 427: 10220 IVPASS = IVPASS + 1 04240520 ! 428: WRITE (I02,80002) IVTNUM 04250520 ! 429: GO TO 0231 04260520 ! 430: 20220 IVFAIL = IVFAIL + 1 04270520 ! 431: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 04280520 ! 432: 0231 CONTINUE 04290520 ! 433: C 04300520 ! 434: C 04310520 ! 435: C TEST 23 - 26 REPEATS TEST 15 - 18 USING PARENTHESES 04320520 ! 436: C S06AF-2P 4.D 04330520 ! 437: C 04340520 ! 438: C 04350520 ! 439: C 04360520 ! 440: CT023* TEST 023 **** FCVS PROGRAM 520 **** 04370520 ! 441: C 04380520 ! 442: IVTNUM = 23 04390520 ! 443: IVCOMP=IPN001+(IPN001-IPN002) 04400520 ! 444: IVCORR=15 04410520 ! 445: 40230 IF (IVCOMP - 15) 20230, 10230, 20230 04420520 ! 446: 10230 IVPASS = IVPASS + 1 04430520 ! 447: WRITE (I02,80002) IVTNUM 04440520 ! 448: GO TO 0241 04450520 ! 449: 20230 IVFAIL = IVFAIL + 1 04460520 ! 450: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04470520 ! 451: 0241 CONTINUE 04480520 ! 452: C 04490520 ! 453: CT024* TEST 024 **** FCVS PROGRAM 520 **** 04500520 ! 454: C 04510520 ! 455: IVTNUM = 24 04520520 ! 456: IVCOMP=((IPN001+IPN001)-IPN002)*IPN002 04530520 ! 457: IVCORR=75 04540520 ! 458: 40240 IF (IVCOMP - 75) 20240, 10240, 20240 04550520 ! 459: 10240 IVPASS = IVPASS + 1 04560520 ! 460: WRITE (I02,80002) IVTNUM 04570520 ! 461: GO TO 0251 04580520 ! 462: 20240 IVFAIL = IVFAIL + 1 04590520 ! 463: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04600520 ! 464: 0251 CONTINUE 04610520 ! 465: C 04620520 ! 466: CT025* TEST 025 **** FCVS PROGRAM 520 **** 04630520 ! 467: C 04640520 ! 468: IVTNUM = 25 04650520 ! 469: IVCOMP=(IPN001+IPN001)-IPN002*(IPN002/IPN003) 04660520 ! 470: IVCORR=15 04670520 ! 471: 40250 IF (IVCOMP - 15) 20250, 10250, 20250 04680520 ! 472: 10250 IVPASS = IVPASS + 1 04690520 ! 473: WRITE (I02,80002) IVTNUM 04700520 ! 474: GO TO 0261 04710520 ! 475: 20250 IVFAIL = IVFAIL + 1 04720520 ! 476: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04730520 ! 477: 0261 CONTINUE 04740520 ! 478: C 04750520 ! 479: CT026* TEST 026 **** FCVS PROGRAM 520 **** 04760520 ! 480: C 04770520 ! 481: IVTNUM = 26 04780520 ! 482: IVCOMP=(IPN001+IPN001)**2-((IPN002*IPN002)/IPN003) 04790520 ! 483: IVCORR=395 04800520 ! 484: 40260 IF (IVCOMP - 395) 20260, 10260, 20260 04810520 ! 485: 10260 IVPASS = IVPASS + 1 04820520 ! 486: WRITE (I02,80002) IVTNUM 04830520 ! 487: GO TO 0271 04840520 ! 488: 20260 IVFAIL = IVFAIL + 1 04850520 ! 489: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04860520 ! 490: 0271 CONTINUE 04870520 ! 491: C 04880520 ! 492: C TEST 27 - 30 REPEATS TEST 19 - 22 USING PARENTHESES 04890520 ! 493: C S06AF-2P 4.D 04900520 ! 494: C 04910520 ! 495: CT027* TEST 027 **** FCVS PROGRAM 520 **** 04920520 ! 496: C 04930520 ! 497: IVTNUM = 27 04940520 ! 498: RVCOMP=RPN001+(RPN001-RPN002) 04950520 ! 499: RVCORR=15.0 04960520 ! 500: IF (RVCOMP - 0.14999E+02) 20270, 10270, 40270 04970520 ! 501: 40270 IF (RVCOMP - 0.15001E+02) 10270, 10270, 20270 04980520 ! 502: 10270 IVPASS = IVPASS + 1 04990520 ! 503: WRITE (I02,80002) IVTNUM 05000520 ! 504: GO TO 0281 05010520 ! 505: 20270 IVFAIL = IVFAIL + 1 05020520 ! 506: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 05030520 ! 507: 0281 CONTINUE 05040520 ! 508: C 05050520 ! 509: CT028* TEST 028 **** FCVS PROGRAM 520 **** 05060520 ! 510: C 05070520 ! 511: IVTNUM = 28 05080520 ! 512: RVCOMP=((RPN001+RPN001)-RPN002)*RPN002 05090520 ! 513: RVCORR=75.0 05100520 ! 514: IF (RVCOMP - 0.74996E+02) 20280, 10280, 40280 05110520 ! 515: 40280 IF (RVCOMP - 0.75004E+02) 10280, 10280, 20280 05120520 ! 516: 10280 IVPASS = IVPASS + 1 05130520 ! 517: WRITE (I02,80002) IVTNUM 05140520 ! 518: GO TO 0291 05150520 ! 519: 20280 IVFAIL = IVFAIL + 1 05160520 ! 520: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 05170520 ! 521: 0291 CONTINUE 05180520 ! 522: C 05190520 ! 523: CT029* TEST 029 **** FCVS PROGRAM 520 **** 05200520 ! 524: C 05210520 ! 525: IVTNUM = 29 05220520 ! 526: RVCOMP=(RPN001+RPN001)-RPN002*(RPN002/RPN003) 05230520 ! 527: RVCORR=15.0 05240520 ! 528: IF (RVCOMP - 0.14999E+02) 20290, 10290, 40290 05250520 ! 529: 40290 IF (RVCOMP - 0.15001E+02) 10290, 10290, 20290 05260520 ! 530: 10290 IVPASS = IVPASS + 1 05270520 ! 531: WRITE (I02,80002) IVTNUM 05280520 ! 532: GO TO 0301 05290520 ! 533: 20290 IVFAIL = IVFAIL + 1 05300520 ! 534: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 05310520 ! 535: 0301 CONTINUE 05320520 ! 536: C 05330520 ! 537: CT030* TEST 030 **** FCVS PROGRAM 520 **** 05340520 ! 538: C 05350520 ! 539: C 05360520 ! 540: IVTNUM = 30 05370520 ! 541: RVCOMP=(RPN001+RPN001)**3.0-((RPN002*RPN002)/RPN003) 05380520 ! 542: RVCORR=7995.0 05390520 ! 543: IF (RVCOMP - 0.79946E+04) 20300, 10300, 40300 05400520 ! 544: 40300 IF (RVCOMP - 0.79954E+04) 10300, 10300, 20300 05410520 ! 545: 10300 IVPASS = IVPASS + 1 05420520 ! 546: WRITE (I02,80002) IVTNUM 05430520 ! 547: GO TO 0311 05440520 ! 548: 20300 IVFAIL = IVFAIL + 1 05450520 ! 549: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 05460520 ! 550: 0311 CONTINUE 05470520 ! 551: C 05480520 ! 552: CBB** ********************** BBCSUM0 **********************************05490520 ! 553: C**** WRITE OUT TEST SUMMARY 05500520 ! 554: C**** 05510520 ! 555: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 05520520 ! 556: WRITE (I02, 90004) 05530520 ! 557: WRITE (I02, 90014) 05540520 ! 558: WRITE (I02, 90004) 05550520 ! 559: WRITE (I02, 90020) IVPASS 05560520 ! 560: WRITE (I02, 90022) IVFAIL 05570520 ! 561: WRITE (I02, 90024) IVDELE 05580520 ! 562: WRITE (I02, 90026) IVINSP 05590520 ! 563: WRITE (I02, 90028) IVTOTN, IVTOTL 05600520 ! 564: CBE** ********************** BBCSUM0 **********************************05610520 ! 565: CBB** ********************** BBCFOOT0 **********************************05620520 ! 566: C**** WRITE OUT REPORT FOOTINGS 05630520 ! 567: C**** 05640520 ! 568: WRITE (I02,90016) ZPROG, ZPROG 05650520 ! 569: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 05660520 ! 570: WRITE (I02,90019) 05670520 ! 571: CBE** ********************** BBCFOOT0 **********************************05680520 ! 572: 90001 FORMAT (1H ,56X,5HFM520) 05690520 ! 573: 90000 FORMAT (1H ,50X,20HEND OF PROGRAM FM520) 05700520 ! 574: CBB** ********************** BBCFMT0A **********************************05710520 ! 575: C**** FORMATS FOR TEST DETAIL LINES 05720520 ! 576: C**** 05730520 ! 577: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 05740520 ! 578: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 05750520 ! 579: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 05760520 ! 580: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 05770520 ! 581: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 05780520 ! 582: 1I6,/,1H ,15X,10HCORRECT= ,I6) 05790520 ! 583: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 05800520 ! 584: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 05810520 ! 585: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 05820520 ! 586: 1A21,/,1H ,16X,10HCORRECT= ,A21) 05830520 ! 587: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 05840520 ! 588: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 05850520 ! 589: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 05860520 ! 590: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 05870520 ! 591: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 05880520 ! 592: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 05890520 ! 593: 80050 FORMAT (1H ,48X,A31) 05900520 ! 594: CBE** ********************** BBCFMT0A **********************************05910520 ! 595: CBB** ********************** BBCFMAT1 **********************************05920520 ! 596: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 05930520 ! 597: C**** 05940520 ! 598: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 05950520 ! 599: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 05960520 ! 600: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 05970520 ! 601: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 05980520 ! 602: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 05990520 ! 603: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 06000520 ! 604: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 06010520 ! 605: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 06020520 ! 606: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 06030520 ! 607: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 06040520 ! 608: 21H(,F12.5,2H, ,F12.5,1H)) 06050520 ! 609: CBE** ********************** BBCFMAT1 **********************************06060520 ! 610: CBB** ********************** BBCFMT0B **********************************06070520 ! 611: C**** FORMAT STATEMENTS FOR PAGE HEADERS 06080520 ! 612: C**** 06090520 ! 613: 90002 FORMAT (1H1) 06100520 ! 614: 90004 FORMAT (1H ) 06110520 ! 615: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 06120520 ! 616: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 06130520 ! 617: 90008 FORMAT (1H ,21X,A13,A17) 06140520 ! 618: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 06150520 ! 619: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 06160520 ! 620: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 06170520 ! 621: 1 7X,7HREMARKS,24X) 06180520 ! 622: 90014 FORMAT (1H ,46H----------------------------------------------, 06190520 ! 623: 1 33H---------------------------------) 06200520 ! 624: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 06210520 ! 625: C**** 06220520 ! 626: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 06230520 ! 627: C**** 06240520 ! 628: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 06250520 ! 629: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 06260520 ! 630: 1 A13) 06270520 ! 631: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 06280520 ! 632: C**** 06290520 ! 633: C**** FORMAT STATEMENTS FOR RUN SUMMARY 06300520 ! 634: C**** 06310520 ! 635: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 06320520 ! 636: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 06330520 ! 637: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 06340520 ! 638: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 06350520 ! 639: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 06360520 ! 640: CBE** ********************** BBCFMT0B **********************************06370520 ! 641: END 06380520
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.