![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM017.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 FM017.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 00010017 ! 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 COMMENT SECTION. 00020017 ! 6: C 00030017 ! 7: C FM017 00040017 ! 8: C 00050017 ! 9: C THIS ROUTINE CONTINUES TESTS OF THE FORTRAN 00060017 ! 10: C LOGICAL IF STATEMENT IN ALL OF THE VARIOUS FORMS. THE 00070017 ! 11: C FOLLOWING LOGICAL OPERANDS ARE USED FOR THIS ROUTINE - LOGICAL 00080017 ! 12: C CONSTANTS, LOGICAL VARIABLES, LOGICAL ARRAY ELEMENTS, AND 00090017 ! 13: C ARITHMETIC EXPRESSIONS WITH VARIOUS RELATIONAL OPERATORS. BOTH 00100017 ! 14: C THE TRUE AND FALSE BRANCHES ARE TESTED IN THE SERIES OF TESTS. 00110017 ! 15: C 00120017 ! 16: C REFERENCES 00130017 ! 17: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00140017 ! 18: C X3.9-1978 00150017 ! 19: C 00160017 ! 20: C SECTION 4.7.1, LOGICAL CONSTANT 00170017 ! 21: C SECTION 6, EXPRESSIONS 00180017 ! 22: C SECTION 6.1, ARITHMETIC EXPRESSIONS 00190017 ! 23: C SECTION 6.3, RELATIONAL EXPRESSIONS 00200017 ! 24: C SECTION 6.4, LOGICAL EXPRESSIONS 00210017 ! 25: C SECTION 6.6, EVALUATION OF EXPRESSIONS 00220017 ! 26: C SECTION 10, ASSIGNMENT STATEMENTS 00230017 ! 27: C SECTION 10.2, LOGICAL ASSIGNMENT STATEMENT 00240017 ! 28: C SECTION 11.5, LOGICAL IF STATEMENT 00250017 ! 29: C 00260017 ! 30: DIMENSION IADN11(3) 00270017 ! 31: LOGICAL LATN1A(2), LCTNT1, LCTNT2 00280017 ! 32: C 00290017 ! 33: C ********************************************************** 00300017 ! 34: C 00310017 ! 35: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00320017 ! 36: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD 00330017 ! 37: C PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE 00340017 ! 38: C FEDERAL COBOL COMPILER TESTING SERVICE. THE FORTRAN COMPILER 00350017 ! 39: C VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED00360017 ! 40: C DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT ROUTINE IS A FORTRAN 00370017 ! 41: C PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC 00380017 ! 42: C LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT 00390017 ! 43: C OF EXECUTING THESE TESTS. 00400017 ! 44: C 00410017 ! 45: C THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES 00420017 ! 46: C FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978. 00430017 ! 47: C 00440017 ! 48: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO - 00450017 ! 49: C 00460017 ! 50: C DEPARTMENT OF THE NAVY 00470017 ! 51: C FEDERAL COBOL COMPILER TESTING SERVICE 00480017 ! 52: C WASHINGTON, D.C. 20376 00490017 ! 53: C 00500017 ! 54: C ********************************************************** 00510017 ! 55: C 00520017 ! 56: C 00530017 ! 57: C 00540017 ! 58: C INITIALIZATION SECTION 00550017 ! 59: C 00560017 ! 60: C INITIALIZE CONSTANTS 00570017 ! 61: C ************** 00580017 ! 62: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00590017 ! 63: I01 = 5 00600017 ! 64: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00610017 ! 65: I02 = 6 00620017 ! 66: C SYSTEM ENVIRONMENT SECTION 00630017 ! 67: C 00640017 ! 68: I01 = 5 00650017 ! 69: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00660017 ! 70: C (UNIT NUMBER FOR CARD READER). 00670017 ! 71: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. 00680017 ! 72: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00690017 ! 73: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00700017 ! 74: C 00710017 ! 75: I02 = 6 00720017 ! 76: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00730017 ! 77: C (UNIT NUMBER FOR PRINTER). 00740017 ! 78: CX021 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. 00750017 ! 79: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00760017 ! 80: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00770017 ! 81: C 00780017 ! 82: IVPASS=0 00790017 ! 83: IVFAIL=0 00800017 ! 84: IVDELE=0 00810017 ! 85: ICZERO=0 00820017 ! 86: C 00830017 ! 87: C WRITE PAGE HEADERS 00840017 ! 88: WRITE (I02,90000) 00850017 ! 89: WRITE (I02,90001) 00860017 ! 90: WRITE (I02,90002) 00870017 ! 91: WRITE (I02, 90002) 00880017 ! 92: WRITE (I02,90003) 00890017 ! 93: WRITE (I02,90002) 00900017 ! 94: WRITE (I02,90004) 00910017 ! 95: WRITE (I02,90002) 00920017 ! 96: WRITE (I02,90011) 00930017 ! 97: WRITE (I02,90002) 00940017 ! 98: WRITE (I02,90002) 00950017 ! 99: WRITE (I02,90005) 00960017 ! 100: WRITE (I02,90006) 00970017 ! 101: WRITE (I02,90002) 00980017 ! 102: IVTNUM = 170 00990017 ! 103: C 01000017 ! 104: C **** TEST 170 **** 01010017 ! 105: C TEST 170 - RELATIONAL EXPRESSION. INTEGER VARIABLE REFERENCE. 01020017 ! 106: C FALSE PATH. .LT. 01030017 ! 107: C 01040017 ! 108: C 01050017 ! 109: IF (ICZERO) 31700, 1700, 31700 01060017 ! 110: 1700 CONTINUE 01070017 ! 111: IVON01 = 3 01080017 ! 112: IVON02 = 1 01090017 ! 113: IF ( 76 .LT. IVON01 ) IVON02 = 0 01100017 ! 114: GO TO 41700 01110017 ! 115: 31700 IVDELE = IVDELE + 1 01120017 ! 116: WRITE (I02,80003) IVTNUM 01130017 ! 117: IF (ICZERO) 41700, 1711, 41700 01140017 ! 118: 41700 IF ( IVON02 - 1 ) 21700, 11700, 21700 01150017 ! 119: 11700 IVPASS = IVPASS + 1 01160017 ! 120: WRITE (I02,80001) IVTNUM 01170017 ! 121: GO TO 1711 01180017 ! 122: 21700 IVFAIL = IVFAIL + 1 01190017 ! 123: IVCOMP = IVON02 01200017 ! 124: IVCORR = 1 01210017 ! 125: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01220017 ! 126: 1711 CONTINUE 01230017 ! 127: IVTNUM = 171 01240017 ! 128: C 01250017 ! 129: C **** TEST 171 **** 01260017 ! 130: C TEST 171 - RELATIONAL EXPRESSION. INTEGER VARIABLE REFERENCE. 01270017 ! 131: C FALSE PATH. .LE. 01280017 ! 132: C 01290017 ! 133: C 01300017 ! 134: IF (ICZERO) 31710, 1710, 31710 01310017 ! 135: 1710 CONTINUE 01320017 ! 136: IVON01 = 3 01330017 ! 137: IVON02 = 1 01340017 ! 138: IF ( 76 .LE. IVON01 ) IVON02 = 0 01350017 ! 139: GO TO 41710 01360017 ! 140: 31710 IVDELE = IVDELE + 1 01370017 ! 141: WRITE (I02,80003) IVTNUM 01380017 ! 142: IF (ICZERO) 41710, 1721, 41710 01390017 ! 143: 41710 IF ( IVON02 - 1 ) 21710, 11710, 21710 01400017 ! 144: 11710 IVPASS = IVPASS + 1 01410017 ! 145: WRITE (I02,80001) IVTNUM 01420017 ! 146: GO TO 1721 01430017 ! 147: 21710 IVFAIL = IVFAIL + 1 01440017 ! 148: IVCOMP = IVON02 01450017 ! 149: IVCORR = 1 01460017 ! 150: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01470017 ! 151: 1721 CONTINUE 01480017 ! 152: IVTNUM = 172 01490017 ! 153: C 01500017 ! 154: C **** TEST 172 **** 01510017 ! 155: C TEST 172 - RELATIONAL EXPRESSIONAL. INTEGER VARIABLE REFERENCE.01520017 ! 156: C FALSE PATH. .EQ. 01530017 ! 157: C 01540017 ! 158: C 01550017 ! 159: IF (ICZERO) 31720, 1720, 31720 01560017 ! 160: 1720 CONTINUE 01570017 ! 161: IVON01 = 587 01580017 ! 162: IVON02 = 1 01590017 ! 163: IF ( 9999 .EQ. IVON01 ) IVON02 = 0 01600017 ! 164: GO TO 41720 01610017 ! 165: 31720 IVDELE = IVDELE + 1 01620017 ! 166: WRITE (I02,80003) IVTNUM 01630017 ! 167: IF (ICZERO) 41720, 1731, 41720 01640017 ! 168: 41720 IF ( IVON02 - 1 ) 21720, 11720, 21720 01650017 ! 169: 11720 IVPASS = IVPASS + 1 01660017 ! 170: WRITE (I02,80001) IVTNUM 01670017 ! 171: GO TO 1731 01680017 ! 172: 21720 IVFAIL = IVFAIL + 1 01690017 ! 173: IVCOMP = IVON02 01700017 ! 174: IVCORR = 1 01710017 ! 175: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01720017 ! 176: 1731 CONTINUE 01730017 ! 177: IVTNUM = 173 01740017 ! 178: C 01750017 ! 179: C **** TEST 173 **** 01760017 ! 180: C TEST 173 - RELATIONAL EXPRESSION. INTEGER VARIABLE REFERENCE. 01770017 ! 181: C FALSE PATH. .NE. 01780017 ! 182: C 01790017 ! 183: C 01800017 ! 184: IF (ICZERO) 31730, 1730, 31730 01810017 ! 185: 1730 CONTINUE 01820017 ! 186: IVON01 = 3 01830017 ! 187: IVON02 = 1 01840017 ! 188: IF ( 3 .NE. IVON01 ) IVON02 = 0 01850017 ! 189: GO TO 41730 01860017 ! 190: 31730 IVDELE = IVDELE + 1 01870017 ! 191: WRITE (I02,80003) IVTNUM 01880017 ! 192: IF (ICZERO) 41730, 1741, 41730 01890017 ! 193: 41730 IF ( IVON02 - 1 ) 21730, 11730, 21730 01900017 ! 194: 11730 IVPASS = IVPASS + 1 01910017 ! 195: WRITE (I02,80001) IVTNUM 01920017 ! 196: GO TO 1741 01930017 ! 197: 21730 IVFAIL = IVFAIL + 1 01940017 ! 198: IVCOMP = IVON02 01950017 ! 199: IVCORR = 1 01960017 ! 200: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01970017 ! 201: 1741 CONTINUE 01980017 ! 202: IVTNUM = 174 01990017 ! 203: C 02000017 ! 204: C **** TEST 174 **** 02010017 ! 205: C TEST 174 - RELATIONAL EXPRESSION. INTEGER VARIABLE REFERENCE. 02020017 ! 206: C FALSE PATH. .GT. 02030017 ! 207: C 02040017 ! 208: C 02050017 ! 209: IF (ICZERO) 31740, 1740, 31740 02060017 ! 210: 1740 CONTINUE 02070017 ! 211: IVON01 = 32767 02080017 ! 212: IVON02 = 1 02090017 ! 213: IF ( 76 .GT. IVON01 ) IVON02 = 0 02100017 ! 214: GO TO 41740 02110017 ! 215: 31740 IVDELE = IVDELE + 1 02120017 ! 216: WRITE (I02,80003) IVTNUM 02130017 ! 217: IF (ICZERO) 41740, 1751, 41740 02140017 ! 218: 41740 IF ( IVON02 - 1 ) 21740, 11740, 21740 02150017 ! 219: 11740 IVPASS = IVPASS + 1 02160017 ! 220: WRITE (I02,80001) IVTNUM 02170017 ! 221: GO TO 1751 02180017 ! 222: 21740 IVFAIL = IVFAIL + 1 02190017 ! 223: IVCOMP = IVON02 02200017 ! 224: IVCORR = 1 02210017 ! 225: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02220017 ! 226: 1751 CONTINUE 02230017 ! 227: IVTNUM = 175 02240017 ! 228: C 02250017 ! 229: C **** TEST 175 **** 02260017 ! 230: C TEST 175 - RELATIONAL EXPRESSION. INTEGER VARIABLE REFERENCE. 02270017 ! 231: C FALSE PATH. .GE. 02280017 ! 232: C 02290017 ! 233: C 02300017 ! 234: IF (ICZERO) 31750, 1750, 31750 02310017 ! 235: 1750 CONTINUE 02320017 ! 236: IVON01 = 32767 02330017 ! 237: IVON02 = 1 02340017 ! 238: IF ( 76 .GE. IVON01 ) IVON02 = 0 02350017 ! 239: GO TO 41750 02360017 ! 240: 31750 IVDELE = IVDELE + 1 02370017 ! 241: WRITE (I02,80003) IVTNUM 02380017 ! 242: IF (ICZERO) 41750, 1761, 41750 02390017 ! 243: 41750 IF ( IVON02 - 1 ) 21750, 11750, 21750 02400017 ! 244: 11750 IVPASS = IVPASS + 1 02410017 ! 245: WRITE (I02,80001) IVTNUM 02420017 ! 246: GO TO 1761 02430017 ! 247: 21750 IVFAIL = IVFAIL + 1 02440017 ! 248: IVCOMP = IVON02 02450017 ! 249: IVCORR = 1 02460017 ! 250: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02470017 ! 251: 1761 CONTINUE 02480017 ! 252: IVTNUM = 176 02490017 ! 253: C 02500017 ! 254: C **** TEST 176 **** 02510017 ! 255: C TEST 176 - RELATIONAL EXPRESSION. (IVR) (RO) (IC) 02520017 ! 256: C INTEGER VARIABLE REFERENCE WITH INTEGER CONSTANT 02530017 ! 257: C TRUE PATH. .LT. 02540017 ! 258: C 02550017 ! 259: C 02560017 ! 260: IF (ICZERO) 31760, 1760, 31760 02570017 ! 261: 1760 CONTINUE 02580017 ! 262: IVON01 = 3 02590017 ! 263: IVON02 = 0 02600017 ! 264: IF ( IVON01 .LT. 76 ) IVON02 = 1 02610017 ! 265: GO TO 41760 02620017 ! 266: 31760 IVDELE = IVDELE + 1 02630017 ! 267: WRITE (I02,80003) IVTNUM 02640017 ! 268: IF (ICZERO) 41760, 1771, 41760 02650017 ! 269: 41760 IF ( IVON02 - 1 ) 21760, 11760, 21760 02660017 ! 270: 11760 IVPASS = IVPASS + 1 02670017 ! 271: WRITE (I02,80001) IVTNUM 02680017 ! 272: GO TO 1771 02690017 ! 273: 21760 IVFAIL = IVFAIL + 1 02700017 ! 274: IVCOMP = IVON02 02710017 ! 275: IVCORR = 1 02720017 ! 276: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02730017 ! 277: 1771 CONTINUE 02740017 ! 278: IVTNUM = 177 02750017 ! 279: C 02760017 ! 280: C **** TEST 177 **** 02770017 ! 281: C TEST 177 - LIKE TEST 176. FALSE PATH. .EQ. 02780017 ! 282: C 02790017 ! 283: C 02800017 ! 284: IF (ICZERO) 31770, 1770, 31770 02810017 ! 285: 1770 CONTINUE 02820017 ! 286: IVON01 = 587 02830017 ! 287: IVON02 = 1 02840017 ! 288: IF ( IVON01 .EQ. 9999 ) IVON02=0 02850017 ! 289: GO TO 41770 02860017 ! 290: 31770 IVDELE = IVDELE + 1 02870017 ! 291: WRITE (I02,80003) IVTNUM 02880017 ! 292: IF (ICZERO) 41770, 1781, 41770 02890017 ! 293: 41770 IF ( IVON02 - 1 ) 21770, 11770, 21770 02900017 ! 294: 11770 IVPASS = IVPASS + 1 02910017 ! 295: WRITE (I02,80001) IVTNUM 02920017 ! 296: GO TO 1781 02930017 ! 297: 21770 IVFAIL = IVFAIL + 1 02940017 ! 298: IVCOMP = IVON02 02950017 ! 299: IVCORR = 1 02960017 ! 300: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02970017 ! 301: 1781 CONTINUE 02980017 ! 302: IVTNUM = 178 02990017 ! 303: C 03000017 ! 304: C **** TEST 178 **** 03010017 ! 305: C TEST 178 - LIKE TEST 176. TRUE PATH. .GE. 03020017 ! 306: C 03030017 ! 307: C 03040017 ! 308: IF (ICZERO) 31780, 1780, 31780 03050017 ! 309: 1780 CONTINUE 03060017 ! 310: IVON01 = 32767 03070017 ! 311: IVON02 = 0 03080017 ! 312: IF ( IVON01 .GE. 32767 ) IVON02 = 1 03090017 ! 313: GO TO 41780 03100017 ! 314: 31780 IVDELE = IVDELE + 1 03110017 ! 315: WRITE (I02,80003) IVTNUM 03120017 ! 316: IF (ICZERO) 41780, 1791, 41780 03130017 ! 317: 41780 IF ( IVON02 - 1 ) 21780, 11780, 21780 03140017 ! 318: 11780 IVPASS = IVPASS + 1 03150017 ! 319: WRITE (I02,80001) IVTNUM 03160017 ! 320: GO TO 1791 03170017 ! 321: 21780 IVFAIL = IVFAIL + 1 03180017 ! 322: IVCOMP = IVON02 03190017 ! 323: IVCORR = 1 03200017 ! 324: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03210017 ! 325: 1791 CONTINUE 03220017 ! 326: IVTNUM = 179 03230017 ! 327: C 03240017 ! 328: C **** TEST 179 **** 03250017 ! 329: C TEST 179 - RELATIONAL EXPRESSION. INTEGER ARRAY ELEMENT 03260017 ! 330: C REFERENCE. (IC) (RO) (IAER) FALSE PATH. .LT. 03270017 ! 331: C 03280017 ! 332: C 03290017 ! 333: IF (ICZERO) 31790, 1790, 31790 03300017 ! 334: 1790 CONTINUE 03310017 ! 335: IVON01 = 1 03320017 ! 336: IADN11(1) = 3 03330017 ! 337: IF ( 76 .LT. IADN11(1) ) IVON01 = 0 03340017 ! 338: GO TO 41790 03350017 ! 339: 31790 IVDELE = IVDELE + 1 03360017 ! 340: WRITE (I02,80003) IVTNUM 03370017 ! 341: IF (ICZERO) 41790, 1801, 41790 03380017 ! 342: 41790 IF ( IVON01 - 1 ) 21790, 11790, 21790 03390017 ! 343: 11790 IVPASS = IVPASS + 1 03400017 ! 344: WRITE (I02,80001) IVTNUM 03410017 ! 345: GO TO 1801 03420017 ! 346: 21790 IVFAIL = IVFAIL + 1 03430017 ! 347: IVCOMP = IVON01 03440017 ! 348: IVCORR = 1 03450017 ! 349: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03460017 ! 350: 1801 CONTINUE 03470017 ! 351: IVTNUM = 180 03480017 ! 352: C 03490017 ! 353: C **** TEST 180 **** 03500017 ! 354: C TEST 180 - LIKE TEST 179. TRUE PATH. .LE. 03510017 ! 355: C 03520017 ! 356: C 03530017 ! 357: IF (ICZERO) 31800, 1800, 31800 03540017 ! 358: 1800 CONTINUE 03550017 ! 359: IVON01 = 0 03560017 ! 360: IADN11(2) = 587 03570017 ! 361: IF ( 587 .LE. IADN11(2) ) IVON01 = 1 03580017 ! 362: GO TO 41800 03590017 ! 363: 31800 IVDELE = IVDELE + 1 03600017 ! 364: WRITE (I02,80003) IVTNUM 03610017 ! 365: IF (ICZERO) 41800, 1811, 41800 03620017 ! 366: 41800 IF ( IVON01 - 1 ) 21800, 11800, 21800 03630017 ! 367: 11800 IVPASS = IVPASS + 1 03640017 ! 368: WRITE (I02,80001) IVTNUM 03650017 ! 369: GO TO 1811 03660017 ! 370: 21800 IVFAIL = IVFAIL + 1 03670017 ! 371: IVCOMP = IVON01 03680017 ! 372: IVCORR = 1 03690017 ! 373: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03700017 ! 374: 1811 CONTINUE 03710017 ! 375: IVTNUM = 181 03720017 ! 376: C 03730017 ! 377: C **** TEST 181 **** 03740017 ! 378: C TEST 181 - LIKE TEST 179. FALSE PATH. .GE. 03750017 ! 379: C 03760017 ! 380: C 03770017 ! 381: IF (ICZERO) 31810, 1810, 31810 03780017 ! 382: 1810 CONTINUE 03790017 ! 383: IVON01 = 1 03800017 ! 384: IADN11(3) = 32767 03810017 ! 385: IF ( 76 .GE. IADN11(3) ) IVON01 = 0 03820017 ! 386: GO TO 41810 03830017 ! 387: 31810 IVDELE = IVDELE + 1 03840017 ! 388: WRITE (I02,80003) IVTNUM 03850017 ! 389: IF (ICZERO) 41810, 1821, 41810 03860017 ! 390: 41810 IF ( IVON01 - 1 ) 21810, 11810, 21810 03870017 ! 391: 11810 IVPASS = IVPASS + 1 03880017 ! 392: WRITE (I02,80001) IVTNUM 03890017 ! 393: GO TO 1821 03900017 ! 394: 21810 IVFAIL = IVFAIL + 1 03910017 ! 395: IVCOMP = IVON01 03920017 ! 396: IVCORR = 1 03930017 ! 397: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03940017 ! 398: 1821 CONTINUE 03950017 ! 399: IVTNUM = 182 03960017 ! 400: C 03970017 ! 401: C **** TEST 182 **** 03980017 ! 402: C TEST 182 - RELATIONAL EXPRESSION (IAER) (RO) (IC). TRUE 03990017 ! 403: C PATH. .EQ. 04000017 ! 404: C 04010017 ! 405: C 04020017 ! 406: IF (ICZERO) 31820, 1820, 31820 04030017 ! 407: 1820 CONTINUE 04040017 ! 408: IVON01 = 0 04050017 ! 409: IADN11(2) = 32767 04060017 ! 410: IF ( IADN11(2) .EQ. 32767 ) IVON01 = 1 04070017 ! 411: GO TO 41820 04080017 ! 412: 31820 IVDELE = IVDELE + 1 04090017 ! 413: WRITE (I02,80003) IVTNUM 04100017 ! 414: IF (ICZERO) 41820, 1831, 41820 04110017 ! 415: 41820 IF ( IVON01 - 1 ) 21820, 11820, 21820 04120017 ! 416: 11820 IVPASS = IVPASS + 1 04130017 ! 417: WRITE (I02,80001) IVTNUM 04140017 ! 418: GO TO 1831 04150017 ! 419: 21820 IVFAIL = IVFAIL + 1 04160017 ! 420: IVCOMP = IVON01 04170017 ! 421: IVCORR = 1 04180017 ! 422: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04190017 ! 423: 1831 CONTINUE 04200017 ! 424: IVTNUM = 183 04210017 ! 425: C 04220017 ! 426: C **** TEST 183 **** 04230017 ! 427: C TEST 183 - RELATIONAL EXPRESSION (IVR) (RO) (IAER) 04240017 ! 428: C FALSE PATH. .NE. 04250017 ! 429: C 04260017 ! 430: C 04270017 ! 431: IF (ICZERO) 31830, 1830, 31830 04280017 ! 432: 1830 CONTINUE 04290017 ! 433: IVON01 = 1 04300017 ! 434: IVON02 = 587 04310017 ! 435: IADN11(1) = 587 04320017 ! 436: IF ( IVON02 .NE. IADN11(1) ) IVON01 = 0 04330017 ! 437: GO TO 41830 04340017 ! 438: 31830 IVDELE = IVDELE + 1 04350017 ! 439: WRITE (I02,80003) IVTNUM 04360017 ! 440: IF (ICZERO) 41830, 1841, 41830 04370017 ! 441: 41830 IF ( IVON01 - 1 ) 21830, 11830, 21830 04380017 ! 442: 11830 IVPASS = IVPASS + 1 04390017 ! 443: WRITE (I02,80001) IVTNUM 04400017 ! 444: GO TO 1841 04410017 ! 445: 21830 IVFAIL = IVFAIL + 1 04420017 ! 446: IVCOMP = IVON01 04430017 ! 447: IVCORR = 1 04440017 ! 448: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04450017 ! 449: 1841 CONTINUE 04460017 ! 450: IVTNUM = 184 04470017 ! 451: C 04480017 ! 452: C **** TEST 184 **** 04490017 ! 453: C TEST 184 - RELATIONAL EXPRESSION (IAER) (RO) (IVR) 04500017 ! 454: C TRUE PATH .NE. 04510017 ! 455: C 04520017 ! 456: C 04530017 ! 457: IF (ICZERO) 31840, 1840, 31840 04540017 ! 458: 1840 CONTINUE 04550017 ! 459: IVON01 = 0 04560017 ! 460: IADN11(3) = 3 04570017 ! 461: IVON02 = 32767 04580017 ! 462: IF ( IADN11(3) .NE. IVON02 ) IVON01 = 1 04590017 ! 463: GO TO 41840 04600017 ! 464: 31840 IVDELE = IVDELE + 1 04610017 ! 465: WRITE (I02,80003) IVTNUM 04620017 ! 466: IF (ICZERO) 41840, 1851, 41840 04630017 ! 467: 41840 IF ( IVON01 - 1 ) 21840, 11840, 21840 04640017 ! 468: 11840 IVPASS = IVPASS + 1 04650017 ! 469: WRITE (I02,80001) IVTNUM 04660017 ! 470: GO TO 1851 04670017 ! 471: 21840 IVFAIL = IVFAIL + 1 04680017 ! 472: IVCOMP = IVON01 04690017 ! 473: IVCORR = 1 04700017 ! 474: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04710017 ! 475: 1851 CONTINUE 04720017 ! 476: IVTNUM = 185 04730017 ! 477: C 04740017 ! 478: C **** TEST 185 **** 04750017 ! 479: C TEST 185 - TEST OF PARENTHESES ( (LE) ) 04760017 ! 480: C TRUE PATH LOGICAL CONSTANT .TRUE. 04770017 ! 481: C 04780017 ! 482: C 04790017 ! 483: IF (ICZERO) 31850, 1850, 31850 04800017 ! 484: 1850 CONTINUE 04810017 ! 485: IVON01 = 0 04820017 ! 486: IF ( ( .TRUE. ) ) IVON01 = 1 04830017 ! 487: GO TO 41850 04840017 ! 488: 31850 IVDELE = IVDELE + 1 04850017 ! 489: WRITE (I02,80003) IVTNUM 04860017 ! 490: IF (ICZERO) 41850, 1861, 41850 04870017 ! 491: 41850 IF ( IVON01 - 1 ) 21850, 11850, 21850 04880017 ! 492: 11850 IVPASS = IVPASS + 1 04890017 ! 493: WRITE (I02,80001) IVTNUM 04900017 ! 494: GO TO 1861 04910017 ! 495: 21850 IVFAIL = IVFAIL + 1 04920017 ! 496: IVCOMP = IVON01 04930017 ! 497: IVCORR = 1 04940017 ! 498: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04950017 ! 499: 1861 CONTINUE 04960017 ! 500: IVTNUM = 186 04970017 ! 501: C 04980017 ! 502: C **** TEST 186 **** 04990017 ! 503: C TEST 186 - LIKE TEST 185 05000017 ! 504: C FALSE PATH LOGICAL CONSTANT .FALSE. 05010017 ! 505: C 05020017 ! 506: C 05030017 ! 507: IF (ICZERO) 31860, 1860, 31860 05040017 ! 508: 1860 CONTINUE 05050017 ! 509: IVON01 = 1 05060017 ! 510: IF ((( .FALSE. ))) IVON01 = 0 05070017 ! 511: GO TO 41860 05080017 ! 512: 31860 IVDELE = IVDELE + 1 05090017 ! 513: WRITE (I02,80003) IVTNUM 05100017 ! 514: IF (ICZERO) 41860, 1871, 41860 05110017 ! 515: 41860 IF ( IVON01 - 1 ) 21860, 11860, 21860 05120017 ! 516: 11860 IVPASS = IVPASS + 1 05130017 ! 517: WRITE (I02,80001) IVTNUM 05140017 ! 518: GO TO 1871 05150017 ! 519: 21860 IVFAIL = IVFAIL + 1 05160017 ! 520: IVCOMP = IVON01 05170017 ! 521: IVCORR = 1 05180017 ! 522: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05190017 ! 523: 1871 CONTINUE 05200017 ! 524: IVTNUM = 187 05210017 ! 525: C 05220017 ! 526: C **** TEST 187 **** 05230017 ! 527: C TEST 187 - PARENS AROUND LOGICAL VARIABLE REFERENCE ( (LVR) ) 05240017 ! 528: C TRUE PATH 05250017 ! 529: C 05260017 ! 530: C 05270017 ! 531: IF (ICZERO) 31870, 1870, 31870 05280017 ! 532: 1870 CONTINUE 05290017 ! 533: IVON01 = 0 05300017 ! 534: LCTNT1 = .TRUE. 05310017 ! 535: IF ( ( LCTNT1 ) ) IVON01 = 1 05320017 ! 536: GO TO 41870 05330017 ! 537: 31870 IVDELE = IVDELE + 1 05340017 ! 538: WRITE (I02,80003) IVTNUM 05350017 ! 539: IF (ICZERO) 41870, 1881, 41870 05360017 ! 540: 41870 IF ( IVON01 - 1 ) 21870, 11870, 21870 05370017 ! 541: 11870 IVPASS = IVPASS + 1 05380017 ! 542: WRITE (I02,80001) IVTNUM 05390017 ! 543: GO TO 1881 05400017 ! 544: 21870 IVFAIL = IVFAIL + 1 05410017 ! 545: IVCOMP = IVON01 05420017 ! 546: IVCORR = 1 05430017 ! 547: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05440017 ! 548: 1881 CONTINUE 05450017 ! 549: IVTNUM = 188 05460017 ! 550: C 05470017 ! 551: C **** TEST 188 **** 05480017 ! 552: C TEST 188 - PARENS AROUND LOGICAL ARRAY REFERENCE ( ( LAER ) ) 05490017 ! 553: C FALSE PATH 05500017 ! 554: C 05510017 ! 555: IF (ICZERO) 31880, 1880, 31880 05520017 ! 556: 1880 CONTINUE 05530017 ! 557: IVON01 = 1 05540017 ! 558: LATN1A(1) = .FALSE. 05550017 ! 559: IF ( ( LATN1A(1) ) ) IVON01 = 0 05560017 ! 560: GO TO 41880 05570017 ! 561: 31880 IVDELE = IVDELE + 1 05580017 ! 562: WRITE (I02,80003) IVTNUM 05590017 ! 563: IF (ICZERO) 41880, 1891, 41880 05600017 ! 564: 41880 IF ( IVON01 - 1 ) 21880, 11880, 21880 05610017 ! 565: 11880 IVPASS = IVPASS + 1 05620017 ! 566: WRITE (I02,80001) IVTNUM 05630017 ! 567: GO TO 1891 05640017 ! 568: 21880 IVFAIL = IVFAIL + 1 05650017 ! 569: IVCOMP = IVON01 05660017 ! 570: IVCORR = 1 05670017 ! 571: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05680017 ! 572: 1891 CONTINUE 05690017 ! 573: IVTNUM = 189 05700017 ! 574: C 05710017 ! 575: C **** TEST 189 **** 05720017 ! 576: C TEST 189 - USE OF .NOT. WITH A LOGICAL PRIMARY .NOT. (LP) 05730017 ! 577: C FALSE PATH .NOT. .TRUE. 05740017 ! 578: C 05750017 ! 579: C 05760017 ! 580: IF (ICZERO) 31890, 1890, 31890 05770017 ! 581: 1890 CONTINUE 05780017 ! 582: IVON01 = 1 05790017 ! 583: IF ( .NOT. .TRUE. ) IVON01 = 0 05800017 ! 584: GO TO 41890 05810017 ! 585: 31890 IVDELE = IVDELE + 1 05820017 ! 586: WRITE (I02,80003) IVTNUM 05830017 ! 587: IF (ICZERO) 41890, 1901, 41890 05840017 ! 588: 41890 IF ( IVON01 - 1 ) 21890, 11890, 21890 05850017 ! 589: 11890 IVPASS = IVPASS + 1 05860017 ! 590: WRITE (I02,80001) IVTNUM 05870017 ! 591: GO TO 1901 05880017 ! 592: 21890 IVFAIL = IVFAIL + 1 05890017 ! 593: IVCOMP = IVON01 05900017 ! 594: IVCORR = 1 05910017 ! 595: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05920017 ! 596: 1901 CONTINUE 05930017 ! 597: IVTNUM = 190 05940017 ! 598: C 05950017 ! 599: C **** TEST 190 **** 05960017 ! 600: C TEST 190 - LIKE TEST 189 TRUE PATH .NOT. .FALSE. 05970017 ! 601: C 05980017 ! 602: C 05990017 ! 603: IF (ICZERO) 31900, 1900, 31900 06000017 ! 604: 1900 CONTINUE 06010017 ! 605: IVON01 = 0 06020017 ! 606: IF ( .NOT. .FALSE. ) IVON01 = 1 06030017 ! 607: GO TO 41900 06040017 ! 608: 31900 IVDELE = IVDELE + 1 06050017 ! 609: WRITE (I02,80003) IVTNUM 06060017 ! 610: IF (ICZERO) 41900, 1911, 41900 06070017 ! 611: 41900 IF ( IVON01 - 1 ) 21900, 11900, 21900 06080017 ! 612: 11900 IVPASS = IVPASS + 1 06090017 ! 613: WRITE (I02,80001) IVTNUM 06100017 ! 614: GO TO 1911 06110017 ! 615: 21900 IVFAIL = IVFAIL + 1 06120017 ! 616: IVCOMP = IVON01 06130017 ! 617: IVCORR = 1 06140017 ! 618: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06150017 ! 619: 1911 CONTINUE 06160017 ! 620: IVTNUM = 191 06170017 ! 621: C 06180017 ! 622: C **** TEST 191 **** 06190017 ! 623: C TEST 191 - TESTS .NOT. WITH A LOGICAL VARIABLE SET TO .FALSE. 06200017 ! 624: C IN A LOGICAL ASSIGNMENT STATEMENT TRUE PATH 06210017 ! 625: C 06220017 ! 626: C 06230017 ! 627: IF (ICZERO) 31910, 1910, 31910 06240017 ! 628: 1910 CONTINUE 06250017 ! 629: IVON01 = 0 06260017 ! 630: LCTNT1 = .FALSE. 06270017 ! 631: IF ( .NOT. LCTNT1 ) IVON01 = 1 06280017 ! 632: GO TO 41910 06290017 ! 633: 31910 IVDELE = IVDELE + 1 06300017 ! 634: WRITE (I02,80003) IVTNUM 06310017 ! 635: IF (ICZERO) 41910, 1921, 41910 06320017 ! 636: 41910 IF ( IVON01 - 1 ) 21910, 11910, 21910 06330017 ! 637: 11910 IVPASS = IVPASS + 1 06340017 ! 638: WRITE (I02,80001) IVTNUM 06350017 ! 639: GO TO 1921 06360017 ! 640: 21910 IVFAIL = IVFAIL + 1 06370017 ! 641: IVCOMP = IVON01 06380017 ! 642: IVCORR = 1 06390017 ! 643: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06400017 ! 644: 1921 CONTINUE 06410017 ! 645: IVTNUM = 192 06420017 ! 646: C 06430017 ! 647: C **** TEST 192 **** 06440017 ! 648: C TEST 192 - LIKE TEST 191 ONLY USES A LOGICAL ARRAY ELEMENT 06450017 ! 649: C SET TO .FALSE. IN A LOGICAL ASSIGNMENT STATEMENT TRUE 06460017 ! 650: C 06470017 ! 651: C 06480017 ! 652: IF (ICZERO) 31920, 1920, 31920 06490017 ! 653: 1920 CONTINUE 06500017 ! 654: IVON01 = 0 06510017 ! 655: LATN1A(2) = .FALSE. 06520017 ! 656: IF ( .NOT. LATN1A(2) ) IVON01 = 1 06530017 ! 657: GO TO 41920 06540017 ! 658: 31920 IVDELE = IVDELE + 1 06550017 ! 659: WRITE (I02,80003) IVTNUM 06560017 ! 660: IF (ICZERO) 41920, 1931, 41920 06570017 ! 661: 41920 IF ( IVON01 - 1 ) 21920, 11920, 21920 06580017 ! 662: 11920 IVPASS = IVPASS + 1 06590017 ! 663: WRITE (I02,80001) IVTNUM 06600017 ! 664: GO TO 1931 06610017 ! 665: 21920 IVFAIL = IVFAIL + 1 06620017 ! 666: IVCOMP = IVON01 06630017 ! 667: IVCORR = 1 06640017 ! 668: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06650017 ! 669: 1931 CONTINUE 06660017 ! 670: IVTNUM = 193 06670017 ! 671: C 06680017 ! 672: C **** TEST 193 **** 06690017 ! 673: C TEST 193 - USE OF LOGICAL .AND. (LT) .AND. (LF) 06700017 ! 674: C USES TWO LOGICAL VARIABLES EACH SET TO .FALSE. 06710017 ! 675: C FALSE .AND. FALSE FALSE PATH 06720017 ! 676: C 06730017 ! 677: C 06740017 ! 678: IF (ICZERO) 31930, 1930, 31930 06750017 ! 679: 1930 CONTINUE 06760017 ! 680: IVON01 = 1 06770017 ! 681: LCTNT1 = .FALSE. 06780017 ! 682: LCTNT2 = .FALSE. 06790017 ! 683: IF ( LCTNT1 .AND. LCTNT2 ) IVON01 = 0 06800017 ! 684: GO TO 41930 06810017 ! 685: 31930 IVDELE = IVDELE + 1 06820017 ! 686: WRITE (I02,80003) IVTNUM 06830017 ! 687: IF (ICZERO) 41930, 1941, 41930 06840017 ! 688: 41930 IF ( IVON01 - 1 ) 21930, 11930, 21930 06850017 ! 689: 11930 IVPASS = IVPASS + 1 06860017 ! 690: WRITE (I02,80001) IVTNUM 06870017 ! 691: GO TO 1941 06880017 ! 692: 21930 IVFAIL = IVFAIL + 1 06890017 ! 693: IVCOMP = IVON01 06900017 ! 694: IVCORR = 1 06910017 ! 695: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06920017 ! 696: 1941 CONTINUE 06930017 ! 697: IVTNUM = 194 06940017 ! 698: C 06950017 ! 699: C **** TEST 194 **** 06960017 ! 700: C TEST 194 - LIKE TEST 193 FALSE .AND. TRUE FALSE PATH 06970017 ! 701: C 06980017 ! 702: C 06990017 ! 703: IF (ICZERO) 31940, 1940, 31940 07000017 ! 704: 1940 CONTINUE 07010017 ! 705: IVON01 = 1 07020017 ! 706: LCTNT1 = .FALSE. 07030017 ! 707: LCTNT2 = .TRUE. 07040017 ! 708: IF ( LCTNT1 .AND. LCTNT2 ) IVON01 = 0 07050017 ! 709: GO TO 41940 07060017 ! 710: 31940 IVDELE = IVDELE + 1 07070017 ! 711: WRITE (I02,80003) IVTNUM 07080017 ! 712: IF (ICZERO) 41940, 1951, 41940 07090017 ! 713: 41940 IF ( IVON01 - 1 ) 21940, 11940, 21940 07100017 ! 714: 11940 IVPASS = IVPASS + 1 07110017 ! 715: WRITE (I02,80001) IVTNUM 07120017 ! 716: GO TO 1951 07130017 ! 717: 21940 IVFAIL = IVFAIL + 1 07140017 ! 718: IVCOMP = IVON01 07150017 ! 719: IVCORR = 1 07160017 ! 720: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07170017 ! 721: 1951 CONTINUE 07180017 ! 722: IVTNUM = 195 07190017 ! 723: C 07200017 ! 724: C **** TEST 195 **** 07210017 ! 725: C TEST 195 - LIKE TEST 193 TRUE .AND. FALSE FALSE PATH 07220017 ! 726: C 07230017 ! 727: C 07240017 ! 728: IF (ICZERO) 31950, 1950, 31950 07250017 ! 729: 1950 CONTINUE 07260017 ! 730: IVON01 = 1 07270017 ! 731: LCTNT1 = .TRUE. 07280017 ! 732: LCTNT2 = .FALSE. 07290017 ! 733: IF ( LCTNT1 .AND. LCTNT2 ) IVON01 = 0 07300017 ! 734: GO TO 41950 07310017 ! 735: 31950 IVDELE = IVDELE + 1 07320017 ! 736: WRITE (I02,80003) IVTNUM 07330017 ! 737: IF (ICZERO) 41950, 1961, 41950 07340017 ! 738: 41950 IF ( IVON01 - 1 ) 21950, 11950, 21950 07350017 ! 739: 11950 IVPASS = IVPASS + 1 07360017 ! 740: WRITE (I02,80001) IVTNUM 07370017 ! 741: GO TO 1961 07380017 ! 742: 21950 IVFAIL = IVFAIL + 1 07390017 ! 743: IVCOMP = IVON01 07400017 ! 744: IVCORR = 1 07410017 ! 745: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07420017 ! 746: 1961 CONTINUE 07430017 ! 747: IVTNUM = 196 07440017 ! 748: C 07450017 ! 749: C **** TEST 196 **** 07460017 ! 750: C TEST 196 - LIKE TEST 193 TRUE .AND. TRUE TRUE PATH 07470017 ! 751: C 07480017 ! 752: C 07490017 ! 753: IF (ICZERO) 31960, 1960, 31960 07500017 ! 754: 1960 CONTINUE 07510017 ! 755: IVON01 = 0 07520017 ! 756: LCTNT1 = .TRUE. 07530017 ! 757: LCTNT2 = .TRUE. 07540017 ! 758: IF ( LCTNT1 .AND. LCTNT2 ) IVON01 = 1 07550017 ! 759: GO TO 41960 07560017 ! 760: 31960 IVDELE = IVDELE + 1 07570017 ! 761: WRITE (I02,80003) IVTNUM 07580017 ! 762: IF (ICZERO) 41960, 1971, 41960 07590017 ! 763: 41960 IF ( IVON01 - 1 ) 21960, 11960, 21960 07600017 ! 764: 11960 IVPASS = IVPASS + 1 07610017 ! 765: WRITE (I02,80001) IVTNUM 07620017 ! 766: GO TO 1971 07630017 ! 767: 21960 IVFAIL = IVFAIL + 1 07640017 ! 768: IVCOMP = IVON01 07650017 ! 769: IVCORR = 1 07660017 ! 770: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07670017 ! 771: 1971 CONTINUE 07680017 ! 772: IVTNUM = 197 07690017 ! 773: C 07700017 ! 774: C **** TEST 197 **** 07710017 ! 775: C TEST 197 - TEST OF THE INCLUSIVE .OR. . (LE) .OR. (LT) 07720017 ! 776: C USES LOGICAL VARIABLES SET IN LOGICAL ASSIGNMENT STATEMENTS 07730017 ! 777: C FALSE .OR. FALSE FALSE PATH 07740017 ! 778: C 07750017 ! 779: C 07760017 ! 780: IF (ICZERO) 31970, 1970, 31970 07770017 ! 781: 1970 CONTINUE 07780017 ! 782: IVON01 = 1 07790017 ! 783: LCTNT1 = .FALSE. 07800017 ! 784: LCTNT2 = .FALSE. 07810017 ! 785: IF ( LCTNT1 .OR. LCTNT2 ) IVON01 = 0 07820017 ! 786: GO TO 41970 07830017 ! 787: 31970 IVDELE = IVDELE + 1 07840017 ! 788: WRITE (I02,80003) IVTNUM 07850017 ! 789: IF (ICZERO) 41970, 1981, 41970 07860017 ! 790: 41970 IF ( IVON01 - 1 ) 21970, 11970, 21970 07870017 ! 791: 11970 IVPASS = IVPASS + 1 07880017 ! 792: WRITE (I02,80001) IVTNUM 07890017 ! 793: GO TO 1981 07900017 ! 794: 21970 IVFAIL = IVFAIL + 1 07910017 ! 795: IVCOMP = IVON01 07920017 ! 796: IVCORR = 1 07930017 ! 797: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07940017 ! 798: 1981 CONTINUE 07950017 ! 799: IVTNUM = 198 07960017 ! 800: C 07970017 ! 801: C **** TEST 198 **** 07980017 ! 802: C TEST 198 - LIKE TEST 197 FALSE .OR. TRUE TRUE PATH 07990017 ! 803: C 08000017 ! 804: C 08010017 ! 805: IF (ICZERO) 31980, 1980, 31980 08020017 ! 806: 1980 CONTINUE 08030017 ! 807: IVON01 = 0 08040017 ! 808: LCTNT1 = .FALSE. 08050017 ! 809: LCTNT2 = .TRUE. 08060017 ! 810: IF ( LCTNT1 .OR. LCTNT2 ) IVON01 = 1 08070017 ! 811: GO TO 41980 08080017 ! 812: 31980 IVDELE = IVDELE + 1 08090017 ! 813: WRITE (I02,80003) IVTNUM 08100017 ! 814: IF (ICZERO) 41980, 1991, 41980 08110017 ! 815: 41980 IF ( IVON01 - 1 ) 21980, 11980, 21980 08120017 ! 816: 11980 IVPASS = IVPASS + 1 08130017 ! 817: WRITE (I02,80001) IVTNUM 08140017 ! 818: GO TO 1991 08150017 ! 819: 21980 IVFAIL = IVFAIL + 1 08160017 ! 820: IVCOMP = IVON01 08170017 ! 821: IVCORR = 1 08180017 ! 822: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 08190017 ! 823: 1991 CONTINUE 08200017 ! 824: IVTNUM = 199 08210017 ! 825: C 08220017 ! 826: C **** TEST 199 **** 08230017 ! 827: C TEST 199 - LIKE TEST 197. TRUE .OR. FALSE TRUE PATH. 08240017 ! 828: C 08250017 ! 829: C 08260017 ! 830: IF (ICZERO) 31990, 1990, 31990 08270017 ! 831: 1990 CONTINUE 08280017 ! 832: IVON01 = 0 08290017 ! 833: LCTNT1 = .TRUE. 08300017 ! 834: LCTNT2 = .FALSE. 08310017 ! 835: IF ( LCTNT1 .OR. LCTNT2 ) IVON01 = 1 08320017 ! 836: GO TO 41990 08330017 ! 837: 31990 IVDELE = IVDELE + 1 08340017 ! 838: WRITE (I02,80003) IVTNUM 08350017 ! 839: IF (ICZERO) 41990, 5001, 41990 08360017 ! 840: 41990 IF ( IVON01 - 1 ) 21990, 11990, 21990 08370017 ! 841: 11990 IVPASS = IVPASS + 1 08380017 ! 842: WRITE (I02,80001) IVTNUM 08390017 ! 843: GO TO 5001 08400017 ! 844: 21990 IVFAIL = IVFAIL + 1 08410017 ! 845: IVCOMP = IVON01 08420017 ! 846: IVCORR = 1 08430017 ! 847: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 08440017 ! 848: 5001 CONTINUE 08450017 ! 849: C 08460017 ! 850: C WRITE PAGE FOOTINGS AND RUN SUMMARIES 08470017 ! 851: 99999 CONTINUE 08480017 ! 852: WRITE (I02,90002) 08490017 ! 853: WRITE (I02,90006) 08500017 ! 854: WRITE (I02,90002) 08510017 ! 855: WRITE (I02,90002) 08520017 ! 856: WRITE (I02,90007) 08530017 ! 857: WRITE (I02,90002) 08540017 ! 858: WRITE (I02,90008) IVFAIL 08550017 ! 859: WRITE (I02,90009) IVPASS 08560017 ! 860: WRITE (I02,90010) IVDELE 08570017 ! 861: C 08580017 ! 862: C 08590017 ! 863: C TERMINATE ROUTINE EXECUTION 08600017 ! 864: STOP 08610017 ! 865: C 08620017 ! 866: C FORMAT STATEMENTS FOR PAGE HEADERS 08630017 ! 867: 90000 FORMAT (1H1) 08640017 ! 868: 90002 FORMAT (1H ) 08650017 ! 869: 90001 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 08660017 ! 870: 90003 FORMAT (1H ,21X,11HVERSION 1.0) 08670017 ! 871: 90004 FORMAT (1H ,10X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 08680017 ! 872: 90005 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL, 5X,8HCOMPUTED,8X,7HCORRECT) 08690017 ! 873: 90006 FORMAT (1H ,5X,46H----------------------------------------------) 08700017 ! 874: 90011 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 08710017 ! 875: C 08720017 ! 876: C FORMAT STATEMENTS FOR RUN SUMMARIES 08730017 ! 877: 90008 FORMAT (1H ,15X,I5,19H ERRORS ENCOUNTERED) 08740017 ! 878: 90009 FORMAT (1H ,15X,I5,13H TESTS PASSED) 08750017 ! 879: 90010 FORMAT (1H ,15X,I5,14H TESTS DELETED) 08760017 ! 880: C 08770017 ! 881: C FORMAT STATEMENTS FOR TEST RESULTS 08780017 ! 882: 80001 FORMAT (1H ,4X,I5,7X,4HPASS) 08790017 ! 883: 80002 FORMAT (1H ,4X,I5,7X,4HFAIL) 08800017 ! 884: 80003 FORMAT (1H ,4X,I5,7X,7HDELETED) 08810017 ! 885: 80004 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 08820017 ! 886: 80005 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 08830017 ! 887: C 08840017 ! 888: 90007 FORMAT (1H ,20X,20HEND OF PROGRAM FM017) 08850017 ! 889: END 08860017
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.