![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM906.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 FM906.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***********************************************************************00010906 ! 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 00020906 ! 6: C***** FM906 00030906 ! 7: C***** LSTDI2 - (372) 00040906 ! 8: C***** 00050906 ! 9: C***********************************************************************00060906 ! 10: C***** GENERAL PURPOSE ANS REF 00070906 ! 11: C***** TEST LIST DIRECTED INPUT 13.6 00080906 ! 12: C***** DOUBLE PRECISION, COMPLEX DATA TYPES INCLUDED 12.4 00090906 ! 13: C***** 00100906 ! 14: CBB** ********************** BBCCOMNT **********************************00110906 ! 15: C**** 00120906 ! 16: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130906 ! 17: C**** VERSION 2.0 00140906 ! 18: C**** 00150906 ! 19: C**** 00160906 ! 20: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170906 ! 21: C**** GENERAL SERVICES ADMINISTRATION 00180906 ! 22: C**** FEDERAL SOFTWARE TESTING CENTER 00190906 ! 23: C**** 5203 LEESBURG PIKE, SUITE 1100 00200906 ! 24: C**** FALLS CHURCH, VA. 22041 00210906 ! 25: C**** 00220906 ! 26: C**** (703) 756-6153 00230906 ! 27: C**** 00240906 ! 28: CBE** ********************** BBCCOMNT **********************************00250906 ! 29: C***** 00260906 ! 30: C INPUT DATA TO THIS SEGMENT CONSISTS OF 12 CARD IMAGES IN COL. 1-44 00270906 ! 31: COL. 1-----------------------------------------44 00280906 ! 32: CARD 1 2.5D0 00290906 ! 33: CARD 2 1.5 2.5D0 3.5E0 00300906 ! 34: CARD 3 (3.0,4.0) 00310906 ! 35: CARD 4 (1.0,0.0) (0.0,0.0) (0.0,3.0) 00320906 ! 36: CARD 5 2, 2.5D0, 2.5D0, T, (3.0,4.0), 'TEST' 00330906 ! 37: CARD 6 ( 2.5 , 3.5 ) 00340906 ! 38: CARD 7 (1.0 , 00350906 ! 39: CARD 8 2.0) 00360906 ! 40: CARD 9 , (2.0, 3.0),,6.0D0, 2*, 00370906 ! 41: CARD 10 1.0D0 (2.0, 2.0) 3.0D0 (4.0, 4.0) 5.0D0 00380906 ! 42: CARD 11 6.0D0 (7.0, 7.0) / 8.0D0 (9.0, 9.0) 10.0D0 00390906 ! 43: CARD 12 2.0D0 4.0D0 / 6.0D0 8.0D0 10.0D0 00400906 ! 44: C***** 00410906 ! 45: C***** S P E C I F I C A T I O N S SEGMENT 372 00420906 ! 46: LOGICAL AVB 00430906 ! 47: CHARACTER A4VK*4,CVCORR*4 00440906 ! 48: DOUBLE PRECISION AVD, BVD, CVD, DVCORR 00450906 ! 49: DOUBLE PRECISION A1D(4) 00460906 ! 50: COMPLEX AVC, BVC, CVC, ZVCORR 00470906 ! 51: REAL R2E(6) 00480906 ! 52: EQUIVALENCE (AVC,R2E(1)),(BVC,R2E(3)),(CVC,R2E(5)) 00490906 ! 53: C***** 00500906 ! 54: CBB** ********************** BBCINITA **********************************00510906 ! 55: C**** SPECIFICATION STATEMENTS 00520906 ! 56: C**** 00530906 ! 57: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00540906 ! 58: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00550906 ! 59: CBE** ********************** BBCINITA **********************************00560906 ! 60: CBB** ********************** BBCINITB **********************************00570906 ! 61: C**** INITIALIZE SECTION 00580906 ! 62: DATA ZVERS, ZVERSD, ZDATE 00590906 ! 63: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00600906 ! 64: DATA ZCOMPL, ZNAME, ZTAPE 00610906 ! 65: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00620906 ! 66: DATA ZPROJ, ZTAPED, ZPROG 00630906 ! 67: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00640906 ! 68: DATA REMRKS /' '/ 00650906 ! 69: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00660906 ! 70: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00670906 ! 71: C**** 00680906 ! 72: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00690906 ! 73: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00700906 ! 74: CZ03 ZPROG = 'PROGRAM NAME' 00710906 ! 75: ZDATE = '07-Nov-85 ' *RP ! 76: ZCOMPL = 'CCI 5.2 ' *RP ! 77: ZPROJ = 'TC-85- -410' *RP ! 78: ZNAME = ' ' *RP ! 79: ZTAPE = ' ' *RP ! 80: ZTAPED = '850703 ' *RP ! 81: C 00780906 ! 82: IVPASS = 0 00790906 ! 83: IVFAIL = 0 00800906 ! 84: IVDELE = 0 00810906 ! 85: IVINSP = 0 00820906 ! 86: IVTOTL = 0 00830906 ! 87: IVTOTN = 0 00840906 ! 88: ICZERO = 0 00850906 ! 89: C 00860906 ! 90: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00870906 ! 91: I01 = 05 00880906 ! 92: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00890906 ! 93: I02 = 06 00900906 ! 94: C 00910906 ! 95: I01 = 5 00920906 ! 96: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00930906 ! 97: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00940906 ! 98: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00950906 ! 99: C 00960906 ! 100: I02 = 6 00970906 ! 101: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00980906 ! 102: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00990906 ! 103: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 01000906 ! 104: C 01010906 ! 105: CBE** ********************** BBCINITB **********************************01020906 ! 106: IRVI = I01 01030906 ! 107: NUVI = I02 01040906 ! 108: IVTOTL = 28 01050906 ! 109: ZPROG = 'FM906' 01060906 ! 110: CBB** ********************** BBCHED0A **********************************01070906 ! 111: C**** 01080906 ! 112: C**** WRITE REPORT TITLE 01090906 ! 113: C**** 01100906 ! 114: WRITE (I02, 90002) 01110906 ! 115: WRITE (I02, 90006) 01120906 ! 116: WRITE (I02, 90007) 01130906 ! 117: WRITE (I02, 90008) ZVERS, ZVERSD 01140906 ! 118: WRITE (I02, 90009) ZPROG, ZPROG 01150906 ! 119: WRITE (I02, 90010) ZDATE, ZCOMPL 01160906 ! 120: CBE** ********************** BBCHED0A **********************************01170906 ! 121: C***** 01180906 ! 122: C***** HEADING FOR SEGMENT 372 01190906 ! 123: WRITE(NUVI,37200) 01200906 ! 124: 37200 FORMAT(1H , /16H LSTDI2 - (372) , 01210906 ! 125: 1 20H LIST DIRECTED INPUT, 01220906 ! 126: 2 32H FOR D.P. AND COMPLEX DATA TYPES// 01230906 ! 127: 3 22H ANS REF. - 13.6 12.4) 01240906 ! 128: CBB** ********************** BBCHED0B **********************************01250906 ! 129: C**** WRITE DETAIL REPORT HEADERS 01260906 ! 130: C**** 01270906 ! 131: WRITE (I02,90004) 01280906 ! 132: WRITE (I02,90004) 01290906 ! 133: WRITE (I02,90013) 01300906 ! 134: WRITE (I02,90014) 01310906 ! 135: WRITE (I02,90015) IVTOTL 01320906 ! 136: CBE** ********************** BBCHED0B **********************************01330906 ! 137: CT001* TEST 1 - CARD 1 DOUBLE PRECISION 01340906 ! 138: IVTNUM = 1 01350906 ! 139: READ(IRVI, *) AVD 01360906 ! 140: IF (AVD - 0.2499999998D+01) 20010, 10010, 40010 01370906 ! 141: 40010 IF (AVD - 0.2500000002D+01) 10010, 10010, 20010 01380906 ! 142: 10010 IVPASS = IVPASS + 1 01390906 ! 143: WRITE (NUVI, 80002) IVTNUM 01400906 ! 144: GO TO 0011 01410906 ! 145: 20010 IVFAIL = IVFAIL + 1 01420906 ! 146: DVCORR = 2.5D0 01430906 ! 147: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01440906 ! 148: 0011 CONTINUE 01450906 ! 149: C***** TESTS 2 THRU 4 - CARD 2 SEVERAL DOUBLE PRECISION 01460906 ! 150: CT002* TEST 2 01470906 ! 151: IVTNUM = 2 01480906 ! 152: READ(IRVI, *) AVD, BVD, CVD 01490906 ! 153: IF (AVD - 0.1499999999D+01) 20020, 10020, 40020 01500906 ! 154: 40020 IF (AVD - 0.1500000001D+01) 10020, 10020, 20020 01510906 ! 155: 10020 IVPASS = IVPASS + 1 01520906 ! 156: WRITE (NUVI, 80002) IVTNUM 01530906 ! 157: GO TO 0021 01540906 ! 158: 20020 IVFAIL = IVFAIL + 1 01550906 ! 159: DVCORR = 1.5D0 01560906 ! 160: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01570906 ! 161: 0021 CONTINUE 01580906 ! 162: CT003* TEST 3 01590906 ! 163: IVTNUM = 3 01600906 ! 164: IF (BVD - 0.2499999998D+01) 20030, 10030, 40030 01610906 ! 165: 40030 IF (BVD - 0.2500000002D+01) 10030, 10030, 20030 01620906 ! 166: 10030 IVPASS = IVPASS + 1 01630906 ! 167: WRITE (NUVI, 80002) IVTNUM 01640906 ! 168: GO TO 0031 01650906 ! 169: 20030 IVFAIL = IVFAIL + 1 01660906 ! 170: DVCORR = 2.5D0 01670906 ! 171: WRITE (NUVI, 80031) IVTNUM, BVD, DVCORR 01680906 ! 172: 0031 CONTINUE 01690906 ! 173: CT004* TEST 4 01700906 ! 174: IVTNUM = 4 01710906 ! 175: IF (CVD - 0.3499999998D+01) 20040, 10040, 40040 01720906 ! 176: 40040 IF (CVD - 0.3500000002D+01) 10040, 10040, 20040 01730906 ! 177: 10040 IVPASS = IVPASS + 1 01740906 ! 178: WRITE (NUVI, 80002) IVTNUM 01750906 ! 179: GO TO 0041 01760906 ! 180: 20040 IVFAIL = IVFAIL + 1 01770906 ! 181: DVCORR = 3.5D0 01780906 ! 182: WRITE (NUVI, 80031) IVTNUM, CVD, DVCORR 01790906 ! 183: 0041 CONTINUE 01800906 ! 184: CT005* TEST 5 - CARD 3 COMPLEX 01810906 ! 185: IVTNUM = 5 01820906 ! 186: READ(IRVI, *) AVC 01830906 ! 187: IF (R2E(1) - 0.29998E+01) 20050, 40052, 40051 01840906 ! 188: 40051 IF (R2E(1) - 0.30002E+01) 40052, 40052, 20050 01850906 ! 189: 40052 IF (R2E(2) - 0.39998E+01) 20050, 10050, 40050 01860906 ! 190: 40050 IF (R2E(2) - 0.40002E+01) 10050, 10050, 20050 01870906 ! 191: 10050 IVPASS = IVPASS + 1 01880906 ! 192: WRITE (NUVI, 80002) IVTNUM 01890906 ! 193: GO TO 0051 01900906 ! 194: 20050 IVFAIL = IVFAIL + 1 01910906 ! 195: ZVCORR = (3.0, 4.0) 01920906 ! 196: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 01930906 ! 197: 0051 CONTINUE 01940906 ! 198: C***** TESTS 6 THRU 8 - CARD 4 SEVERAL COMPLEX 01950906 ! 199: CT006* TEST 6 01960906 ! 200: IVTNUM = 6 01970906 ! 201: READ(IRVI, *) AVC, BVC, CVC 01980906 ! 202: IF (R2E(1) - 0.99995E+00) 20060, 40062, 40061 01990906 ! 203: 40061 IF (R2E(1) - 0.10001E+01) 40062, 40062, 20060 02000906 ! 204: 40062 IF (R2E(2) + 0.50000E-04) 20060, 10060, 40060 02010906 ! 205: 40060 IF (R2E(2) - 0.50000E-04) 10060, 10060, 20060 02020906 ! 206: 10060 IVPASS = IVPASS + 1 02030906 ! 207: WRITE (NUVI, 80002) IVTNUM 02040906 ! 208: GO TO 0061 02050906 ! 209: 20060 IVFAIL = IVFAIL + 1 02060906 ! 210: ZVCORR = (1.0, 0.0) 02070906 ! 211: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 02080906 ! 212: 0061 CONTINUE 02090906 ! 213: CT007* TEST 7 02100906 ! 214: IVTNUM = 7 02110906 ! 215: IF (R2E(3) + 0.50000E-04) 20070, 40072, 40071 02120906 ! 216: 40071 IF (R2E(3) - 0.50000E-04) 40072, 40072, 20070 02130906 ! 217: 40072 IF (R2E(4) + 0.50000E-04) 20070, 10070, 40070 02140906 ! 218: 40070 IF (R2E(4) - 0.50000E-04) 10070, 10070, 20070 02150906 ! 219: 10070 IVPASS = IVPASS + 1 02160906 ! 220: WRITE (NUVI, 80002) IVTNUM 02170906 ! 221: GO TO 0071 02180906 ! 222: 20070 IVFAIL = IVFAIL + 1 02190906 ! 223: ZVCORR = (0.0, 0.0) 02200906 ! 224: WRITE (NUVI, 80045) IVTNUM, BVC, ZVCORR 02210906 ! 225: 0071 CONTINUE 02220906 ! 226: CT008* TEST 8 02230906 ! 227: IVTNUM = 8 02240906 ! 228: IF (R2E(5) + 0.50000E-04) 20080, 40082, 40081 02250906 ! 229: 40081 IF (R2E(5) - 0.50000E-04) 40082, 40082, 20080 02260906 ! 230: 40082 IF (R2E(6) - 0.29998E+01) 20080, 10080, 40080 02270906 ! 231: 40080 IF (R2E(6) - 0.30002E+01) 10080, 10080, 20080 02280906 ! 232: 10080 IVPASS = IVPASS + 1 02290906 ! 233: WRITE (NUVI, 80002) IVTNUM 02300906 ! 234: GO TO 0081 02310906 ! 235: 20080 IVFAIL = IVFAIL + 1 02320906 ! 236: ZVCORR = (0.0, 3.0) 02330906 ! 237: WRITE (NUVI, 80045) IVTNUM, CVC, ZVCORR 02340906 ! 238: 0081 CONTINUE 02350906 ! 239: C***** TESTS 9 THRU 14 - CARD 5 MIXED LIST 02360906 ! 240: CT009* TEST 9 02370906 ! 241: IVTNUM = 9 02380906 ! 242: READ(IRVI, *) IVI, AVD, AVS, AVB, AVC, A4VK 02390906 ! 243: IF (IVI - 2) 20090, 10090, 20090 02400906 ! 244: 10090 IVPASS = IVPASS + 1 02410906 ! 245: WRITE (NUVI, 80002) IVTNUM 02420906 ! 246: GO TO 0091 02430906 ! 247: 20090 IVFAIL = IVFAIL + 1 02440906 ! 248: IVCORR = 2 02450906 ! 249: WRITE (NUVI, 80010) IVTNUM, IVI, IVCORR 02460906 ! 250: 0091 CONTINUE 02470906 ! 251: CT010* TEST 10 02480906 ! 252: IVTNUM = 10 02490906 ! 253: IF (AVD - 0.2499999998D+01) 20100, 10100, 40100 02500906 ! 254: 40100 IF (AVD - 0.2500000002D+01) 10100, 10100, 20100 02510906 ! 255: 10100 IVPASS = IVPASS + 1 02520906 ! 256: WRITE (NUVI, 80002) IVTNUM 02530906 ! 257: GO TO 0101 02540906 ! 258: 20100 IVFAIL = IVFAIL + 1 02550906 ! 259: DVCORR = 2.5D0 02560906 ! 260: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02570906 ! 261: 0101 CONTINUE 02580906 ! 262: CT011* TEST 11 02590906 ! 263: IVTNUM = 11 02600906 ! 264: IF (AVS - 0.24998E+01) 20110, 10110, 40110 02610906 ! 265: 40110 IF (AVS - 0.25002E+01) 10110, 10110, 20110 02620906 ! 266: 10110 IVPASS = IVPASS + 1 02630906 ! 267: WRITE (NUVI, 80002) IVTNUM 02640906 ! 268: GO TO 0111 02650906 ! 269: 20110 IVFAIL = IVFAIL + 1 02660906 ! 270: RVCORR = 2.5 02670906 ! 271: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02680906 ! 272: 0111 CONTINUE 02690906 ! 273: CT012* TEST 12 02700906 ! 274: IVTNUM = 12 02710906 ! 275: IVCOMP = 0 02720906 ! 276: IF (AVB) IVCOMP = 1 02730906 ! 277: IF (IVCOMP - 1) 20120, 10120, 20120 02740906 ! 278: 10120 IVPASS = IVPASS + 1 02750906 ! 279: WRITE (NUVI, 80002) IVTNUM 02760906 ! 280: GO TO 0121 02770906 ! 281: 20120 IVFAIL = IVFAIL + 1 02780906 ! 282: LVCORR = 1 02790906 ! 283: REMRKS = '1 = TRUE ; 0 = FALSE' 02800906 ! 284: WRITE (NUVI, 80008) IVTNUM, REMRKS 02810906 ! 285: WRITE (NUVI, 80024) IVCOMP 02820906 ! 286: WRITE (NUVI, 80026) LVCORR 02830906 ! 287: 0121 CONTINUE 02840906 ! 288: C***** ADVANCE TO TOP-OF-PAGE AND WRITE HEADERS 02850906 ! 289: WRITE (NUVI, 90002) 02860906 ! 290: WRITE (NUVI, 90013) 02870906 ! 291: WRITE (NUVI, 90014) 02880906 ! 292: CT013* TEST 13 02890906 ! 293: IVTNUM = 13 02900906 ! 294: IF (R2E(1) - 0.29998E+01) 20130, 40132, 40131 02910906 ! 295: 40131 IF (R2E(1) - 0.30002E+01) 40132, 40132, 20130 02920906 ! 296: 40132 IF (R2E(2) - 0.39998E+01) 20130, 10130, 40130 02930906 ! 297: 40130 IF (R2E(2) - 0.40002E+01) 10130, 10130, 20130 02940906 ! 298: 10130 IVPASS = IVPASS + 1 02950906 ! 299: WRITE (NUVI, 80002) IVTNUM 02960906 ! 300: GO TO 0131 02970906 ! 301: 20130 IVFAIL = IVFAIL + 1 02980906 ! 302: ZVCORR = (3.0, 4.0) 02990906 ! 303: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 03000906 ! 304: 0131 CONTINUE 03010906 ! 305: CT014* TEST 14 03020906 ! 306: IVTNUM = 14 03030906 ! 307: IVCOMP = 0 03040906 ! 308: IF (A4VK.EQ.'TEST') IVCOMP = 1 03050906 ! 309: IF (IVCOMP - 1) 20140, 10140, 20140 03060906 ! 310: 10140 IVPASS = IVPASS + 1 03070906 ! 311: WRITE (NUVI, 80002) IVTNUM 03080906 ! 312: GO TO 0141 03090906 ! 313: 20140 IVFAIL = IVFAIL + 1 03100906 ! 314: CVCORR = 'TEST' 03110906 ! 315: WRITE (NUVI, 80018) IVTNUM, A4VK, CVCORR 03120906 ! 316: 0141 CONTINUE 03130906 ! 317: CT015* TEST 15 - CARD 6 COMPLEX CONSTANT W/EMBEDDED BLANKS 03140906 ! 318: IVTNUM = 15 03150906 ! 319: READ(IRVI, *) AVC 03160906 ! 320: IF (R2E(1) - 0.24998E+01) 20150, 40152, 40151 03170906 ! 321: 40151 IF (R2E(1) - 0.25002E+01) 40152, 40152, 20150 03180906 ! 322: 40152 IF (R2E(2) - 0.34998E+01) 20150, 10150, 40150 03190906 ! 323: 40150 IF (R2E(2) - 0.35002E+01) 10150, 10150, 20150 03200906 ! 324: 10150 IVPASS = IVPASS + 1 03210906 ! 325: WRITE (NUVI, 80002) IVTNUM 03220906 ! 326: GO TO 0151 03230906 ! 327: 20150 IVFAIL = IVFAIL + 1 03240906 ! 328: ZVCORR = (2.5, 3.5) 03250906 ! 329: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 03260906 ! 330: 0151 CONTINUE 03270906 ! 331: CT016* TEST 16 - CARDS 7-8 COMPLEX WITH EMBEDDED END-OF-RECORD 03280906 ! 332: IVTNUM = 16 03290906 ! 333: READ(IRVI, *) AVC 03300906 ! 334: IF (R2E(1) - 0.99995E+00) 20160, 40162, 40161 03310906 ! 335: 40161 IF (R2E(1) - 0.10001E+01) 40162, 40162, 20160 03320906 ! 336: 40162 IF (R2E(2) - 0.19999E+01) 20160, 10160, 40160 03330906 ! 337: 40160 IF (R2E(2) - 0.20001E+01) 10160, 10160, 20160 03340906 ! 338: 10160 IVPASS = IVPASS + 1 03350906 ! 339: WRITE (NUVI, 80002) IVTNUM 03360906 ! 340: GO TO 0161 03370906 ! 341: 20160 IVFAIL = IVFAIL + 1 03380906 ! 342: ZVCORR = (1.0, 2.0) 03390906 ! 343: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 03400906 ! 344: 0161 CONTINUE 03410906 ! 345: C***** TESTS 17 THRU 22 - CARD 9 NULL VALUES 03420906 ! 346: CT017* TEST 17 03430906 ! 347: IVTNUM = 17 03440906 ! 348: AVD = 1.0D0 03450906 ! 349: BVC = (4.0, 5.0) 03460906 ! 350: CVC = (7.0, 8.0) 03470906 ! 351: CVD = 9.0D0 03480906 ! 352: READ(IRVI, *) AVD, AVC, BVC, BVD, CVC, CVD 03490906 ! 353: IF (AVD - 0.9999999995D+00) 20170, 10170, 40170 03500906 ! 354: 40170 IF (AVD - 0.1000000001D+01) 10170, 10170, 20170 03510906 ! 355: 10170 IVPASS = IVPASS + 1 03520906 ! 356: WRITE (NUVI, 80002) IVTNUM 03530906 ! 357: GO TO 0171 03540906 ! 358: 20170 IVFAIL = IVFAIL + 1 03550906 ! 359: DVCORR = 1.0D0 03560906 ! 360: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03570906 ! 361: 0171 CONTINUE 03580906 ! 362: CT018* TEST 18 03590906 ! 363: IVTNUM = 18 03600906 ! 364: IF (R2E(1) - 0.19999E+01) 20180, 40182, 40181 03610906 ! 365: 40181 IF (R2E(1) - 0.20001E+01) 40182, 40182, 20180 03620906 ! 366: 40182 IF (R2E(2) - 0.29998E+01) 20180, 10180, 40180 03630906 ! 367: 40180 IF (R2E(2) - 0.30002E+01) 10180, 10180, 20180 03640906 ! 368: 10180 IVPASS = IVPASS + 1 03650906 ! 369: WRITE (NUVI, 80002) IVTNUM 03660906 ! 370: GO TO 0181 03670906 ! 371: 20180 IVFAIL = IVFAIL + 1 03680906 ! 372: ZVCORR = (2.0, 3.0) 03690906 ! 373: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 03700906 ! 374: 0181 CONTINUE 03710906 ! 375: CT019* TEST 19 03720906 ! 376: IVTNUM = 19 03730906 ! 377: IF (R2E(3) - 0.39998E+01) 20190, 40192, 40191 03740906 ! 378: 40191 IF (R2E(3) - 0.40002E+01) 40192, 40192, 20190 03750906 ! 379: 40192 IF (R2E(4) - 0.49997E+01) 20190, 10190, 40190 03760906 ! 380: 40190 IF (R2E(4) - 0.50003E+01) 10190, 10190, 20190 03770906 ! 381: 10190 IVPASS = IVPASS + 1 03780906 ! 382: WRITE (NUVI, 80002) IVTNUM 03790906 ! 383: GO TO 0191 03800906 ! 384: 20190 IVFAIL = IVFAIL + 1 03810906 ! 385: ZVCORR = (4.0, 5.0) 03820906 ! 386: WRITE (NUVI, 80045) IVTNUM, BVC, ZVCORR 03830906 ! 387: 0191 CONTINUE 03840906 ! 388: CT020* TEST 20 03850906 ! 389: IVTNUM = 20 03860906 ! 390: IF (BVD - 0.5999999997D+01) 20200, 10200, 40200 03870906 ! 391: 40200 IF (BVD - 0.6000000003D+01) 10200, 10200, 20200 03880906 ! 392: 10200 IVPASS = IVPASS + 1 03890906 ! 393: WRITE (NUVI, 80002) IVTNUM 03900906 ! 394: GO TO 0201 03910906 ! 395: 20200 IVFAIL = IVFAIL + 1 03920906 ! 396: DVCORR = 6.0D0 03930906 ! 397: WRITE (NUVI, 80031) IVTNUM, BVD, DVCORR 03940906 ! 398: 0201 CONTINUE 03950906 ! 399: CT021* TEST 21 03960906 ! 400: IVTNUM = 21 03970906 ! 401: IF (R2E(5) - 0.69996E+01) 20210, 40212, 40211 03980906 ! 402: 40211 IF (R2E(5) - 0.70004E+01) 40212, 40212, 20210 03990906 ! 403: 40212 IF (R2E(6) - 0.79996E+01) 20210, 10210, 40210 04000906 ! 404: 40210 IF (R2E(6) - 0.80004E+01) 10210, 10210, 20210 04010906 ! 405: 10210 IVPASS = IVPASS + 1 04020906 ! 406: WRITE (NUVI, 80002) IVTNUM 04030906 ! 407: GO TO 0211 04040906 ! 408: 20210 IVFAIL = IVFAIL + 1 04050906 ! 409: ZVCORR = (7.0, 8.0) 04060906 ! 410: WRITE (NUVI, 80045) IVTNUM, CVC, ZVCORR 04070906 ! 411: 0211 CONTINUE 04080906 ! 412: CT022* TEST 22 04090906 ! 413: IVTNUM = 22 04100906 ! 414: IF (CVD - 0.8999999995D+01) 20220, 10220, 40220 04110906 ! 415: 40220 IF (CVD - 0.9000000005D+01) 10220, 10220, 20220 04120906 ! 416: 10220 IVPASS = IVPASS + 1 04130906 ! 417: WRITE (NUVI, 80002) IVTNUM 04140906 ! 418: GO TO 0221 04150906 ! 419: 20220 IVFAIL = IVFAIL + 1 04160906 ! 420: DVCORR = 9.0D0 04170906 ! 421: WRITE (NUVI, 80031) IVTNUM, CVD, DVCORR 04180906 ! 422: 0221 CONTINUE 04190906 ! 423: C***** TESTS 23 THRU 27 - CARDS 10-11 SLASH TERMINATOR 04200906 ! 424: CT023* TEST 23 04210906 ! 425: IVTNUM = 23 04220906 ! 426: READ(IRVI, *) AVD, AVC, BVD, BVC, CVD 04230906 ! 427: READ(IRVI, *) AVD, AVC, BVD, BVC, CVD 04240906 ! 428: IF (AVD - 0.5999999997D+01) 20230, 10230, 40230 04250906 ! 429: 40230 IF (AVD - 0.6000000003D+01) 10230, 10230, 20230 04260906 ! 430: 10230 IVPASS = IVPASS + 1 04270906 ! 431: WRITE (NUVI, 80002) IVTNUM 04280906 ! 432: GO TO 0231 04290906 ! 433: 20230 IVFAIL = IVFAIL + 1 04300906 ! 434: DVCORR = 6.0D0 04310906 ! 435: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 04320906 ! 436: 0231 CONTINUE 04330906 ! 437: CT024* TEST 24 04340906 ! 438: IVTNUM = 24 04350906 ! 439: IF (R2E(1) - 0.69996E+01) 20240, 40242, 40241 04360906 ! 440: 40241 IF (R2E(1) - 0.70004E+01) 40242, 40242, 20240 04370906 ! 441: 40242 IF (R2E(2) - 0.69996E+01) 20240, 10240, 40240 04380906 ! 442: 40240 IF (R2E(2) - 0.70004E+01) 10240, 10240, 20240 04390906 ! 443: 10240 IVPASS = IVPASS + 1 04400906 ! 444: WRITE (NUVI, 80002) IVTNUM 04410906 ! 445: GO TO 0241 04420906 ! 446: 20240 IVFAIL = IVFAIL + 1 04430906 ! 447: ZVCORR = (7.0, 7.0) 04440906 ! 448: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 04450906 ! 449: 0241 CONTINUE 04460906 ! 450: CT025* TEST 25 04470906 ! 451: IVTNUM = 25 04480906 ! 452: IF (BVD - 0.2999999998D+01) 20250, 10250, 40250 04490906 ! 453: 40250 IF (BVD - 0.3000000002D+01) 10250, 10250, 20250 04500906 ! 454: 10250 IVPASS = IVPASS + 1 04510906 ! 455: WRITE (NUVI, 80002) IVTNUM 04520906 ! 456: GO TO 0251 04530906 ! 457: 20250 IVFAIL = IVFAIL + 1 04540906 ! 458: DVCORR = 3.0D0 04550906 ! 459: WRITE (NUVI, 80031) IVTNUM, BVD, DVCORR 04560906 ! 460: 0251 CONTINUE 04570906 ! 461: CT026* TEST 26 04580906 ! 462: IVTNUM = 26 04590906 ! 463: IF (R2E(3) - 0.39998E+01) 20260, 40262, 40261 04600906 ! 464: 40261 IF (R2E(3) - 0.40002E+01) 40262, 40262, 20260 04610906 ! 465: 40262 IF (R2E(4) - 0.39998E+01) 20260, 10260, 40260 04620906 ! 466: 40260 IF (R2E(4) - 0.40002E+01) 10260, 10260, 20260 04630906 ! 467: 10260 IVPASS = IVPASS + 1 04640906 ! 468: WRITE (NUVI, 80002) IVTNUM 04650906 ! 469: GO TO 0261 04660906 ! 470: 20260 IVFAIL = IVFAIL + 1 04670906 ! 471: ZVCORR = (4.0, 4.0) 04680906 ! 472: WRITE (NUVI, 80045) IVTNUM, BVC, ZVCORR 04690906 ! 473: 0261 CONTINUE 04700906 ! 474: CT027* TEST 27 04710906 ! 475: IVTNUM = 27 04720906 ! 476: IF (CVD - 0.4999999997D+01) 20270, 10270, 40270 04730906 ! 477: 40270 IF (CVD - 0.5000000003D+01) 10270, 10270, 20270 04740906 ! 478: 10270 IVPASS = IVPASS + 1 04750906 ! 479: WRITE (NUVI, 80002) IVTNUM 04760906 ! 480: GO TO 0271 04770906 ! 481: 20270 IVFAIL = IVFAIL + 1 04780906 ! 482: DVCORR = 5.0D0 04790906 ! 483: WRITE (NUVI, 80031) IVTNUM, CVD, DVCORR 04800906 ! 484: 0271 CONTINUE 04810906 ! 485: CT028* TEST 28 04820906 ! 486: IVTNUM = 28 04830906 ! 487: A1D(3) = 3.0D0 04840906 ! 488: READ(IRVI, *) (A1D(IVI), IVI=1,4) 04850906 ! 489: IF (A1D(3) - 0.2999999998D+01) 20280, 10280, 40280 04860906 ! 490: 40280 IF (A1D(3) - 0.3000000002D+01) 10280, 10280, 20280 04870906 ! 491: 10280 IVPASS = IVPASS + 1 04880906 ! 492: WRITE (NUVI, 80002) IVTNUM 04890906 ! 493: GO TO 0281 04900906 ! 494: 20280 IVFAIL = IVFAIL + 1 04910906 ! 495: DVCORR = 3.0D0 04920906 ! 496: WRITE (NUVI, 80031) IVTNUM, A1D(3), DVCORR 04930906 ! 497: 0281 CONTINUE 04940906 ! 498: CBB** ********************** BBCSUM0 **********************************04950906 ! 499: C**** WRITE OUT TEST SUMMARY 04960906 ! 500: C**** 04970906 ! 501: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 04980906 ! 502: WRITE (I02, 90004) 04990906 ! 503: WRITE (I02, 90014) 05000906 ! 504: WRITE (I02, 90004) 05010906 ! 505: WRITE (I02, 90020) IVPASS 05020906 ! 506: WRITE (I02, 90022) IVFAIL 05030906 ! 507: WRITE (I02, 90024) IVDELE 05040906 ! 508: WRITE (I02, 90026) IVINSP 05050906 ! 509: WRITE (I02, 90028) IVTOTN, IVTOTL 05060906 ! 510: CBE** ********************** BBCSUM0 **********************************05070906 ! 511: CBB** ********************** BBCFOOT0 **********************************05080906 ! 512: C**** WRITE OUT REPORT FOOTINGS 05090906 ! 513: C**** 05100906 ! 514: WRITE (I02,90016) ZPROG, ZPROG 05110906 ! 515: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 05120906 ! 516: WRITE (I02,90019) 05130906 ! 517: CBE** ********************** BBCFOOT0 **********************************05140906 ! 518: CBB** ********************** BBCFMT0A **********************************05150906 ! 519: C**** FORMATS FOR TEST DETAIL LINES 05160906 ! 520: C**** 05170906 ! 521: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 05180906 ! 522: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 05190906 ! 523: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 05200906 ! 524: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 05210906 ! 525: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 05220906 ! 526: 1I6,/,1H ,15X,10HCORRECT= ,I6) 05230906 ! 527: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 05240906 ! 528: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 05250906 ! 529: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 05260906 ! 530: 1A21,/,1H ,16X,10HCORRECT= ,A21) 05270906 ! 531: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 05280906 ! 532: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 05290906 ! 533: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 05300906 ! 534: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 05310906 ! 535: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 05320906 ! 536: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 05330906 ! 537: 80050 FORMAT (1H ,48X,A31) 05340906 ! 538: CBE** ********************** BBCFMT0A **********************************05350906 ! 539: CBB** ********************** BBCFMAT1 **********************************05360906 ! 540: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 05370906 ! 541: C**** 05380906 ! 542: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 05390906 ! 543: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 05400906 ! 544: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 05410906 ! 545: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 05420906 ! 546: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 05430906 ! 547: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 05440906 ! 548: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 05450906 ! 549: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 05460906 ! 550: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 05470906 ! 551: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 05480906 ! 552: 21H(,F12.5,2H, ,F12.5,1H)) 05490906 ! 553: CBE** ********************** BBCFMAT1 **********************************05500906 ! 554: CBB** ********************** BBCFMT0B **********************************05510906 ! 555: C**** FORMAT STATEMENTS FOR PAGE HEADERS 05520906 ! 556: C**** 05530906 ! 557: 90002 FORMAT (1H1) 05540906 ! 558: 90004 FORMAT (1H ) 05550906 ! 559: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 05560906 ! 560: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 05570906 ! 561: 90008 FORMAT (1H ,21X,A13,A17) 05580906 ! 562: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 05590906 ! 563: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 05600906 ! 564: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 05610906 ! 565: 1 7X,7HREMARKS,24X) 05620906 ! 566: 90014 FORMAT (1H ,46H----------------------------------------------, 05630906 ! 567: 1 33H---------------------------------) 05640906 ! 568: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 05650906 ! 569: C**** 05660906 ! 570: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 05670906 ! 571: C**** 05680906 ! 572: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 05690906 ! 573: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 05700906 ! 574: 1 A13) 05710906 ! 575: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 05720906 ! 576: C**** 05730906 ! 577: C**** FORMAT STATEMENTS FOR RUN SUMMARY 05740906 ! 578: C**** 05750906 ! 579: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 05760906 ! 580: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 05770906 ! 581: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 05780906 ! 582: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 05790906 ! 583: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 05800906 ! 584: CBE** ********************** BBCFMT0B **********************************05810906 ! 585: C***** 05820906 ! 586: C***** END OF TEST SEGMENT 372 05830906 ! 587: STOP 05840906 ! 588: END 05850906
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.