![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM256.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 FM256.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 FM256 00010256 ! 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 00020256 ! 6: C 00030256 ! 7: C 00040256 ! 8: C THIS ROUTINE IS A TEST OF THE DO STATEMENT. THE DO IS TESTED 00050256 ! 9: C BOTH OUTSIDE AND INSIDE THE BLOCK-IF STRUCTURE. TESTS ARE MADE OF00060256 ! 10: C THE DO-VARIABLE WHEN THE DO BECOMES INACTIVE. OTHER TESTS CHECK 00070256 ! 11: C LOOP AND INCREMENTATION PROCESSING. THE DO-LOOP EXECUTION 00080256 ! 12: C IS TESTED FOR THOSE CONDITIONS WHICH MAKE THE DO-LOOP INACTIVE. 00090256 ! 13: C 00100256 ! 14: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00110256 ! 15: C X3.9-1978 00120256 ! 16: C SECTION 11.10, DO STATEMENT 00130256 ! 17: C SECTION 11.10.1, RANGE OF A DO-LOOP 00140256 ! 18: C SECTION 11.10.2, ACTIVE AND INACTIVE DO-LOOPS 00150256 ! 19: C SECTION 11.10.3, EXECUTING A DO STATEMENT 00160256 ! 20: C SECTION 11.10.4, LOOP CONTROL PROCESSING 00170256 ! 21: C SECTION 11.10.5, EXECUTION OF THE RANGE 00180256 ! 22: C SECTION 11.10.6, TERMINAL STATEMENT EXECUTION 00190256 ! 23: C SECTION 11.10.7, INCREMENTATION PROCESSING 00200256 ! 24: C 00210256 ! 25: C FM012 - TESTS THE DO STATEMENT WITH THE FORTRAN 66 CONCEPTS OF 00220256 ! 26: C EXTENDED RANGE OF A DO STATEMENT. 00230256 ! 27: C 00240256 ! 28: C 00250256 ! 29: C 00260256 ! 30: C ******************************************************************00270256 ! 31: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00280256 ! 32: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN STANDARD FORTRAN 00290256 ! 33: C X3.9-1978, HAS BEEN DEVELOPED BY THE DEPARTMENT OF THE NAVY. THE 00300256 ! 34: C FORTRAN COMPILER VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT 00310256 ! 35: C ROUTINES, THEIR RELATED DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT00320256 ! 36: C ROUTINE IS A FORTRAN PROGRAM OR SUBPROGRAM WHICH INCLUDES TESTS 00330256 ! 37: C OF SPECIFIC LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING00340256 ! 38: C THE RESULT OF EXECUTING THESE TESTS. 00350256 ! 39: C 00360256 ! 40: C THIS PARTICULAR PROGRAM OR SUBPROGRAM CONTAINS ONLY FEATURES 00370256 ! 41: C FOUND IN THE SUBSET LEVEL OF THE STANDARD. 00380256 ! 42: C 00390256 ! 43: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00400256 ! 44: C DEPARTMENT OF THE NAVY 00410256 ! 45: C FEDERAL COBOL COMPILER TESTING SERVICE 00420256 ! 46: C WASHINGTON, D.C. 20376 00430256 ! 47: C 00440256 ! 48: C ******************************************************************00450256 ! 49: C 00460256 ! 50: C 00470256 ! 51: IMPLICIT LOGICAL (L) 00480256 ! 52: IMPLICIT CHARACTER*14 (C) 00490256 ! 53: C 00500256 ! 54: C 00510256 ! 55: C 00520256 ! 56: C INITIALIZATION SECTION. 00530256 ! 57: C 00540256 ! 58: C INITIALIZE CONSTANTS 00550256 ! 59: C ******************** 00560256 ! 60: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER 00570256 ! 61: I01 = 5 00580256 ! 62: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER 00590256 ! 63: I02 = 6 00600256 ! 64: C SYSTEM ENVIRONMENT SECTION 00610256 ! 65: C 00620256 ! 66: I01 = 5 00630256 ! 67: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00640256 ! 68: C (UNIT NUMBER FOR CARD READER). 00650256 ! 69: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD00660256 ! 70: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00670256 ! 71: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00680256 ! 72: C 00690256 ! 73: I02 = 6 00700256 ! 74: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00710256 ! 75: C (UNIT NUMBER FOR PRINTER). 00720256 ! 76: CX021 THIS CARD IS PEPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD.00730256 ! 77: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00740256 ! 78: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00750256 ! 79: C 00760256 ! 80: IVPASS = 0 00770256 ! 81: IVFAIL = 0 00780256 ! 82: IVDELE = 0 00790256 ! 83: ICZERO = 0 00800256 ! 84: C 00810256 ! 85: C WRITE OUT PAGE HEADERS 00820256 ! 86: C 00830256 ! 87: WRITE (I02,90002) 00840256 ! 88: WRITE (I02,90006) 00850256 ! 89: WRITE (I02,90008) 00860256 ! 90: WRITE (I02,90004) 00870256 ! 91: WRITE (I02,90010) 00880256 ! 92: WRITE (I02,90004) 00890256 ! 93: WRITE (I02,90016) 00900256 ! 94: WRITE (I02,90001) 00910256 ! 95: WRITE (I02,90004) 00920256 ! 96: WRITE (I02,90012) 00930256 ! 97: WRITE (I02,90014) 00940256 ! 98: WRITE (I02,90004) 00950256 ! 99: C 00960256 ! 100: C 00970256 ! 101: C **** FCVS PROGRAM 256 - TEST 001 **** 00980256 ! 102: C 00990256 ! 103: C TEST 001 CHECKS THE SIMPLE DO STATEMENT WITH THE OPTIONAL 01000256 ! 104: C COMMAS AND ALL DO PARAMETERS SPECIFIED. THE LOOP IS ACTIVE FOR 01010256 ! 105: C TEN COUNTS. THE FINAL VALUE OF THE INTEGER COUNTER SHOULD BE 01020256 ! 106: C EQUAL TO TEN (10). THE FORM OF THE DO STATEMENT USED IN THIS TEST01030256 ! 107: C IS SHOWN BELOW - 01040256 ! 108: C 01050256 ! 109: C DO S, I = E1, E2, E3 01060256 ! 110: C 01070256 ! 111: C 01080256 ! 112: IVTNUM = 1 01090256 ! 113: IF (ICZERO) 30010, 0010, 30010 01100256 ! 114: 0010 CONTINUE 01110256 ! 115: IVCOMP = 0 01120256 ! 116: DO 0012, IVON01 = 1, 10, 1 01130256 ! 117: IVCOMP = IVCOMP + 1 01140256 ! 118: 0012 CONTINUE 01150256 ! 119: IVCORR = 10 01160256 ! 120: 40010 IF ( IVCOMP - 10 ) 20010, 10010, 20010 01170256 ! 121: 30010 IVDELE = IVDELE + 1 01180256 ! 122: WRITE (I02,80000) IVTNUM 01190256 ! 123: IF (ICZERO) 10010, 0021, 20010 01200256 ! 124: 10010 IVPASS = IVPASS + 1 01210256 ! 125: WRITE (I02,80002) IVTNUM 01220256 ! 126: GO TO 0021 01230256 ! 127: 20010 IVFAIL = IVFAIL + 1 01240256 ! 128: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01250256 ! 129: 0021 CONTINUE 01260256 ! 130: C 01270256 ! 131: C **** FCVS PROGRAM 256 - TEST 002 **** 01280256 ! 132: C 01290256 ! 133: C TEST 002 IS SIMILAR TO THE PREVIOUS TEST EXCEPT THAT THE COMMAS01300256 ! 134: C THAT ARE OPTIONAL HAVE BEEN DELETED AS A SYNTAX CHECK. 01310256 ! 135: C 01320256 ! 136: C THE INCREMENTATION PARAMETER IS OPTIONAL AND NOT PRESENT IN 01330256 ! 137: C THIS TEST. ACCORDING TO SECTION 11.10.3, IF E3 DOES NOT APPEAR01340256 ! 138: C THEN M3 HAS A VALUE OF ONE. THE DO STATEMENT FOR THIS TEST IS OF 01350256 ! 139: C THE FORM SHOWN BELOW - 01360256 ! 140: C 01370256 ! 141: C DO S I = E1, E2 01380256 ! 142: C 01390256 ! 143: C 01400256 ! 144: IVTNUM = 2 01410256 ! 145: IF (ICZERO) 30020, 0020, 30020 01420256 ! 146: 0020 CONTINUE 01430256 ! 147: IVCOMP = 0 01440256 ! 148: DO 0022 IVON01 = 1, 10 01450256 ! 149: IVCOMP = IVCOMP + 1 01460256 ! 150: 0022 CONTINUE 01470256 ! 151: IVCORR = 10 01480256 ! 152: 40020 IF ( IVCOMP - 10 ) 20020, 10020, 20020 01490256 ! 153: 30020 IVDELE = IVDELE + 1 01500256 ! 154: WRITE (I02,80000) IVTNUM 01510256 ! 155: IF (ICZERO) 10020, 0031, 20020 01520256 ! 156: 10020 IVPASS = IVPASS + 1 01530256 ! 157: WRITE (I02,80002) IVTNUM 01540256 ! 158: GO TO 0031 01550256 ! 159: 20020 IVFAIL = IVFAIL + 1 01560256 ! 160: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01570256 ! 161: 0031 CONTINUE 01580256 ! 162: C 01590256 ! 163: C **** FCVS PROGRAM 256 - TEST 003 **** 01600256 ! 164: C 01610256 ! 165: C TEST 003 HAS A DO STATEMENT INSIDE A BLOCKED IF STRUCTURE. 01620256 ! 166: C THE LOGICAL EXPRESSION IS TRUE SO THE DO-LOOP SHOULD BE EXECUTED 01630256 ! 167: C A TOTAL OF TEN TIMES. 01640256 ! 168: C 01650256 ! 169: C 01660256 ! 170: IVTNUM = 3 01670256 ! 171: IF (ICZERO) 30030, 0030, 30030 01680256 ! 172: 0030 CONTINUE 01690256 ! 173: IVCOMP = 0 01700256 ! 174: LVON01 = .TRUE. 01710256 ! 175: IF ( LVON01 ) THEN 01720256 ! 176: DO 0032, IVON01 = 1, 10, 1 01730256 ! 177: IVCOMP = IVCOMP + 1 01740256 ! 178: 0032 CONTINUE 01750256 ! 179: END IF 01760256 ! 180: IVCORR = 10 01770256 ! 181: 40030 IF ( IVCOMP - 10 ) 20030, 10030, 20030 01780256 ! 182: 30030 IVDELE = IVDELE + 1 01790256 ! 183: WRITE (I02,80000) IVTNUM 01800256 ! 184: IF (ICZERO) 10030, 0041, 20030 01810256 ! 185: 10030 IVPASS = IVPASS + 1 01820256 ! 186: WRITE (I02,80002) IVTNUM 01830256 ! 187: GO TO 0041 01840256 ! 188: 20030 IVFAIL = IVFAIL + 1 01850256 ! 189: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01860256 ! 190: 0041 CONTINUE 01870256 ! 191: C 01880256 ! 192: C **** FCVS PROGRAM 256 - TEST 004 **** 01890256 ! 193: C 01900256 ! 194: C TEST 004 IS SIMILAR TO THE PREVIOUS TEST EXCEPT THAT THE DO 01910256 ! 195: C STATEMENT IS LOCATED IN AN ELSE IF-BLOCK. THE DO-LOOP SHOULD BE 01920256 ! 196: C EXECUTED FIVE (5) TIMES. 01930256 ! 197: C 01940256 ! 198: C 01950256 ! 199: IVTNUM = 4 01960256 ! 200: IF (ICZERO) 30040, 0040, 30040 01970256 ! 201: 0040 CONTINUE 01980256 ! 202: IVCOMP = 0 01990256 ! 203: LVON01 = .FALSE. 02000256 ! 204: LVON02 = .TRUE. 02010256 ! 205: IF ( LVON01 ) THEN 02020256 ! 206: IVCOMP = 32000 02030256 ! 207: ELSE IF ( LVON02 ) THEN 02040256 ! 208: DO 0042 IVON01 = 1, 5 02050256 ! 209: IVCOMP = IVCOMP + 1 02060256 ! 210: 0042 CONTINUE 02070256 ! 211: END IF 02080256 ! 212: IVCORR = 5 02090256 ! 213: 40040 IF ( IVCOMP - 5 ) 20040, 10040, 20040 02100256 ! 214: 30040 IVDELE = IVDELE + 1 02110256 ! 215: WRITE (I02,80000) IVTNUM 02120256 ! 216: IF (ICZERO) 10040, 0051, 20040 02130256 ! 217: 10040 IVPASS = IVPASS + 1 02140256 ! 218: WRITE (I02,80002) IVTNUM 02150256 ! 219: GO TO 0051 02160256 ! 220: 20040 IVFAIL = IVFAIL + 1 02170256 ! 221: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02180256 ! 222: 0051 CONTINUE 02190256 ! 223: C 02200256 ! 224: C **** FCVS PROGRAM 256 - TEST 005 **** 02210256 ! 225: C 02220256 ! 226: C TEST 005 IS SIMILAR TO THE PREVIOUS TWO TESTS EXCEPT THAT THE 02230256 ! 227: C DO STATEMENT IS CONTAINED IN AN ELSE-BLOCK. THE DO-LOOP SHOULD BE02240256 ! 228: C EXECUTED A TOTAL OF 3 TIMES. 02250256 ! 229: C 02260256 ! 230: C 02270256 ! 231: IVTNUM = 5 02280256 ! 232: IF (ICZERO) 30050, 0050, 30050 02290256 ! 233: 0050 CONTINUE 02300256 ! 234: IVCOMP = 0 02310256 ! 235: LVON01 = .FALSE. 02320256 ! 236: LVON02 = .FALSE. 02330256 ! 237: IF ( LVON01 ) THEN 02340256 ! 238: IVCOMP = 100 02350256 ! 239: ELSE IF ( LVON02 ) THEN 02360256 ! 240: IVCOMP = 1000 02370256 ! 241: ELSE 02380256 ! 242: DO 0052, IVON01 = 1, 3 02390256 ! 243: IVCOMP = IVCOMP + 1 02400256 ! 244: 0052 CONTINUE 02410256 ! 245: END IF 02420256 ! 246: IVCORR = 3 02430256 ! 247: 40050 IF ( IVCOMP - 3 ) 20050, 10050, 20050 02440256 ! 248: 30050 IVDELE = IVDELE + 1 02450256 ! 249: WRITE (I02,80000) IVTNUM 02460256 ! 250: IF (ICZERO) 10050, 0061, 20050 02470256 ! 251: 10050 IVPASS = IVPASS + 1 02480256 ! 252: WRITE (I02,80002) IVTNUM 02490256 ! 253: GO TO 0061 02500256 ! 254: 20050 IVFAIL = IVFAIL + 1 02510256 ! 255: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02520256 ! 256: 0061 CONTINUE 02530256 ! 257: C 02540256 ! 258: C **** FCVS PROGRAM 256 - TEST 006 **** 02550256 ! 259: C 02560256 ! 260: C TEST 006 HAS A BLOCKED IF STRUCTURE INSIDE A DO-LOOP. 02570256 ! 261: C THE LOOP IS EXECUTED THREE (3) TIMES. ALL THREE PARTS OF THE 02580256 ! 262: C BLOCK-IF STRUCTURE SHOULD BE EXECUTED. 02590256 ! 263: C 02600256 ! 264: C 02610256 ! 265: IVTNUM = 6 02620256 ! 266: IF (ICZERO) 30060, 0060, 30060 02630256 ! 267: 0060 CONTINUE 02640256 ! 268: IVCOMP = 1 02650256 ! 269: DO 0062, IVON01 = 3, 5, 1 02660256 ! 270: IF ( IVON01 .LE. 3 ) THEN 02670256 ! 271: IVCOMP = IVCOMP * 2 02680256 ! 272: ELSE IF ( IVON01 .GT. 3 .AND. IVON01 .LT. 5 ) THEN 02690256 ! 273: IVCOMP = IVCOMP * 3 02700256 ! 274: ELSE 02710256 ! 275: IVCOMP = IVCOMP * 5 02720256 ! 276: END IF 02730256 ! 277: 0062 CONTINUE 02740256 ! 278: C 02750256 ! 279: C **** IVCOMP IS DETERMINED BY IVCOMP = 30 = 1 * 2 * 3 * 5 ****02760256 ! 280: C 02770256 ! 281: IVCORR = 30 02780256 ! 282: 40060 IF ( IVCOMP - 30 ) 20060, 10060, 20060 02790256 ! 283: 30060 IVDELE = IVDELE + 1 02800256 ! 284: WRITE (I02,80000) IVTNUM 02810256 ! 285: IF (ICZERO) 10060, 0071, 20060 02820256 ! 286: 10060 IVPASS = IVPASS + 1 02830256 ! 287: WRITE (I02,80002) IVTNUM 02840256 ! 288: GO TO 0071 02850256 ! 289: 20060 IVFAIL = IVFAIL + 1 02860256 ! 290: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02870256 ! 291: 0071 CONTINUE 02880256 ! 292: C 02890256 ! 293: C 02900256 ! 294: C THE FOLLOWING SERIES OF TESTS CHECK THE DO-VARIABLE WHEN THE 02910256 ! 295: C DO-LOOP BECOMES INACTIVE. ACCORDING TO SECTION 11.10.2, WHEN A 02920256 ! 296: C DO-LOOP BECOMES INACTIVE, THE DO-VARIABLE OF THE DO-LOOP RETAINS 02930256 ! 297: C ITS LAST DEFINED VALUE. 02940256 ! 298: C 02950256 ! 299: C 02960256 ! 300: C 02970256 ! 301: C **** FCVS PROGRAM 256 - TEST 007 **** 02980256 ! 302: C 02990256 ! 303: C TEST 007 CHECKS THAT THE DO-VARIABLE CONTAINS ITS LAST DEFINED 03000256 ! 304: C VALUE WHEN THE ITERATION COUNT IS ZERO. 03010256 ! 305: C 03020256 ! 306: C 03030256 ! 307: IVTNUM = 7 03040256 ! 308: IF (ICZERO) 30070, 0070, 30070 03050256 ! 309: 0070 CONTINUE 03060256 ! 310: IVCOMP = 0 03070256 ! 311: IVON02 = 0 03080256 ! 312: DO 0072 IVON01 = 100, 105, 2 03090256 ! 313: IVON02 = IVON02 + 1 03100256 ! 314: 0072 CONTINUE 03110256 ! 315: IVCOMP = IVON01 03120256 ! 316: IVCORR = 106 03130256 ! 317: 40070 IF ( IVCOMP - 106 ) 20070, 10070, 20070 03140256 ! 318: 30070 IVDELE = IVDELE + 1 03150256 ! 319: WRITE (I02,80000) IVTNUM 03160256 ! 320: IF (ICZERO) 10070, 0081, 20070 03170256 ! 321: 10070 IVPASS = IVPASS + 1 03180256 ! 322: WRITE (I02,80002) IVTNUM 03190256 ! 323: GO TO 0081 03200256 ! 324: 20070 IVFAIL = IVFAIL + 1 03210256 ! 325: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03220256 ! 326: 0081 CONTINUE 03230256 ! 327: C 03240256 ! 328: C **** FCVS PROGRAM 256 - TEST 008 **** 03250256 ! 329: C 03260256 ! 330: C TEST 008 CHECKS THAT THE LOOP COUNTER IN THE PREVIOUS TEST HAD 03270256 ! 331: C A VALUE OF THREE TO SHOW THAT THE DO-LOOP WAS EXECUTED THREE TIMES03280256 ! 332: C BEFORE TERMINATING ( BECOMMING INACTIVE ). 03290256 ! 333: C 03300256 ! 334: C 03310256 ! 335: IVTNUM = 8 03320256 ! 336: IF (ICZERO) 30080, 0080, 30080 03330256 ! 337: 0080 CONTINUE 03340256 ! 338: IVCOMP = 0 03350256 ! 339: IVCOMP = IVON02 03360256 ! 340: IVCORR = 3 03370256 ! 341: 40080 IF ( IVCOMP - 3 ) 20080, 10080, 20080 03380256 ! 342: 30080 IVDELE = IVDELE + 1 03390256 ! 343: WRITE (I02,80000) IVTNUM 03400256 ! 344: IF (ICZERO) 10080, 0091, 20080 03410256 ! 345: 10080 IVPASS = IVPASS + 1 03420256 ! 346: WRITE (I02,80002) IVTNUM 03430256 ! 347: GO TO 0091 03440256 ! 348: 20080 IVFAIL = IVFAIL + 1 03450256 ! 349: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03460256 ! 350: 0091 CONTINUE 03470256 ! 351: C 03480256 ! 352: C **** FCVS PROGRAM 256 - TEST 009 **** 03490256 ! 353: C 03500256 ! 354: C TEST 009 CHECKS THAT A DO-LOOP BECOMES INACTIVE IF THERE IS A 03510256 ! 355: C TRANSFER OF CONTROL OUTSIDE THE RANGE OF THE DO-LOOP. THE TRANS- 03520256 ! 356: C FER MUST BE INSIDE OF THE SAME PROGRAM UNIT - NOT A CALL OR 03530256 ! 357: C FUNCTION REFERENCE TO A SUBPROGRAM. 03540256 ! 358: C 03550256 ! 359: C THIS IS A SIGNIFICANT DIFFERENCE BETWEEN FORTRAN 66 AND FORTRAN03560256 ! 360: C 77. FORTRAN 66 HAD AN EXTENDED RANGE OF THE DO FEATURE WHICH 03570256 ! 361: C ALLOWED FOR A TRANSFER OUTSIDE THE RANGE OF A DO-LOOP WITHOUT 03580256 ! 362: C MAKING THE DO-LOOP INACTIVE. 03590256 ! 363: C 03600256 ! 364: C 03610256 ! 365: IVTNUM = 9 03620256 ! 366: IF (ICZERO) 30090, 0090, 30090 03630256 ! 367: 0090 CONTINUE 03640256 ! 368: IVCOMP = 0 03650256 ! 369: DO 0092 IVON01 = 1, 7 03660256 ! 370: IF ( IVON01 .GE. 3 ) GO TO 0093 03670256 ! 371: 0092 CONTINUE 03680256 ! 372: 0093 IVCOMP = IVON01 03690256 ! 373: IVCORR = 3 03700256 ! 374: 40090 IF ( IVCOMP - 3 ) 20090, 10090, 20090 03710256 ! 375: 30090 IVDELE = IVDELE + 1 03720256 ! 376: WRITE (I02,80000) IVTNUM 03730256 ! 377: IF (ICZERO) 10090, 0101, 20090 03740256 ! 378: 10090 IVPASS = IVPASS + 1 03750256 ! 379: WRITE (I02,80002) IVTNUM 03760256 ! 380: GO TO 0101 03770256 ! 381: 20090 IVFAIL = IVFAIL + 1 03780256 ! 382: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03790256 ! 383: 0101 CONTINUE 03800256 ! 384: C 03810256 ! 385: C **** FCVS PROGRAM 256 - TEST 010 **** 03820256 ! 386: C 03830256 ! 387: C TEST 010 CHECKS FOR AN INITIAL COUNT EQUAL TO ZERO BECAUSE 03840256 ! 388: C M1 IS GREATER THAN M2 AND M3 IS GREATER THAN ZERO - SEE SECTION 03850256 ! 389: C 11.10.3 FOR CONDITIONS WHICH MAKE THE ITERATION COUNT ZERO. 03860256 ! 390: C THE LOOP SHOULD NOT BE EXECUTED AT ALL. 03870256 ! 391: C 03880256 ! 392: C 03890256 ! 393: IVTNUM = 10 03900256 ! 394: IF (ICZERO) 30100, 0100, 30100 03910256 ! 395: 0100 CONTINUE 03920256 ! 396: IVCOMP = 0 03930256 ! 397: DO 0102, IVON01 = 100, 10, 3 03940256 ! 398: IVCOMP = IVCOMP + 1 03950256 ! 399: 0102 CONTINUE 03960256 ! 400: IVCORR = 0 03970256 ! 401: 40100 IF ( IVCOMP ) 20100, 10100, 20100 03980256 ! 402: 30100 IVDELE = IVDELE + 1 03990256 ! 403: WRITE (I02,80000) IVTNUM 04000256 ! 404: IF (ICZERO) 10100, 0111, 20100 04010256 ! 405: 10100 IVPASS = IVPASS + 1 04020256 ! 406: WRITE (I02,80002) IVTNUM 04030256 ! 407: GO TO 0111 04040256 ! 408: 20100 IVFAIL = IVFAIL + 1 04050256 ! 409: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04060256 ! 410: 0111 CONTINUE 04070256 ! 411: C 04080256 ! 412: C **** FCVS PROGRAM 256 - TEST 011 **** 04090256 ! 413: C 04100256 ! 414: C TEST 011 CHECKS FOR THE PROPER EXECUTION OF THE STEPS AS SHOWN 04110256 ! 415: C IN SECTION 11.10.3 - EXECUTING A DO STATEMENT. THE VARIABLE IVON004120256 ! 416: C SHOULD HAVE BEEN SET TO 100. THE ITERATION COUNT IS ZERO BY THE 04130256 ! 417: C FORMULA IN 11.10.3(3). AS DESCRIBED IN SECTION 11.10.4 - THE 04140256 ! 418: C ITERATION COUNT IS TESTED. IF IT IS NOT ZERO, EXECUTION OF THE 04150256 ! 419: C FIRST STATEMENT IN THE RANGE OF THE DO-LOOP BEGINS. IF THE 04160256 ! 420: C ITERATION COUNT IS ZERO, THE DO-LOOP BECOMES INACTIVE. 04170256 ! 421: C 04180256 ! 422: C 04190256 ! 423: IVTNUM = 11 04200256 ! 424: IF (ICZERO) 30110, 0110, 30110 04210256 ! 425: 0110 CONTINUE 04220256 ! 426: IVCOMP = 0 04230256 ! 427: IVCOMP = IVON01 04240256 ! 428: IVCORR = 100 04250256 ! 429: 40110 IF ( IVCOMP - 100 ) 20110, 10110, 20110 04260256 ! 430: 30110 IVDELE = IVDELE + 1 04270256 ! 431: WRITE (I02,80000) IVTNUM 04280256 ! 432: IF (ICZERO) 10110, 0121, 20110 04290256 ! 433: 10110 IVPASS = IVPASS + 1 04300256 ! 434: WRITE (I02,80002) IVTNUM 04310256 ! 435: GO TO 0121 04320256 ! 436: 20110 IVFAIL = IVFAIL + 1 04330256 ! 437: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04340256 ! 438: 0121 CONTINUE 04350256 ! 439: C 04360256 ! 440: C 04370256 ! 441: C THE FOLLOWING TWO TESTS ARE SIMILAR TO THE PREVIOUS TWO TESTS 04380256 ! 442: C IN THAT THE PARAMETERS OF THE DO STATEMENT MAKE THE ITERATION 04390256 ! 443: C COUNT ZERO WHEN THE DO STATEMENT IS EXECUTED. 04400256 ! 444: C 04410256 ! 445: C 04420256 ! 446: C 04430256 ! 447: C **** FCVS PROGRAM 256 - TEST 012 **** 04440256 ! 448: C 04450256 ! 449: C TEST 012 HAS M1 LESS THAN M2, BUT M3 IS NEGATIVE. THE LOOP 04460256 ! 450: C SHOULD NOT BE EXECUTED AT ALL. 04470256 ! 451: C 04480256 ! 452: C 04490256 ! 453: IVTNUM = 12 04500256 ! 454: IF (ICZERO) 30120, 0120, 30120 04510256 ! 455: 0120 CONTINUE 04520256 ! 456: IVCOMP = 0 04530256 ! 457: DO 0122 IVON01 = 10, 100, -3 04540256 ! 458: IVCOMP = IVCOMP + 1 04550256 ! 459: 0122 CONTINUE 04560256 ! 460: IVCORR = 0 04570256 ! 461: 40120 IF ( IVCOMP ) 20120, 10120, 20120 04580256 ! 462: 30120 IVDELE = IVDELE + 1 04590256 ! 463: WRITE (I02,80000) IVTNUM 04600256 ! 464: IF (ICZERO) 10120, 0131, 20120 04610256 ! 465: 10120 IVPASS = IVPASS + 1 04620256 ! 466: WRITE (I02,80002) IVTNUM 04630256 ! 467: GO TO 0131 04640256 ! 468: 20120 IVFAIL = IVFAIL + 1 04650256 ! 469: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04660256 ! 470: 0131 CONTINUE 04670256 ! 471: C 04680256 ! 472: C **** FCVS PROGRAM 256 - TEST 013 **** 04690256 ! 473: C 04700256 ! 474: C TEST 013 CHECKS THAT THE VALUE RETAINED FOR THE DO-VARIABLE 04710256 ! 475: C IN THE PREVIOUS TEST IS EQUAL TO THE INITIAL PARAMETER VALUE - M3.04720256 ! 476: C 04730256 ! 477: C 04740256 ! 478: IVTNUM = 13 04750256 ! 479: IF (ICZERO) 30130, 0130, 30130 04760256 ! 480: 0130 CONTINUE 04770256 ! 481: IVCOMP = 0 04780256 ! 482: IVCOMP = IVON01 04790256 ! 483: IVCORR = 10 04800256 ! 484: 40130 IF ( IVCOMP - 10 ) 20130, 10130, 20130 04810256 ! 485: 30130 IVDELE = IVDELE + 1 04820256 ! 486: WRITE (I02,80000) IVTNUM 04830256 ! 487: IF (ICZERO) 10130, 0141, 20130 04840256 ! 488: 10130 IVPASS = IVPASS + 1 04850256 ! 489: WRITE (I02,80002) IVTNUM 04860256 ! 490: GO TO 0141 04870256 ! 491: 20130 IVFAIL = IVFAIL + 1 04880256 ! 492: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04890256 ! 493: 0141 CONTINUE 04900256 ! 494: C 04910256 ! 495: C **** FCVS PROGRAM 256 - TEST 014 **** 04920256 ! 496: C 04930256 ! 497: C TEST 014 CHECKS FOR ONE EXECUTION OF THE RANGE OF A DO-LOOP 04940256 ! 498: C ACCORDING TO THE FORMULA SHOWN IN 11.10.3(3) WITH M1 = M2. 04950256 ! 499: C 04960256 ! 500: C THE DO-LOOPS IN THIS TEST ARE A NEST OF THREE EACH WITH ITS 04970256 ! 501: C OWN TERMINAL STATEMENT. 04980256 ! 502: C 04990256 ! 503: C 05000256 ! 504: IVTNUM = 14 05010256 ! 505: IF (ICZERO) 30140, 0140, 30140 05020256 ! 506: 0140 CONTINUE 05030256 ! 507: IVCOMP = 1 05040256 ! 508: DO 0144 IVON01 = 1, 1, 1 05050256 ! 509: IVCOMP = IVCOMP * 2 05060256 ! 510: DO 0143 IVON02 = 10,10,10 05070256 ! 511: IVCOMP = IVCOMP * 3 05080256 ! 512: DO 0142, IVON03 = 100, 100, -2 05090256 ! 513: IVCOMP = IVCOMP * 5 05100256 ! 514: 0142 CONTINUE 05110256 ! 515: 0143 CONTINUE 05120256 ! 516: 0144 CONTINUE 05130256 ! 517: C 05140256 ! 518: C **** IVCOMP IS DETERMINED BY IVCOMP = 30 = 1 * 2 * 3 * 5 ***05150256 ! 519: C 05160256 ! 520: IVCORR = 30 05170256 ! 521: 40140 IF ( IVCOMP - 30 ) 20140, 10140, 20140 05180256 ! 522: 30140 IVDELE = IVDELE + 1 05190256 ! 523: WRITE (I02,80000) IVTNUM 05200256 ! 524: IF (ICZERO) 10140, 0151, 20140 05210256 ! 525: 10140 IVPASS = IVPASS + 1 05220256 ! 526: WRITE (I02,80002) IVTNUM 05230256 ! 527: GO TO 0151 05240256 ! 528: 20140 IVFAIL = IVFAIL + 1 05250256 ! 529: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05260256 ! 530: 0151 CONTINUE 05270256 ! 531: C 05280256 ! 532: C **** FCVS PROGRAM 256 - TEST 015 **** 05290256 ! 533: C 05300256 ! 534: C TEST 015 IS A CHECK ON THE FIRST EXAMPLE SHOWN IN SECTION 05310256 ! 535: C 11.10.7. THIS IS A TEST OF INCREMENTATION PROCESSING OF TWO NEST 05320256 ! 536: C DO-LOOPS HAVING THE SAME TERMINAL STATEMENT. 05330256 ! 537: C 05340256 ! 538: C THIS IS A TEST OF A DO-LOOP THAT BECOMES ACTIVE INSIDE AN 05350256 ! 539: C ALREADY ACTIVE DO-LOOP. 05360256 ! 540: C 05370256 ! 541: C 05380256 ! 542: IVTNUM = 15 05390256 ! 543: IF (ICZERO) 30150, 0150, 30150 05400256 ! 544: 0150 CONTINUE 05410256 ! 545: IVCOMP = 0 05420256 ! 546: IVON01 = 0 05430256 ! 547: DO 0152 IVON02 = 1, 10 05440256 ! 548: IVON03 = IVON02 05450256 ! 549: DO 0152 IVON04 = 1, 5 05460256 ! 550: IVON05 = IVON04 05470256 ! 551: 0152 IVON01 = IVON01 + 1 05480256 ! 552: 0153 CONTINUE 05490256 ! 553: IVCOMP = IVON02 05500256 ! 554: C THIS IS THE VALUE FOR I IN THE EXAMPLE. 05510256 ! 555: IVCORR = 11 05520256 ! 556: 40150 IF ( IVCOMP - 11 ) 20150, 10150, 20150 05530256 ! 557: 30150 IVDELE = IVDELE + 1 05540256 ! 558: WRITE (I02,80000) IVTNUM 05550256 ! 559: IF (ICZERO) 10150, 0161, 20150 05560256 ! 560: 10150 IVPASS = IVPASS + 1 05570256 ! 561: WRITE (I02,80002) IVTNUM 05580256 ! 562: GO TO 0161 05590256 ! 563: 20150 IVFAIL = IVFAIL + 1 05600256 ! 564: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05610256 ! 565: 0161 CONTINUE 05620256 ! 566: C 05630256 ! 567: C **** FCVS PROGRAM 256 - TEST 016 **** 05640256 ! 568: C 05650256 ! 569: C TEST 016 CHECKS THE VALUE OF J (IVON03) IN THE FIRST EXAMPLE. 05660256 ! 570: C 05670256 ! 571: C 05680256 ! 572: IVTNUM = 16 05690256 ! 573: IF (ICZERO) 30160, 0160, 30160 05700256 ! 574: 0160 CONTINUE 05710256 ! 575: IVCOMP = 0 05720256 ! 576: IVCOMP = IVON03 05730256 ! 577: IVCORR = 10 05740256 ! 578: 40160 IF ( IVCOMP - 10 ) 20160, 10160, 20160 05750256 ! 579: 30160 IVDELE = IVDELE + 1 05760256 ! 580: WRITE (I02,80000) IVTNUM 05770256 ! 581: IF (ICZERO) 10160, 0171, 20160 05780256 ! 582: 10160 IVPASS = IVPASS + 1 05790256 ! 583: WRITE (I02,80002) IVTNUM 05800256 ! 584: GO TO 0171 05810256 ! 585: 20160 IVFAIL = IVFAIL + 1 05820256 ! 586: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05830256 ! 587: 0171 CONTINUE 05840256 ! 588: C 05850256 ! 589: C **** FCVS PROGRAM 256 - TEST 017 **** 05860256 ! 590: C 05870256 ! 591: C TEST 017 CHECKS THE VALUE OF K (IVON04) IN THE FIRST EXAMPLE. 05880256 ! 592: C 05890256 ! 593: C 05900256 ! 594: IVTNUM = 17 05910256 ! 595: IF (ICZERO) 30170, 0170, 30170 05920256 ! 596: 0170 CONTINUE 05930256 ! 597: IVCOMP = 0 05940256 ! 598: IVCOMP = IVON04 05950256 ! 599: IVCORR = 6 05960256 ! 600: 40170 IF ( IVCOMP - 6 ) 20170, 10170, 20170 05970256 ! 601: 30170 IVDELE = IVDELE + 1 05980256 ! 602: WRITE (I02,80000) IVTNUM 05990256 ! 603: IF (ICZERO) 10170, 0181, 20170 06000256 ! 604: 10170 IVPASS = IVPASS + 1 06010256 ! 605: WRITE (I02,80002) IVTNUM 06020256 ! 606: GO TO 0181 06030256 ! 607: 20170 IVFAIL = IVFAIL + 1 06040256 ! 608: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 06050256 ! 609: 0181 CONTINUE 06060256 ! 610: C 06070256 ! 611: C **** FCVS PROGRAM 256 - TEST 018 **** 06080256 ! 612: C 06090256 ! 613: C TEST 018 CHECKS THE VALUE OF L (IVON05) IN THE FIRST EXAMPLE. 06100256 ! 614: C 06110256 ! 615: C 06120256 ! 616: IVTNUM = 18 06130256 ! 617: IF (ICZERO) 30180, 0180, 30180 06140256 ! 618: 0180 CONTINUE 06150256 ! 619: IVCOMP = 0 06160256 ! 620: IVCOMP = IVON05 06170256 ! 621: IVCORR = 5 06180256 ! 622: 40180 IF ( IVCOMP - 5 ) 20180, 10180, 20180 06190256 ! 623: 30180 IVDELE = IVDELE + 1 06200256 ! 624: WRITE (I02,80000) IVTNUM 06210256 ! 625: IF (ICZERO) 10180, 0191, 20180 06220256 ! 626: 10180 IVPASS = IVPASS + 1 06230256 ! 627: WRITE (I02,80002) IVTNUM 06240256 ! 628: GO TO 0191 06250256 ! 629: 20180 IVFAIL = IVFAIL + 1 06260256 ! 630: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 06270256 ! 631: 0191 CONTINUE 06280256 ! 632: C 06290256 ! 633: C **** FCVS PROGRAM 256 - TEST 019 **** 06300256 ! 634: C 06310256 ! 635: C TEST 019 CHECKS THE VALUE OF N (IVON01) IN THE FIRST EXAMPLE. 06320256 ! 636: C 06330256 ! 637: C 06340256 ! 638: IVTNUM = 19 06350256 ! 639: IF (ICZERO) 30190, 0190, 30190 06360256 ! 640: 0190 CONTINUE 06370256 ! 641: IVCOMP = 0 06380256 ! 642: IVCOMP = IVON01 06390256 ! 643: IVCORR = 50 06400256 ! 644: 40190 IF ( IVCOMP - 50 ) 20190, 10190, 20190 06410256 ! 645: 30190 IVDELE = IVDELE + 1 06420256 ! 646: WRITE (I02,80000) IVTNUM 06430256 ! 647: IF (ICZERO) 10190, 0201, 20190 06440256 ! 648: 10190 IVPASS = IVPASS + 1 06450256 ! 649: WRITE (I02,80002) IVTNUM 06460256 ! 650: GO TO 0201 06470256 ! 651: 20190 IVFAIL = IVFAIL + 1 06480256 ! 652: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 06490256 ! 653: 0201 CONTINUE 06500256 ! 654: C 06510256 ! 655: C **** FCVS PROGRAM 256 - TEST 020 **** 06520256 ! 656: C 06530256 ! 657: C TEST 020 IS A CHECK ON THE SECOND EXAMPLE IN SECTION 11.10.7. 06540256 ! 658: C IN THIS EXAMPLE, THE INNER DO-LOOP BECOMES ACTIVE AND THEN 06550256 ! 659: C IMMEDIATELY INACTIVE INSIDE AN ALREADY ACTIVE OUTER DO-LOOP. 06560256 ! 660: C 06570256 ! 661: C ALTHOUGH IN SOME WAYS SIMILAR TO THE FIRST EXAMPLE, THE SECOND 06580256 ! 662: C EXAMPLE SHOULD HAVE DIFFERENT FINAL VALUES ON THE INTEGER COUNTERS06590256 ! 663: C AND THE VALUE OF L (IVON10) WILL NOT BE TESTED BECAUSE IT IS NOT 06600256 ! 664: C DEFINED DURING THE RANGE OF THE DO-LOOP INVOLVED. 06610256 ! 665: C 06620256 ! 666: C 06630256 ! 667: IVTNUM = 20 06640256 ! 668: IF (ICZERO) 30200, 0200, 30200 06650256 ! 669: 0200 CONTINUE 06660256 ! 670: IVCOMP = 0 06670256 ! 671: IVON06 = 0 06680256 ! 672: DO 0202 IVON07 = 1, 10 06690256 ! 673: IVON08 = IVON07 06700256 ! 674: DO 0202 IVON09 = 5, 1 06710256 ! 675: IVON10 = IVON09 06720256 ! 676: 0202 IVON06 = IVON06 + 1 06730256 ! 677: 0203 CONTINUE 06740256 ! 678: IVCOMP = IVON07 06750256 ! 679: C THIS IS THE VALUE FOR I IN THE SECOND EXAMPLE. 06760256 ! 680: IVCORR = 11 06770256 ! 681: 40200 IF ( IVCOMP - 11 ) 20200, 10200, 20200 06780256 ! 682: 30200 IVDELE = IVDELE + 1 06790256 ! 683: WRITE (I02,80000) IVTNUM 06800256 ! 684: IF (ICZERO) 10200, 0211, 20200 06810256 ! 685: 10200 IVPASS = IVPASS + 1 06820256 ! 686: WRITE (I02,80002) IVTNUM 06830256 ! 687: GO TO 0211 06840256 ! 688: 20200 IVFAIL = IVFAIL + 1 06850256 ! 689: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 06860256 ! 690: 0211 CONTINUE 06870256 ! 691: C 06880256 ! 692: C **** FCVS PROGRAM 256 - TEST 021 **** 06890256 ! 693: C 06900256 ! 694: C TEST 021 CHECKS THE VALUE OF J (IVON08) IN THE SECOND EXAMPLE. 06910256 ! 695: C 06920256 ! 696: C 06930256 ! 697: IVTNUM = 21 06940256 ! 698: IF (ICZERO) 30210, 0210, 30210 06950256 ! 699: 0210 CONTINUE 06960256 ! 700: IVCOMP = 0 06970256 ! 701: IVCOMP = IVON08 06980256 ! 702: IVCORR = 10 06990256 ! 703: 40210 IF ( IVCOMP - 10 ) 20210, 10210, 20210 07000256 ! 704: 30210 IVDELE = IVDELE + 1 07010256 ! 705: WRITE (I02,80000) IVTNUM 07020256 ! 706: IF (ICZERO) 10210, 0221, 20210 07030256 ! 707: 10210 IVPASS = IVPASS + 1 07040256 ! 708: WRITE (I02,80002) IVTNUM 07050256 ! 709: GO TO 0221 07060256 ! 710: 20210 IVFAIL = IVFAIL + 1 07070256 ! 711: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 07080256 ! 712: 0221 CONTINUE 07090256 ! 713: C 07100256 ! 714: C **** FCVS PROGRAM 256 - TEST 022 **** 07110256 ! 715: C 07120256 ! 716: C TEST 022 CHECKS THE VALUE OF K (IVON09) IN THE SECOND EXAMPLE. 07130256 ! 717: C 07140256 ! 718: C 07150256 ! 719: IVTNUM = 22 07160256 ! 720: IF (ICZERO) 30220, 0220, 30220 07170256 ! 721: 0220 CONTINUE 07180256 ! 722: IVCOMP = 0 07190256 ! 723: IVCOMP = IVON09 07200256 ! 724: IVCORR = 5 07210256 ! 725: 40220 IF ( IVCOMP - 5 ) 20220, 10220, 20220 07220256 ! 726: 30220 IVDELE = IVDELE + 1 07230256 ! 727: WRITE (I02,80000) IVTNUM 07240256 ! 728: IF (ICZERO) 10220, 0231, 20220 07250256 ! 729: 10220 IVPASS = IVPASS + 1 07260256 ! 730: WRITE (I02,80002) IVTNUM 07270256 ! 731: GO TO 0231 07280256 ! 732: 20220 IVFAIL = IVFAIL + 1 07290256 ! 733: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 07300256 ! 734: 0231 CONTINUE 07310256 ! 735: C 07320256 ! 736: C **** FCVS PROGRAM 256 - TEST 023 **** 07330256 ! 737: C 07340256 ! 738: C TEST 023 CHECKS THE VALUE OF N (IVON06) IN THE SECOND EXAMPLE. 07350256 ! 739: C 07360256 ! 740: C 07370256 ! 741: IVTNUM = 23 07380256 ! 742: IF (ICZERO) 30230, 0230, 30230 07390256 ! 743: 0230 CONTINUE 07400256 ! 744: IVCOMP = 0 07410256 ! 745: IVCOMP = IVON06 07420256 ! 746: IVCORR = 0 07430256 ! 747: 40230 IF ( IVCOMP - 0 ) 20230, 10230, 20230 07440256 ! 748: 30230 IVDELE = IVDELE + 1 07450256 ! 749: WRITE (I02,80000) IVTNUM 07460256 ! 750: IF (ICZERO) 10230, 0241, 20230 07470256 ! 751: 10230 IVPASS = IVPASS + 1 07480256 ! 752: WRITE (I02,80002) IVTNUM 07490256 ! 753: GO TO 0241 07500256 ! 754: 20230 IVFAIL = IVFAIL + 1 07510256 ! 755: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 07520256 ! 756: 0241 CONTINUE 07530256 ! 757: C 07540256 ! 758: C **** FCVS PROGRAM 256 - TEST 024 **** 07550256 ! 759: C 07560256 ! 760: C TEST 024 IS A CHECK ON USING A LOGICAL IF STATEMENT AS THE 07570256 ! 761: C TERMINAL STATEMENT IN THE RANGE OF A DO-LOOP. THE LOGICAL IF 07580256 ! 762: C STATEMENT HAS AN UNCONDITIONAL GO TO STATEMENT AS ITS EXECUTABLE 07590256 ! 763: C STATEMENT AS ALLOWED IN SECTION 11.10. 07600256 ! 764: C 07610256 ! 765: C 07620256 ! 766: IVTNUM = 24 07630256 ! 767: IF (ICZERO) 30240, 0240, 30240 07640256 ! 768: 0240 CONTINUE 07650256 ! 769: IVCOMP = 0 07660256 ! 770: DO 0242 IVON01 = 1, 10 07670256 ! 771: IVCOMP = IVCOMP + 1 07680256 ! 772: 0242 IF ( IVON01 .GE. 5 ) GO TO 0243 07690256 ! 773: C 07700256 ! 774: C 07710256 ! 775: C IF THE LOGIC DOES NOT BRANCH OUT OF THE RANGE OF THE DO-LOOP WHEN 07720256 ! 776: C THE DO-VARIABLE (IVON01) IS EQUAL TO FIVE (5), THEN IVCOMP WILL BE07730256 ! 777: C SET BACK TO THE VALUE OF ZERO. 07740256 ! 778: C 07750256 ! 779: IVCOMP = 0 07760256 ! 780: C 07770256 ! 781: C 07780256 ! 782: 0243 IVCORR = 5 07790256 ! 783: 40240 IF ( IVCOMP - 5 ) 20240, 10240, 20240 07800256 ! 784: 30240 IVDELE = IVDELE + 1 07810256 ! 785: WRITE (I02,80000) IVTNUM 07820256 ! 786: IF (ICZERO) 10240, 0251, 20240 07830256 ! 787: 10240 IVPASS = IVPASS + 1 07840256 ! 788: WRITE (I02,80002) IVTNUM 07850256 ! 789: GO TO 0251 07860256 ! 790: 20240 IVFAIL = IVFAIL + 1 07870256 ! 791: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 07880256 ! 792: 0251 CONTINUE 07890256 ! 793: C 07900256 ! 794: C 07910256 ! 795: C WRITE OUT TEST SUMMARY 07920256 ! 796: C 07930256 ! 797: WRITE (I02,90004) 07940256 ! 798: WRITE (I02,90014) 07950256 ! 799: WRITE (I02,90004) 07960256 ! 800: WRITE (I02,90000) 07970256 ! 801: WRITE (I02,90004) 07980256 ! 802: WRITE (I02,90020) IVFAIL 07990256 ! 803: WRITE (I02,90022) IVPASS 08000256 ! 804: WRITE (I02,90024) IVDELE 08010256 ! 805: STOP 08020256 ! 806: 90001 FORMAT (1H ,24X,5HFM256) 08030256 ! 807: 90000 FORMAT (1H ,20X,20HEND OF PROGRAM FM256) 08040256 ! 808: C 08050256 ! 809: C FORMATS FOR TEST DETAIL LINES 08060256 ! 810: C 08070256 ! 811: 80000 FORMAT (1H ,4X,I5,6X,7HDELETED) 08080256 ! 812: 80002 FORMAT (1H ,4X,I5,7X,4HPASS) 08090256 ! 813: 80010 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 08100256 ! 814: 80012 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 08110256 ! 815: 80018 FORMAT (1H ,4X,I5,7X,4HFAIL,2X,A14,1X,A14) 08120256 ! 816: C 08130256 ! 817: C FORMAT STATEMENTS FOR PAGE HEADERS 08140256 ! 818: C 08150256 ! 819: 90002 FORMAT (1H1) 08160256 ! 820: 90004 FORMAT (1H ) 08170256 ! 821: 90006 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 08180256 ! 822: 90008 FORMAT (1H ,21X,11HVERSION 1.0) 08190256 ! 823: 90010 FORMAT (1H ,8X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 08200256 ! 824: 90012 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL,5X,8HCOMPUTED,8X,7HCORRECT) 08210256 ! 825: 90014 FORMAT (1H ,5X,46H----------------------------------------------) 08220256 ! 826: 90016 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 08230256 ! 827: C 08240256 ! 828: C FORMAT STATEMENTS FOR RUN SUMMARY 08250256 ! 829: C 08260256 ! 830: 90020 FORMAT (1H ,19X,I5,13H TESTS FAILED) 08270256 ! 831: 90022 FORMAT (1H ,19X,I5,13H TESTS PASSED) 08280256 ! 832: 90024 FORMAT (1H ,19X,I5,14H TESTS DELETED) 08290256 ! 833: END 08300256
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.