| PROGRAM FM009 |
| |
| C COMMENT SECTION. 00010009 |
| C 00020009 |
| C FM009 00030009 |
| C 00040009 |
| C THIS ROUTINE TESTS ARITHMETIC ASSIGNMENT STATEMENTS OF THE 00050009 |
| C FORM 00060009 |
| C INTEGER VARIABLE = ARITHMETIC EXPRESSION 00070009 |
| C WHERE THE ARITHMETIC EXPRESSION IS FORMED WITH THE ARITHMETIC 00080009 |
| C OPERATOR +, INTEGER CONSTANTS AND POSITIVE INTEGER VARIABLES. 00090009 |
| C SOME OF THE TESTS USE PARENTHESES TO GROUP ELEMENTS IN THE 00100009 |
| C ARITHMETIC EXPRESSION. 00110009 |
| C 00120009 |
| C THERE ARE TESTS WHERE THE ARITHMETIC EXPRESSION CONTAINS 00130009 |
| C (1) TWO INTEGER VARIABLES, 00140009 |
| C (2) TWO INTEGER VARIABLES AND ONE INTEGER CONSTANT, 00150009 |
| C (3) TWO INTEGER VARIABLES AND ONE INTEGER CONSTANT WITH 00160009 |
| C PARENTHESES TO GROUP ELEMENTS. 00170009 |
| C 00180009 |
| C REFERENCES 00190009 |
| C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00200009 |
| C X3.9-1978 00210009 |
| C 00220009 |
| C SECTION 4.3, INTEGER TYPE 00230009 |
| C SECTION 4.3.1, INTEGER CONSTANT 00240009 |
| C SECTION 6.1, ARITHMETIC EXPRESSIONS 00250009 |
| C SECTION 10.1, ARITHMETIC ASSIGNMENT STATEMENTS 00260009 |
| C 00270009 |
| C ********************************************************** 00280009 |
| C 00290009 |
| C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00300009 |
| C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD 00310009 |
| C PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE 00320009 |
| C FEDERAL COBOL COMPILER TESTING SERVICE. THE FORTRAN COMPILER 00330009 |
| C VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED00340009 |
| C DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT ROUTINE IS A FORTRAN 00350009 |
| C PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC 00360009 |
| C LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT 00370009 |
| C OF EXECUTING THESE TESTS. 00380009 |
| C 00390009 |
| C THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES 00400009 |
| C FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978. 00410009 |
| C 00420009 |
| C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO - 00430009 |
| C 00440009 |
| C NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00450009 |
| C SOFTWARE STANDARDS VALIDATION GROUP 00460009 |
| C BUILDING 225 RM A266 00470009 |
| C GAITHERSBURG, MD 20899 00480009 |
| C ********************************************************** 00490009 |
| C 00500009 |
| C 00510009 |
| C 00520009 |
| C INITIALIZATION SECTION 00530009 |
| C 00540009 |
| C INITIALIZE CONSTANTS 00550009 |
| C ************** 00560009 |
| C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00570009 |
| I01 = 5 00580009 |
| C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00590009 |
| I02 = 6 00600009 |
| C SYSTEM ENVIRONMENT SECTION 00610009 |
| C 00620009 |
| CX010 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-010 CONTROL CARD. 00630009 |
| C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00640009 |
| C (UNIT NUMBER FOR CARD READER). 00650009 |
| CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. 00660009 |
| C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00670009 |
| C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00680009 |
| C 00690009 |
| CX020 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-020 CONTROL CARD. 00700009 |
| C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00710009 |
| C (UNIT NUMBER FOR PRINTER). 00720009 |
| CX021 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. 00730009 |
| C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00740009 |
| C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00750009 |
| C 00760009 |
| IVPASS=0 00770009 |
| IVFAIL=0 00780009 |
| IVDELE=0 00790009 |
| ICZERO=0 00800009 |
| C 00810009 |
| C WRITE PAGE HEADERS 00820009 |
| WRITE (I02,90000) 00830009 |
| WRITE (I02,90001) 00840009 |
| WRITE (I02,90002) 00850009 |
| WRITE (I02, 90002) 00860009 |
| WRITE (I02,90003) 00870009 |
| WRITE (I02,90002) 00880009 |
| WRITE (I02,90004) 00890009 |
| WRITE (I02,90002) 00900009 |
| WRITE (I02,90011) 00910009 |
| WRITE (I02,90002) 00920009 |
| WRITE (I02,90002) 00930009 |
| WRITE (I02,90005) 00940009 |
| WRITE (I02,90006) 00950009 |
| WRITE (I02,90002) 00960009 |
| C 00970009 |
| C TEST SECTION 00980009 |
| C 00990009 |
| C ARITHMETIC ASSIGNMENT STATEMENT 01000009 |
| C 01010009 |
| C TEST 235 THROUGH TEST 243 CONTAIN TWO POSITIVE INTEGER VARIABLES 01020009 |
| C AND OPERATOR + IN ARITHMETIC EXPRESSION. 01030009 |
| C 01040009 |
| 2351 CONTINUE 01050009 |
| IVTNUM = 235 01060009 |
| C 01070009 |
| C **** TEST 235 **** 01080009 |
| C 01090009 |
| IF (ICZERO) 32350, 2350, 32350 01100009 |
| 2350 CONTINUE 01110009 |
| IVON01 = 2 01120009 |
| IVON02 = 3 01130009 |
| IVCOMP = IVON01 + IVON02 01140009 |
| GO TO 42350 01150009 |
| 32350 IVDELE = IVDELE + 1 01160009 |
| WRITE (I02,80003) IVTNUM 01170009 |
| IF (ICZERO) 42350, 2361, 42350 01180009 |
| 42350 IF (IVCOMP - 5) 22350,12350,22350 01190009 |
| 12350 IVPASS = IVPASS + 1 01200009 |
| WRITE (I02,80001) IVTNUM 01210009 |
| GO TO 2361 01220009 |
| 22350 IVFAIL = IVFAIL + 1 01230009 |
| IVCORR = 5 01240009 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01250009 |
| 2361 CONTINUE 01260009 |
| IVTNUM = 236 01270009 |
| C 01280009 |
| C **** TEST 236 **** 01290009 |
| C 01300009 |
| IF (ICZERO) 32360, 2360, 32360 01310009 |
| 2360 CONTINUE 01320009 |
| IVON01 = 2 01330009 |
| IVON02 = 3 01340009 |
| IVCOMP = IVON02 + IVON01 01350009 |
| GO TO 42360 01360009 |
| 32360 IVDELE = IVDELE + 1 01370009 |
| WRITE (I02,80003) IVTNUM 01380009 |
| IF (ICZERO) 42360, 2371, 42360 01390009 |
| 42360 IF (IVCOMP - 5) 22360, 12360, 22360 01400009 |
| 12360 IVPASS = IVPASS + 1 01410009 |
| WRITE (I02,80001) IVTNUM 01420009 |
| GO TO 2371 01430009 |
| 22360 IVFAIL = IVFAIL + 1 01440009 |
| IVCORR = 5 01450009 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01460009 |
| 2371 CONTINUE 01470009 |
| IVTNUM = 237 01480009 |
| C 01490009 |
| C **** TEST 237 **** 01500009 |
| C 01510009 |
| IF (ICZERO) 32370, 2370, 32370 01520009 |
| 2370 CONTINUE 01530009 |
| IVON01 = 51 01540009 |
| IVON02 = 52 01550009 |
| IVCOMP = IVON01 + IVON02 01560009 |
| GO TO 42370 01570009 |
| 32370 IVDELE = IVDELE + 1 01580009 |
| WRITE (I02,80003) IVTNUM 01590009 |
| IF (ICZERO) 42370, 2381, 42370 01600009 |
| 42370 IF (IVCOMP - 103) 22370, 12370, 22370 01610009 |
| 12370 IVPASS = IVPASS + 1 01620009 |
| WRITE (I02,80001) IVTNUM 01630009 |
| GO TO 2381 01640009 |
| 22370 IVFAIL = IVFAIL + 1 01650009 |
| IVCORR = 103 01660009 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01670009 |
| 2381 CONTINUE 01680009 |
| IVTNUM = 238 01690009 |
| C 01700009 |
| C **** TEST 238 **** 01710009 |
| C 01720009 |
| IF (ICZERO) 32380, 2380, 32380 01730009 |
| 2380 CONTINUE 01740009 |
| IVON01 = 189 01750009 |
| IVON02 = 676 01760009 |
| IVCOMP = IVON01 + IVON02 01770009 |
| GO TO 42380 01780009 |
| 32380 IVDELE = IVDELE + 1 01790009 |
| WRITE (I02,80003) IVTNUM 01800009 |
| IF (ICZERO) 42380, 2391, 42380 01810009 |
| 42380 IF (IVCOMP - 865) 22380, 12380, 22380 01820009 |
| 12380 IVPASS = IVPASS + 1 01830009 |
| WRITE (I02,80001) IVTNUM 01840009 |
| GO TO 2391 01850009 |
| 22380 IVFAIL = IVFAIL + 1 01860009 |
| IVCORR = 865 01870009 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01880009 |
| 2391 CONTINUE 01890009 |
| IVTNUM = 239 01900009 |
| C 01910009 |
| C **** TEST 239 **** 01920009 |
| C 01930009 |
| IF (ICZERO) 32390, 2390, 32390 01940009 |
| 2390 CONTINUE 01950009 |
| IVON01 = 1358 01960009 |
| IVON02 = 8001 01970009 |
| IVCOMP = IVON01 + IVON02 01980009 |
| GO TO 42390 01990009 |
| 32390 IVDELE = IVDELE + 1 02000009 |
| WRITE (I02,80003) IVTNUM 02010009 |
| IF (ICZERO) 42390, 2401, 42390 02020009 |
| 42390 IF (IVCOMP - 9359) 22390, 12390, 22390 02030009 |
| 12390 IVPASS = IVPASS + 1 02040009 |
| WRITE (I02,80001) IVTNUM 02050009 |
| GO TO 2401 02060009 |
| 22390 IVFAIL = IVFAIL + 1 02070009 |
| IVCORR = 9359 02080009 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02090009 |
| 2401 CONTINUE 02100009 |
| IVTNUM = 240 02110009 |
| C 02120009 |
| C **** TEST 240 **** 02130009 |
| C 02140009 |
| IF (ICZERO) 32400, 2400, 32400 02150009 |
| 2400 CONTINUE 02160009 |
| IVON01 = 1358 02170009 |
| IVON02 = 8001 02180009 |
| IVCOMP = IVON02 + IVON01 02190009 |
| GO TO 42400 02200009 |
| 32400 IVDELE = IVDELE + 1 02210009 |
| WRITE (I02,80003) IVTNUM 02220009 |
| IF (ICZERO) 42400, 2411, 42400 02230009 |
| 42400 IF (IVCOMP - 9359) 22400, 12400, 22400 02240009 |
| 12400 IVPASS = IVPASS + 1 02250009 |
| WRITE (I02,80001) IVTNUM 02260009 |
| GO TO 2411 02270009 |
| 22400 IVFAIL = IVFAIL + 1 02280009 |
| IVCORR = 9359 02290009 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02300009 |
| 2411 CONTINUE 02310009 |
| IVTNUM = 241 02320009 |
| C 02330009 |
| C **** TEST 241 **** 02340009 |
| C 02350009 |
| IF (ICZERO) 32410, 2410, 32410 02360009 |
| 2410 CONTINUE 02370009 |
| IVON01 = 11112 02380009 |
| IVON02 = 10001 02390009 |
| IVCOMP = IVON01 + IVON02 02400009 |
| GO TO 42410 02410009 |
| 32410 IVDELE = IVDELE + 1 02420009 |
| WRITE (I02,80003) IVTNUM 02430009 |
| IF (ICZERO) 42410, 2421, 42410 02440009 |
| 42410 IF (IVCOMP - 21113) 22410, 12410, 22410 02450009 |
| 12410 IVPASS = IVPASS + 1 02460009 |
| WRITE (I02,80001) IVTNUM 02470009 |
| GO TO 2421 02480009 |
| 22410 IVFAIL = IVFAIL + 1 02490009 |
| IVCORR = 21113 02500009 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02510009 |
| 2421 CONTINUE 02520009 |
| IVTNUM = 242 02530009 |
| C 02540009 |
| C **** TEST 242 **** 02550009 |
| C 02560009 |
| IF (ICZERO) 32420, 2420, 32420 02570009 |
| 2420 CONTINUE 02580009 |
| IVON01 = 189 02590009 |
| IVON02 = 9876 02600009 |
| IVCOMP = IVON01 + IVON02 02610009 |
| GO TO 42420 02620009 |
| 32420 IVDELE = IVDELE + 1 02630009 |
| WRITE (I02,80003) IVTNUM 02640009 |
| IF (ICZERO) 42420, 2431, 42420 02650009 |
| 42420 IF (IVCOMP - 10065) 22420, 12420, 22420 02660009 |
| 12420 IVPASS = IVPASS + 1 02670009 |
| WRITE (I02,80001) IVTNUM 02680009 |
| GO TO 2431 02690009 |
| 22420 IVFAIL = IVFAIL + 1 02700009 |
| IVCORR = 10065 02710009 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02720009 |
| 2431 CONTINUE 02730009 |
| IVTNUM = 243 02740009 |
| C 02750009 |
| C **** TEST 243 **** 02760009 |
| C REQUIRES 32767 02770009 |
| C 02780009 |
| IF (ICZERO) 32430, 2430, 32430 02790009 |
| 2430 CONTINUE 02800009 |
| IVON01 = 16383 02810009 |
| IVON02 = 16384 02820009 |
| IVCOMP = IVON01 + IVON02 02830009 |
| GO TO 42430 02840009 |
| 32430 IVDELE = IVDELE + 1 02850009 |
| WRITE (I02,80003) IVTNUM 02860009 |
| IF (ICZERO) 42430, 2441, 42430 02870009 |
| 42430 IF (IVCOMP - 32767) 22430, 12430, 22430 02880009 |
| 12430 IVPASS = IVPASS + 1 02890009 |
| WRITE (I02,80001) IVTNUM 02900009 |
| GO TO 2441 02910009 |
| 22430 IVFAIL = IVFAIL + 1 02920009 |
| IVCORR = 32767 02930009 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02940009 |
| C 02950009 |
| C TEST 244 THROUGH TEST 250 CONTAIN TWO POSITIVE INTEGER VARIABLES, 02960009 |
| C ONE INTEGER CONSTANT, AND OPERATOR + IN ARITHMETIC EXPRESSION. 02970009 |
| C 02980009 |
| 2441 CONTINUE 02990009 |
| IVTNUM = 244 03000009 |
| C 03010009 |
| C **** TEST 244 **** 03020009 |
| C 03030009 |
| IF (ICZERO) 32440, 2440, 32440 03040009 |
| 2440 CONTINUE 03050009 |
| IVON01 = 2 03060009 |
| IVON02 = 3 03070009 |
| IVCOMP = IVON01 + IVON02 + 4 03080009 |
| GO TO 42440 03090009 |
| 32440 IVDELE = IVDELE + 1 03100009 |
| WRITE (I02,80003) IVTNUM 03110009 |
| IF (ICZERO) 42440, 2451, 42440 03120009 |
| 42440 IF (IVCOMP - 9) 22440, 12440, 22440 03130009 |
| 12440 IVPASS = IVPASS + 1 03140009 |
| WRITE (I02,80001) IVTNUM 03150009 |
| GO TO 2451 03160009 |
| 22440 IVFAIL = IVFAIL + 1 03170009 |
| IVCORR = 9 03180009 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03190009 |
| 2451 CONTINUE 03200009 |
| IVTNUM = 245 03210009 |
| C 03220009 |
| C **** TEST 245 **** 03230009 |
| C 03240009 |
| IF (ICZERO) 32450, 2450, 32450 03250009 |
| 2450 CONTINUE 03260009 |
| IVON01 = 2 03270009 |
| IVON03 = 4 03280009 |
| IVCOMP = IVON01 +3 + IVON03 03290009 |
| GO TO 42450 03300009 |
| 32450 IVDELE = IVDELE + 1 03310009 |
| WRITE (I02,80003) IVTNUM 03320009 |
| IF (ICZERO) 42450, 2461, 42450 03330009 |
| 42450 IF (IVCOMP - 9) 22450, 12450, 22450 03340009 |
| 12450 IVPASS = IVPASS + 1 03350009 |
| WRITE (I02,80001) IVTNUM 03360009 |
| GO TO 2461 03370009 |
| 22450 IVFAIL = IVFAIL + 1 03380009 |
| IVCORR = 9 03390009 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03400009 |
| 2461 CONTINUE 03410009 |
| IVTNUM = 246 03420009 |
| C 03430009 |
| C **** TEST 246 **** 03440009 |
| C 03450009 |
| IF (ICZERO) 32460, 2460, 32460 03460009 |
| 2460 CONTINUE 03470009 |
| IVON02 = 3 03480009 |
| IVON03 = 4 03490009 |
| IVCOMP = 2 + IVON02 + IVON03 03500009 |
| GO TO 42460 03510009 |
| 32460 IVDELE = IVDELE + 1 03520009 |
| WRITE (I02,80003) IVTNUM 03530009 |
| IF (ICZERO) 42460, 2471, 42460 03540009 |
| 42460 IF (IVCOMP - 9) 22460, 12460, 22460 03550009 |
| 12460 IVPASS = IVPASS + 1 03560009 |
| WRITE (I02,80001) IVTNUM 03570009 |
| GO TO 2471 03580009 |
| 22460 IVFAIL = IVFAIL + 1 03590009 |
| IVCORR = 9 03600009 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03610009 |
| 2471 CONTINUE 03620009 |
| IVTNUM = 247 03630009 |
| C 03640009 |
| C **** TEST 247 **** 03650009 |
| C 03660009 |
| IF (ICZERO) 32470, 2470, 32470 03670009 |
| 2470 CONTINUE 03680009 |
| IVON01 = 51 03690009 |
| IVON03 = 53 03700009 |
| IVCOMP = IVON01 +52 + IVON03 03710009 |
| GO TO 42470 03720009 |
| 32470 IVDELE = IVDELE + 1 03730009 |
| WRITE (I02,80003) IVTNUM 03740009 |
| IF (ICZERO) 42470, 2481, 42470 03750009 |
| 42470 IF (IVCOMP - 156) 22470, 12470, 22470 03760009 |
| 12470 IVPASS = IVPASS + 1 03770009 |
| WRITE (I02,80001) IVTNUM 03780009 |
| GO TO 2481 03790009 |
| 22470 IVFAIL = IVFAIL + 1 03800009 |
| IVCORR = 156 03810009 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03820009 |
| 2481 CONTINUE 03830009 |
| IVTNUM = 248 03840009 |
| C 03850009 |
| C **** TEST 248 **** 03860009 |
| C 03870009 |
| IF (ICZERO) 32480, 2480, 32480 03880009 |
| 2480 CONTINUE 03890009 |
| IVON02 = 676 03900009 |
| IVON03 = 101 03910009 |
| IVCOMP = 189 + IVON02 + IVON03 03920009 |
| GO TO 42480 03930009 |
| 32480 IVDELE = IVDELE + 1 03940009 |
| WRITE (I02,80003) IVTNUM 03950009 |
| IF (ICZERO) 42480, 2491, 42480 03960009 |
| 42480 IF (IVCOMP - 966) 22480, 12480, 22480 03970009 |
| 12480 IVPASS = IVPASS + 1 03980009 |
| WRITE (I02,80001) IVTNUM 03990009 |
| GO TO 2491 04000009 |
| 22480 IVFAIL = IVFAIL + 1 04010009 |
| IVCORR = 966 04020009 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04030009 |
| 2491 CONTINUE 04040009 |
| IVTNUM = 249 04050009 |
| C 04060009 |
| C **** TEST 249 **** 04070009 |
| C 04080009 |
| IF (ICZERO) 32490, 2490, 32490 04090009 |
| 2490 CONTINUE 04100009 |
| IVON01 = 1358 04110009 |
| IVON02 = 8001 04120009 |
| IVCOMP = IVON01 + IVON02 + 2189 04130009 |
| GO TO 42490 04140009 |
| 32490 IVDELE = IVDELE + 1 04150009 |
| WRITE (I02,80003) IVTNUM 04160009 |
| IF (ICZERO) 42490, 2501, 42490 04170009 |
| 42490 IF (IVCOMP - 11548) 22490, 12490, 22490 04180009 |
| 12490 IVPASS = IVPASS + 1 04190009 |
| WRITE (I02,80001) IVTNUM 04200009 |
| GO TO 2501 04210009 |
| 22490 IVFAIL = IVFAIL + 1 04220009 |
| IVCORR = 11548 04230009 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04240009 |
| 2501 CONTINUE 04250009 |
| IVTNUM = 250 04260009 |
| C 04270009 |
| C **** TEST 250 **** 04280009 |
| C REQUIRES 32767 04290009 |
| C 04300009 |
| IF (ICZERO) 32500, 2500, 32500 04310009 |
| 2500 CONTINUE 04320009 |
| IVON01 = 16383 04330009 |
| IVON03 = 4 04340009 |
| IVCOMP = IVON01 + 16380 + IVON03 04350009 |
| GO TO 42500 04360009 |
| 32500 IVDELE = IVDELE + 1 04370009 |
| WRITE (I02,80003) IVTNUM 04380009 |
| IF (ICZERO) 42500, 2511, 42500 04390009 |
| 42500 IF (IVCOMP - 32767) 22500,12500,22500 04400009 |
| 12500 IVPASS = IVPASS + 1 04410009 |
| WRITE (I02,80001) IVTNUM 04420009 |
| GO TO 2511 04430009 |
| 22500 IVFAIL = IVFAIL + 1 04440009 |
| IVCORR = 32767 04450009 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04460009 |
| C 04470009 |
| C TEST 251 THROUGH TEST 264 CONTAIN TWO POSITIVE INTEGER VARIABLES, 04480009 |
| C ONE INTEGER CONSTANT, AND OPERATOR + IN ARITHMETIC EXPRESSION. 04490009 |
| C PARENTHESES ARE USED TO GROUP ELEMENTS. THE RESULTS ARE THE SAME 04500009 |
| C AS TESTS 244 THROUGH 250. 04510009 |
| C 04520009 |
| 2511 CONTINUE 04530009 |
| IVTNUM = 251 04540009 |
| C 04550009 |
| C **** TEST 251 **** 04560009 |
| C 04570009 |
| IF (ICZERO) 32510, 2510, 32510 04580009 |
| 2510 CONTINUE 04590009 |
| IVON01 = 2 04600009 |
| IVON02 = 3 04610009 |
| IVCOMP = (IVON01 + IVON02) + 4 04620009 |
| GO TO 42510 04630009 |
| 32510 IVDELE = IVDELE + 1 04640009 |
| WRITE (I02,80003) IVTNUM 04650009 |
| IF (ICZERO) 42510, 2521, 42510 04660009 |
| 42510 IF (IVCOMP - 9) 22510,12510,22510 04670009 |
| 12510 IVPASS = IVPASS + 1 04680009 |
| WRITE (I02,80001) IVTNUM 04690009 |
| GO TO 2521 04700009 |
| 22510 IVFAIL = IVFAIL + 1 04710009 |
| IVCORR = 9 04720009 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04730009 |
| 2521 CONTINUE 04740009 |
| IVTNUM = 252 04750009 |
| C 04760009 |
| C **** TEST 252 **** 04770009 |
| C 04780009 |
| IF (ICZERO) 32520, 2520, 32520 04790009 |
| 2520 CONTINUE 04800009 |
| IVON02 = 3 04810009 |
| IVON03 = 4 04820009 |
| IVCOMP = 2 + (IVON02 + IVON03) 04830009 |
| GO TO 42520 04840009 |
| 32520 IVDELE = IVDELE + 1 04850009 |
| WRITE (I02,80003) IVTNUM 04860009 |
| IF (ICZERO) 42520, 2531, 42520 04870009 |
| 42520 IF (IVCOMP - 9) 22520,12520,22520 04880009 |
| 12520 IVPASS = IVPASS + 1 04890009 |
| WRITE (I02,80001) IVTNUM 04900009 |
| GO TO 2531 04910009 |
| 22520 IVFAIL = IVFAIL + 1 04920009 |
| IVCORR = 9 04930009 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04940009 |
| 2531 CONTINUE 04950009 |
| IVTNUM = 253 04960009 |
| C 04970009 |
| C **** TEST 253 **** 04980009 |
| C 04990009 |
| IF (ICZERO) 32530, 2530, 32530 05000009 |
| 2530 CONTINUE 05010009 |
| IVON02 =3 05020009 |
| IVON03 =4 05030009 |
| IVCOMP = (2+IVON02)+IVON03 05040009 |
| GO TO 42530 05050009 |
| 32530 IVDELE = IVDELE + 1 05060009 |
| WRITE (I02,80003) IVTNUM 05070009 |
| IF (ICZERO) 42530, 2541, 42530 05080009 |
| 42530 IF (IVCOMP -9) 22530,12530,22530 05090009 |
| 12530 IVPASS = IVPASS + 1 05100009 |
| WRITE (I02,80001) IVTNUM 05110009 |
| GO TO 2541 05120009 |
| 22530 IVFAIL = IVFAIL + 1 05130009 |
| IVCORR =9 05140009 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05150009 |
| 2541 CONTINUE 05160009 |
| IVTNUM = 254 05170009 |
| C 05180009 |
| C **** TEST 254 **** 05190009 |
| C 05200009 |
| IF (ICZERO) 32540, 2540, 32540 05210009 |
| 2540 CONTINUE 05220009 |
| IVON01 = 2 05230009 |
| IVON02 = 3 05240009 |
| IVCOMP = IVON01 + (IVON02 + 4) 05250009 |
| GO TO 42540 05260009 |
| 32540 IVDELE = IVDELE + 1 05270009 |
| WRITE (I02,80003) IVTNUM 05280009 |
| IF (ICZERO) 42540, 2551, 42540 05290009 |
| 42540 IF (IVCOMP-9)22540,12540,22540 05300009 |
| 12540 IVPASS = IVPASS + 1 05310009 |
| WRITE (I02,80001) IVTNUM 05320009 |
| GO TO 2551 05330009 |
| 22540 IVFAIL = IVFAIL + 1 05340009 |
| IVCORR=9 05350009 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05360009 |
| 2551 CONTINUE 05370009 |
| IVTNUM = 255 05380009 |
| C 05390009 |
| C **** TEST 255 **** 05400009 |
| C 05410009 |
| IF (ICZERO) 32550, 2550, 32550 05420009 |
| 2550 CONTINUE 05430009 |
| IVON01 = 2 05440009 |
| IVON03 = 4 05450009 |
| IVCOMP = IVON01 +(3+IVON03) 05460009 |
| GO TO 42550 05470009 |
| 32550 IVDELE = IVDELE + 1 05480009 |
| WRITE (I02,80003) IVTNUM 05490009 |
| IF (ICZERO) 42550, 2561, 42550 05500009 |
| 42550 IF (IVCOMP-9)22550,12550,22550 05510009 |
| 12550 IVPASS = IVPASS + 1 05520009 |
| WRITE (I02,80001) IVTNUM 05530009 |
| GO TO 2561 05540009 |
| 22550 IVFAIL = IVFAIL + 1 05550009 |
| IVCORR =9 05560009 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05570009 |
| 2561 CONTINUE 05580009 |
| IVTNUM = 256 05590009 |
| C 05600009 |
| C **** TEST 256 **** 05610009 |
| C 05620009 |
| IF (ICZERO) 32560, 2560, 32560 05630009 |
| 2560 CONTINUE 05640009 |
| IVON01 = 2 05650009 |
| IVON03 = 4 05660009 |
| IVCOMP =(IVON01+3)+IVON03 05670009 |
| GO TO 42560 05680009 |
| 32560 IVDELE = IVDELE + 1 05690009 |
| WRITE (I02,80003) IVTNUM 05700009 |
| IF (ICZERO) 42560, 2571, 42560 05710009 |
| 42560 IF (IVCOMP-9) 22560,12560,22560 05720009 |
| 12560 IVPASS = IVPASS + 1 05730009 |
| WRITE (I02,80001) IVTNUM 05740009 |
| GO TO 2571 05750009 |
| 22560 IVFAIL = IVFAIL + 1 05760009 |
| IVCORR =9 05770009 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05780009 |
| 2571 CONTINUE 05790009 |
| IVTNUM = 257 05800009 |
| C 05810009 |
| C **** TEST 257 **** 05820009 |
| C 05830009 |
| IF (ICZERO) 32570, 2570, 32570 05840009 |
| 2570 CONTINUE 05850009 |
| IVON01 = 51 05860009 |
| IVON03 = 53 05870009 |
| IVCOMP=IVON01+(52+IVON03) 05880009 |
| GO TO 42570 05890009 |
| 32570 IVDELE = IVDELE + 1 05900009 |
| WRITE (I02,80003) IVTNUM 05910009 |
| IF (ICZERO) 42570, 2581, 42570 05920009 |
| 42570 IF (IVCOMP -156) 22570,12570,22570 05930009 |
| 12570 IVPASS = IVPASS + 1 05940009 |
| WRITE (I02,80001) IVTNUM 05950009 |
| GO TO 2581 05960009 |
| 22570 IVFAIL = IVFAIL + 1 05970009 |
| IVCORR = 156 05980009 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05990009 |
| 2581 CONTINUE 06000009 |
| IVTNUM = 258 06010009 |
| C 06020009 |
| C **** TEST 258 **** 06030009 |
| C 06040009 |
| IF (ICZERO) 32580, 2580, 32580 06050009 |
| 2580 CONTINUE 06060009 |
| IVON01 = 51 06070009 |
| IVON03 = 53 06080009 |
| IVCOMP =(IVON01+52)+IVON03 06090009 |
| GO TO 42580 06100009 |
| 32580 IVDELE = IVDELE + 1 06110009 |
| WRITE (I02,80003) IVTNUM 06120009 |
| IF (ICZERO) 42580, 2591, 42580 06130009 |
| 42580 IF (IVCOMP-156) 22580,12580,22580 06140009 |
| 12580 IVPASS = IVPASS + 1 06150009 |
| WRITE (I02,80001) IVTNUM 06160009 |
| GO TO 2591 06170009 |
| 22580 IVFAIL = IVFAIL + 1 06180009 |
| IVCORR = 156 06190009 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06200009 |
| 2591 CONTINUE 06210009 |
| IVTNUM = 259 06220009 |
| C 06230009 |
| C **** TEST 259 **** 06240009 |
| C 06250009 |
| IF (ICZERO) 32590, 2590, 32590 06260009 |
| 2590 CONTINUE 06270009 |
| IVON02 = 676 06280009 |
| IVON03 = 101 06290009 |
| IVCOMP = 189+(IVON02+IVON03) 06300009 |
| GO TO 42590 06310009 |
| 32590 IVDELE = IVDELE + 1 06320009 |
| WRITE (I02,80003) IVTNUM 06330009 |
| IF (ICZERO) 42590, 2601, 42590 06340009 |
| 42590 IF (IVCOMP -966) 22590,12590,22590 06350009 |
| 12590 IVPASS = IVPASS + 1 06360009 |
| WRITE (I02,80001) IVTNUM 06370009 |
| GO TO 2601 06380009 |
| 22590 IVFAIL = IVFAIL + 1 06390009 |
| IVCORR =966 06400009 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06410009 |
| 2601 CONTINUE 06420009 |
| IVTNUM = 260 06430009 |
| C 06440009 |
| C **** TEST 260 **** 06450009 |
| C 06460009 |
| IF (ICZERO) 32600, 2600, 32600 06470009 |
| 2600 CONTINUE 06480009 |
| IVON02 = 676 06490009 |
| IVON03 = 101 06500009 |
| IVCOMP = (189 + IVON02) + IVON03 06510009 |
| GO TO 42600 06520009 |
| 32600 IVDELE = IVDELE + 1 06530009 |
| WRITE (I02,80003) IVTNUM 06540009 |
| IF (ICZERO) 42600, 2611, 42600 06550009 |
| 42600 IF (IVCOMP-966) 22600,12600,22600 06560009 |
| 12600 IVPASS = IVPASS + 1 06570009 |
| WRITE (I02,80001) IVTNUM 06580009 |
| GO TO 2611 06590009 |
| 22600 IVFAIL = IVFAIL + 1 06600009 |
| IVCORR=966 06610009 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06620009 |
| 2611 CONTINUE 06630009 |
| IVTNUM = 261 06640009 |
| C 06650009 |
| C **** TEST 261 **** 06660009 |
| C 06670009 |
| IF (ICZERO) 32610, 2610, 32610 06680009 |
| 2610 CONTINUE 06690009 |
| IVON01 = 1358 06700009 |
| IVON02 = 8001 06710009 |
| IVCOMP = IVON01 + (IVON02 + 2189) 06720009 |
| GO TO 42610 06730009 |
| 32610 IVDELE = IVDELE + 1 06740009 |
| WRITE (I02,80003) IVTNUM 06750009 |
| IF (ICZERO) 42610, 2621, 42610 06760009 |
| 42610 IF (IVCOMP-11548) 22610,12610,22610 06770009 |
| 12610 IVPASS = IVPASS + 1 06780009 |
| WRITE (I02,80001) IVTNUM 06790009 |
| GO TO 2621 06800009 |
| 22610 IVFAIL = IVFAIL + 1 06810009 |
| IVCORR=11548 06820009 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06830009 |
| 2621 CONTINUE 06840009 |
| IVTNUM = 262 06850009 |
| C 06860009 |
| C **** TEST 262 **** 06870009 |
| C 06880009 |
| IF (ICZERO) 32620, 2620, 32620 06890009 |
| 2620 CONTINUE 06900009 |
| IVON01 = 1358 06910009 |
| IVON02 = 8001 06920009 |
| IVCOMP =(IVON01+IVON02)+2189 06930009 |
| GO TO 42620 06940009 |
| 32620 IVDELE = IVDELE + 1 06950009 |
| WRITE (I02,80003) IVTNUM 06960009 |
| IF (ICZERO) 42620, 2631, 42620 06970009 |
| 42620 IF (IVCOMP-11548) 22620,12620,22620 06980009 |
| 12620 IVPASS = IVPASS + 1 06990009 |
| WRITE (I02,80001) IVTNUM 07000009 |
| GO TO 2631 07010009 |
| 22620 IVFAIL = IVFAIL + 1 07020009 |
| IVCORR=11548 07030009 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07040009 |
| 2631 CONTINUE 07050009 |
| IVTNUM = 263 07060009 |
| C 07070009 |
| C **** TEST 263 **** 07080009 |
| C REQUIRES 32767 07090009 |
| C 07100009 |
| IF (ICZERO) 32630, 2630, 32630 07110009 |
| 2630 CONTINUE 07120009 |
| IVON01 = 16383 07130009 |
| IVON03 = 16380 07140009 |
| IVCOMP = IVON01 + (4+IVON03) 07150009 |
| GO TO 42630 07160009 |
| 32630 IVDELE = IVDELE + 1 07170009 |
| WRITE (I02,80003) IVTNUM 07180009 |
| IF (ICZERO) 42630, 2641, 42630 07190009 |
| 42630 IF (IVCOMP-32767) 22630,12630,22630 07200009 |
| 12630 IVPASS = IVPASS + 1 07210009 |
| WRITE (I02,80001) IVTNUM 07220009 |
| GO TO 2641 07230009 |
| 22630 IVFAIL = IVFAIL + 1 07240009 |
| IVCORR =32767 07250009 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07260009 |
| 2641 CONTINUE 07270009 |
| IVTNUM = 264 07280009 |
| C 07290009 |
| C **** TEST 264 **** 07300009 |
| C REQUIRES 32767 07310009 |
| C 07320009 |
| IF (ICZERO) 32640, 2640, 32640 07330009 |
| 2640 CONTINUE 07340009 |
| IVON01 = 16383 07350009 |
| IVON02 = 16380 07360009 |
| IVCOMP = (IVON01+IVON02) +4 07370009 |
| GO TO 42640 07380009 |
| 32640 IVDELE = IVDELE + 1 07390009 |
| WRITE (I02,80003) IVTNUM 07400009 |
| IF (ICZERO) 42640, 2651, 42640 07410009 |
| 42640 IF (IVCOMP - 32767) 22640,12640,22640 07420009 |
| 12640 IVPASS = IVPASS + 1 07430009 |
| WRITE (I02,80001) IVTNUM 07440009 |
| GO TO 2651 07450009 |
| 22640 IVFAIL = IVFAIL + 1 07460009 |
| IVCORR = 32767 07470009 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07480009 |
| 2651 CONTINUE 07490009 |
| C 07500009 |
| C WRITE PAGE FOOTINGS AND RUN SUMMARIES 07510009 |
| 99999 CONTINUE 07520009 |
| WRITE (I02,90002) 07530009 |
| WRITE (I02,90006) 07540009 |
| WRITE (I02,90002) 07550009 |
| WRITE (I02,90002) 07560009 |
| WRITE (I02,90007) 07570009 |
| WRITE (I02,90002) 07580009 |
| WRITE (I02,90008) IVFAIL 07590009 |
| WRITE (I02,90009) IVPASS 07600009 |
| WRITE (I02,90010) IVDELE 07610009 |
| C 07620009 |
| C 07630009 |
| C TERMINATE ROUTINE EXECUTION 07640009 |
| STOP 07650009 |
| C 07660009 |
| C FORMAT STATEMENTS FOR PAGE HEADERS 07670009 |
| 90000 FORMAT ("1") 07680009 |
| 90002 FORMAT (" ") 07690009 |
| 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 07700009 |
| 90003 FORMAT (" ",21X,"VERSION 2.1" ) 07710009 |
| 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 07720009 |
| 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 07730009 |
| 90006 FORMAT (" ",5X,"----------------------------------------------" ) 07740009 |
| 90011 FORMAT (" ",18X,"SUBSET LEVEL TEST" ) 07750009 |
| C 07760009 |
| C FORMAT STATEMENTS FOR RUN SUMMARIES 07770009 |
| 90008 FORMAT (" ",15X,I5," ERRORS ENCOUNTERED" ) 07780009 |
| 90009 FORMAT (" ",15X,I5," TESTS PASSED" ) 07790009 |
| 90010 FORMAT (" ",15X,I5," TESTS DELETED" ) 07800009 |
| C 07810009 |
| C FORMAT STATEMENTS FOR TEST RESULTS 07820009 |
| 80001 FORMAT (" ",4X,I5,7X,"PASS") 07830009 |
| 80002 FORMAT (" ",4X,I5,7X,"FAIL") 07840009 |
| 80003 FORMAT (" ",4X,I5,7X,"DELETED") 07850009 |
| 80004 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 07860009 |
| 80005 FORMAT (" ",4X,I5,7X,"FAIL",4X,E12.5,3X,E12.5) 07870009 |
| C 07880009 |
| 90007 FORMAT (" ",20X,"END OF PROGRAM FM009" ) 07890009 |
| END 07900009 |
