| PROGRAM FM351 00010351 |
| C 00020351 |
| C 00030351 |
| C THIS PROGRAM CONTAINS TESTS FOR COMPOUND ARITHMETIC 00040351 |
| C EXPRESSIONS WHICH NECESSITATE THE APPLICATION OF THE RULES 00050351 |
| C FOR ARITHMETIC OPERATOR PRECEDENCE. THESE TESTS INCLUDE ONES 00060351 |
| C WHICH EXERCIZE THE 00070351 |
| C 00080351 |
| C (1) USE OF ALL ARITHMETIC OPERATOR TYPES IN THE SAME STATEMENT. 00090351 |
| C (2) USE OF PARENTHESES TO OVERRIDE DEFAULT PRECEDENCES. 00100351 |
| C (3) USE OF ALL CLASSES OF PRIMARY OPERANDS. 00110351 |
| C (4) USE OF NESTED FUNCTION REFERENCES. 00120351 |
| C (5) USE OF MIXED DATA TYPES. 00130351 |
| C 00140351 |
| C REFERENCES - 00150351 |
| C 00160351 |
| C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, X3.9-197700170351 |
| C 00180351 |
| C SECTION 6.1 ARITHMETIC EXPRESSIONS 00190351 |
| C SECTION 6.5 PRECEDENCE OF OPERATORS 00200351 |
| C SECTION 6.6 EVALUATION OF EXPRESSIONS 00210351 |
| C 00220351 |
| C 00230351 |
| C ******************************************************************00240351 |
| C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00250351 |
| C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN STANDARD FORTRAN 00260351 |
| C X3.9-1978, HAS BEEN DEVELOPED BY THE DEPARTMENT OF THE NAVY. THE 00270351 |
| C FORTRAN COMPILER VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT 00280351 |
| C ROUTINES, THEIR RELATED DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT00290351 |
| C ROUTINE IS A FORTRAN PROGRAM OR SUBPROGRAM WHICH INCLUDES TESTS 00300351 |
| C OF SPECIFIC LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING00310351 |
| C THE RESULT OF EXECUTING THESE TESTS. 00320351 |
| C 00330351 |
| C THIS PARTICULAR PROGRAM OR SUBPROGRAM CONTAINS ONLY FEATURES 00340351 |
| C FOUND IN THE SUBSET LEVEL OF THE STANDARD. 00350351 |
| C 00360351 |
| C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00370351 |
| C NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00380351 |
| C SOFTWARE STANDARDS VALIDATION GROUP 00390351 |
| C BUILDING 225 RM A266 00400351 |
| C GAITHERSBURG, MD 20899 00410351 |
| C ******************************************************************00420351 |
| C 00430351 |
| C 00440351 |
| IMPLICIT LOGICAL (L) 00450351 |
| IMPLICIT CHARACTER*14 (C) 00460351 |
| C 00470351 |
| DIMENSION IADN11(5), RADN11(5) 00480351 |
| IFOS01(IDON01,IDON02,IDON03) = IDON01 ** IDON02 ** IDON03 00490351 |
| IFOS02(IDON04,IDON05) = IADN11(IDON04) / IADN11(IDON05) 00500351 |
| IFOS04(IDON09,IDON10) = IADN11(IDON09) + IABS(IDON10) 00510351 |
| IFOS03(IDON06,IDON07,IDON08) = IFOS04(IDON06,IDON07) * IDON08 00520351 |
| RFOS01(RDON01,RDON02,RDON03) = RDON01 ** RDON02 ** RDON03 00530351 |
| RFOS02(IDON11,IDON12) = RADN11(IDON11) / RADN11(IDON12) 00540351 |
| RFOS04(IDON13,RDON10) = RADN11(IDON13) + ABS(RDON10) 00550351 |
| RFOS03(RDON06,RDON07,RDON08) = RFOS04(INT(RDON06),RDON07) * RDON0800560351 |
| IFOS05(IDON14,IDON16) = RADN11(IDON14) + IABS(IDON16) 00570351 |
| RFOS06(RDON17,IDON18,RDON19) = IFOS05(INT(RDON17),IDON18) * RDON1900580351 |
| C 00590351 |
| C 00600351 |
| C 00610351 |
| C INITIALIZATION SECTION. 00620351 |
| C 00630351 |
| C INITIALIZE CONSTANTS 00640351 |
| C ******************** 00650351 |
| C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER 00660351 |
| I01 = 5 00670351 |
| C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER 00680351 |
| I02 = 6 00690351 |
| C SYSTEM ENVIRONMENT SECTION 00700351 |
| C 00710351 |
| CX010 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-010 CONTROL CARD.00720351 |
| C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00730351 |
| C (UNIT NUMBER FOR CARD READER). 00740351 |
| CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD00750351 |
| C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00760351 |
| C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00770351 |
| C 00780351 |
| CX020 THIS CARD IS PEPLACED BY CONTENTS OF FEXEC X-020 CONTROL CARD.00790351 |
| C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00800351 |
| C (UNIT NUMBER FOR PRINTER). 00810351 |
| CX021 THIS CARD IS PEPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD.00820351 |
| C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00830351 |
| C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00840351 |
| C 00850351 |
| IVPASS = 0 00860351 |
| IVFAIL = 0 00870351 |
| IVDELE = 0 00880351 |
| ICZERO = 0 00890351 |
| C 00900351 |
| C WRITE OUT PAGE HEADERS 00910351 |
| C 00920351 |
| WRITE (I02,90002) 00930351 |
| WRITE (I02,90006) 00940351 |
| WRITE (I02,90008) 00950351 |
| WRITE (I02,90004) 00960351 |
| WRITE (I02,90010) 00970351 |
| WRITE (I02,90004) 00980351 |
| WRITE (I02,90016) 00990351 |
| WRITE (I02,90001) 01000351 |
| WRITE (I02,90004) 01010351 |
| WRITE (I02,90012) 01020351 |
| WRITE (I02,90014) 01030351 |
| WRITE (I02,90004) 01040351 |
| C 01050351 |
| C 01060351 |
| C TESTS 1 THROUGH 10 DEAL ENTIRELY WITH INTEGER EXPRESSIONS. 01070351 |
| C 01080351 |
| C 01090351 |
| C **** FCVS PROGRAM 351 - TEST 001 **** 01100351 |
| C 01110351 |
| C TEST 1 CHECKS AN INTEGER EXPRESSION WHERE ALL FIVE ARITHMETIC 01120351 |
| C OPERATORS ARE USED AND ALL OPERAND PRIMARIES ARE SIMPLE INTEGER 01130351 |
| C VARIABLES. NO PARENTHESES ARE USED TO UPSET DEFAULT PRECEDENCES. 01140351 |
| C 01150351 |
| IVTNUM = 1 01160351 |
| IF (ICZERO) 30010, 0010, 30010 01170351 |
| 0010 CONTINUE 01180351 |
| IVON01 = 7 01190351 |
| IVON02 = 3 01200351 |
| IVON03 = 573 01210351 |
| IVON04 = 23 01220351 |
| IVON05 = 3 01230351 |
| IVON06 = -7 01240351 |
| IVCOMP = IVON01 ** IVON02 + IVON03 - IVON04 * IVON05 / IVON06 01250351 |
| IVCORR = 925 01260351 |
| 40010 IF (IVCOMP - 925) 20010, 10010, 20010 01270351 |
| 30010 IVDELE = IVDELE + 1 01280351 |
| WRITE (I02,80000) IVTNUM 01290351 |
| IF (ICZERO) 10010, 0021, 20010 01300351 |
| 10010 IVPASS = IVPASS + 1 01310351 |
| WRITE (I02,80002) IVTNUM 01320351 |
| GO TO 0021 01330351 |
| 20010 IVFAIL = IVFAIL + 1 01340351 |
| WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01350351 |
| 0021 CONTINUE 01360351 |
| C 01370351 |
| C **** FCVS PROGRAM 351 - TEST 002 **** 01380351 |
| C 01390351 |
| C TEST 2, LIKE TEST 1, CHECKS AN INTEGER EXPRESSION WHERE ALL 01400351 |
| C FIVE ARITHMETIC OPERATORS ARE USED AND ALL OPERANDS ARE SIMPLE 01410351 |
| C INTEGER VARIABLES; BUT IN THIS TEST, PARENTHESES ARE USED, AS IS 01420351 |
| C A UNARY OPERATOR. 01430351 |
| C 01440351 |
| IVTNUM = 2 01450351 |
| IF (ICZERO) 30020, 0020, 30020 01460351 |
| 0020 CONTINUE 01470351 |
| IVON01 = 7 01480351 |
| IVON02 = 3 01490351 |
| IVON03 = 5 01500351 |
| IVON04 = -3 01510351 |
| IVON05 = 3 01520351 |
| IVCOMP = -(IVON01 / IVON02) + (IVON03 * IVON04 ** IVON05) 01530351 |
| IVCORR = -137 01540351 |
| 40020 IF (IVCOMP + 137) 20020, 10020, 20020 01550351 |
| 30020 IVDELE = IVDELE + 1 01560351 |
| WRITE (I02,80000) IVTNUM 01570351 |
| IF (ICZERO) 10020, 0031, 20020 01580351 |
| 10020 IVPASS = IVPASS + 1 01590351 |
| WRITE (I02,80002) IVTNUM 01600351 |
| GO TO 0031 01610351 |
| 20020 IVFAIL = IVFAIL + 1 01620351 |
| WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01630351 |
| 0031 CONTINUE 01640351 |
| C 01650351 |
| C **** FCVS PROGRAM 351 - TEST 003 **** 01660351 |
| C 01670351 |
| C TEST 3 IS SIMILAR TO TEST 2 EXCEPT THAT IT EMPLOYS NESTED 01680351 |
| C PARENTHESES. 01690351 |
| C 01700351 |
| IVTNUM = 3 01710351 |
| IF (ICZERO) 30030, 0030, 30030 01720351 |
| 0030 CONTINUE 01730351 |
| IVON01 = 5 01740351 |
| IVON02 = 3 01750351 |
| IVON03 = 5 01760351 |
| IVON04 = 17 01770351 |
| IVON05 = 14 01780351 |
| IVON06 = 3 01790351 |
| IVCOMP = IVON01 ** (-(IVON02 + (IVON03 - IVON04)) - (IVON05 / 01800351 |
| 1 IVON06)) 01810351 |
| IVCORR = 3125 01820351 |
| 40030 IF (IVCOMP - 3125) 20030, 10030, 20030 01830351 |
| 30030 IVDELE = IVDELE + 1 01840351 |
| WRITE (I02,80000) IVTNUM 01850351 |
| IF (ICZERO) 10030, 0041, 20030 01860351 |
| 10030 IVPASS = IVPASS + 1 01870351 |
| WRITE (I02,80002) IVTNUM 01880351 |
| GO TO 0041 01890351 |
| 20030 IVFAIL = IVFAIL + 1 01900351 |
| WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01910351 |
| 0041 CONTINUE 01920351 |
| C 01930351 |
| C **** FCVS PROGRAM 351 - TEST 004 **** 01940351 |
| C 01950351 |
| C TEST 4 IS SIMILAR TO TEST 2 AND 3 EXCEPT THAT THE 01960351 |
| C PARENTHESES USED ARE EFFECTIVELY EXTRANEOUS. 01970351 |
| C 01980351 |
| IVTNUM = 4 01990351 |
| IF (ICZERO) 30040, 0040, 30040 02000351 |
| 0040 CONTINUE 02010351 |
| IVON01 = 3 02020351 |
| IVON02 = 4 02030351 |
| IVON03 = 5 02040351 |
| IVON04 = 2 02050351 |
| IVON05 = 3 02060351 |
| IVON06 = 4 02070351 |
| IVCOMP = ((IVON01) ** (IVON02) + (IVON03) - (IVON04) * 02080351 |
| 1 (IVON05) / (IVON06)) 02090351 |
| IVCORR = 85 02100351 |
| 40040 IF (IVCOMP - 85) 20040, 10040, 20040 02110351 |
| 30040 IVDELE = IVDELE + 1 02120351 |
| WRITE (I02,80000) IVTNUM 02130351 |
| IF (ICZERO) 10040, 0051, 20040 02140351 |
| 10040 IVPASS = IVPASS + 1 02150351 |
| WRITE (I02,80002) IVTNUM 02160351 |
| GO TO 0051 02170351 |
| 20040 IVFAIL = IVFAIL + 1 02180351 |
| WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02190351 |
| 0051 CONTINUE 02200351 |
| C 02210351 |
| C **** FCVS PROGRAM 351 - TEST 005 **** 02220351 |
| C 02230351 |
| C TEST 5 CONTINUES THE TESTING OF EXPRESSIONS USING ONLY 02240351 |
| C INTEGER VARIABLE OPERANDS CONNECTED BY ARITHMETIC OPERATORS, 02250351 |
| C AND USING PARENTHESES TO OVERRIDE PRECEDENCES. 02260351 |
| C 02270351 |
| IVTNUM = 5 02280351 |
| IF (ICZERO) 30050, 0050, 30050 02290351 |
| 0050 CONTINUE 02300351 |
| IVON01 = 57 02310351 |
| IVON02 = -3 02320351 |
| IVON03 = 4 02330351 |
| IVON04 = -1 02340351 |
| IVON05 = -5 02350351 |
| IVON06 = -2 02360351 |
| IVCOMP = -IVON01 ** (IVON02 + IVON03 - IVON04) * 02370351 |
| 1 (IVON05 / IVON06) 02380351 |
| IVCORR = -6498 02390351 |
| 40050 IF (IVCOMP + 6498) 20050, 10050, 20050 02400351 |
| 30050 IVDELE = IVDELE + 1 02410351 |
| WRITE (I02,80000) IVTNUM 02420351 |
| IF (ICZERO) 10050, 0061, 20050 02430351 |
| 10050 IVPASS = IVPASS + 1 02440351 |
| WRITE (I02,80002) IVTNUM 02450351 |
| GO TO 0061 02460351 |
| 20050 IVFAIL = IVFAIL + 1 02470351 |
| WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02480351 |
| 0061 CONTINUE 02490351 |
| C 02500351 |
| C **** FCVS PROGRAM 351 - TEST 006 **** 02510351 |
| C 02520351 |
| C TEST 6 CONTINUES THE TESTING OF EXPRESSIONS USING ONLY 02530351 |
| C INTEGER VARIABLE OPERANDS CONNECTED BY ARITHMETIC OPERATORS, 02540351 |
| C AND USING PARENTHESES TO OVERRIDE PRECEDENCES. 02550351 |
| C 02560351 |
| IVTNUM = 6 02570351 |
| IF (ICZERO) 30060, 0060, 30060 02580351 |
| 0060 CONTINUE 02590351 |
| IVON01 = 5 02600351 |
| IVON02 = 3 02610351 |
| IVON03 = 4 02620351 |
| IVON04 = 5496 02630351 |
| IVON05 = 7 02640351 |
| IVON06 = -3 02650351 |
| IVCOMP = ((IVON01 * (IVON02 / IVON03)) + IVON04) / IVON05 - 02660351 |
| 1 (-IVON06) 02670351 |
| IVCORR = 782 02680351 |
| 40060 IF (IVCOMP - 782) 20060, 10060, 20060 02690351 |
| 30060 IVDELE = IVDELE + 1 02700351 |
| WRITE (I02,80000) IVTNUM 02710351 |
| IF (ICZERO) 10060, 0071, 20060 02720351 |
| 10060 IVPASS = IVPASS + 1 02730351 |
| WRITE (I02,80002) IVTNUM 02740351 |
| GO TO 0071 02750351 |
| 20060 IVFAIL = IVFAIL + 1 02760351 |
| WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02770351 |
| 0071 CONTINUE 02780351 |
| C 02790351 |
| C **** FCVS PROGRAM 351 - TEST 007 **** 02800351 |
| C 02810351 |
| C IN TEST 7, AN INTEGER EXPRESSION INVOLVING ALL FIVE 02820351 |
| C ARITHMETIC OPERATORS TOGETHER WITH PARENTHESES IS EVALUATED, 02830351 |
| C BUT UNLIKE TESTS 1 THROUGH 6 WHERE ALL OPERANDS WERE INTEGER 02840351 |
| C VARIABLES, THE OPERANDS IN TEST 7 ARE CLASSED AS INTEGER 02850351 |
| C VARIABLES, INTEGER CONSTANTS, INTEGER ARRAY ELEMENTS, AND INTEGER 02860351 |
| C FUNCTION REFERENCES. 02870351 |
| C 02880351 |
| IVTNUM = 7 02890351 |
| IF (ICZERO) 30070, 0070, 30070 02900351 |
| 0070 CONTINUE 02910351 |
| IVON01 = 573 02920351 |
| IVON02 = 1 02930351 |
| IVON03 = 3 02940351 |
| IVON04 = 2 02950351 |
| IVON05 = 3 02960351 |
| IADN11(3) = 3071 02970351 |
| IVCOMP = (IVON01 + 1) - (5 + IADN11(IVON03)) / 02980351 |
| 1 (IFOS01(IVON03,IVON04,IVON05) ** IVON02) 02990351 |
| IVCORR = 574 03000351 |
| 40070 IF (IVCOMP - 574) 20070, 10070, 20070 03010351 |
| 30070 IVDELE = IVDELE + 1 03020351 |
| WRITE (I02,80000) IVTNUM 03030351 |
| IF (ICZERO) 10070, 0081, 20070 03040351 |
| 10070 IVPASS = IVPASS + 1 03050351 |
| WRITE (I02,80002) IVTNUM 03060351 |
| GO TO 0081 03070351 |
| 20070 IVFAIL = IVFAIL + 1 03080351 |
| WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03090351 |
| 0081 CONTINUE 03100351 |
| C 03110351 |
| C **** FCVS PROGRAM 351 - TEST 008 **** 03120351 |
| C 03130351 |
| C TEST 8 IS IDENTICAL TO TEST 7 EXCEPT THAT PARENTHESES ARE 03140351 |
| C USED TO CHANGE THE ORDER OF SUB-EXPRESSION EVALUATION. 03150351 |
| C 03160351 |
| IVTNUM = 8 03170351 |
| IF (ICZERO) 30080, 0080, 30080 03180351 |
| 0080 CONTINUE 03190351 |
| IVON01 = 573 03200351 |
| IVON02 = 1 03210351 |
| IVON03 = 3 03220351 |
| IVON04 = 2 03230351 |
| IVON05 = 3 03240351 |
| IADN11(3) = 3071 03250351 |
| IVCOMP = ((IVON01 + 1) - (5 + IADN11(IVON03))) / 03260351 |
| 1 IFOS01(IVON03,IVON04,IVON05) ** IVON02 03270351 |
| IVCORR = 0 03280351 |
| 40080 IF (IVCOMP) 20080, 10080, 20080 03290351 |
| 30080 IVDELE = IVDELE + 1 03300351 |
| WRITE (I02,80000) IVTNUM 03310351 |
| IF (ICZERO) 10080, 0091, 20080 03320351 |
| 10080 IVPASS = IVPASS + 1 03330351 |
| WRITE (I02,80002) IVTNUM 03340351 |
| GO TO 0091 03350351 |
| 20080 IVFAIL = IVFAIL + 1 03360351 |
| WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03370351 |
| 0091 CONTINUE 03380351 |
| C 03390351 |
| C **** FCVS PROGRAM 351 - TEST 009 **** 03400351 |
| C 03410351 |
| C TEST 9 IS SIMILAR TO TESTS 7 AND 8 EXCEPT THAT THE 03420351 |
| C FUNCTION REFERENCE IN TURN EVALUATES ARRAY ELEMENTS. 03430351 |
| C 03440351 |
| IVTNUM = 9 03450351 |
| IF (ICZERO) 30090, 0090, 30090 03460351 |
| 0090 CONTINUE 03470351 |
| IVON01 = 7 03480351 |
| IVON02 = 3 03490351 |
| IVON03 = 2 03500351 |
| IVON04 = 1 03510351 |
| IVON05 = 4 03520351 |
| IADN11(1) = 5 03530351 |
| IADN11(2) = 2 03540351 |
| IADN11(4) = 2 03550351 |
| IVCOMP = (IVON01 - 8 * IFOS02(IVON04,IVON03)) / IADN11(IVON05) + 03560351 |
| 1 13 ** IVON02 03570351 |
| IVCORR = 2193 03580351 |
| 40090 IF (IVCOMP - 2193) 20090, 10090, 20090 03590351 |
| 30090 IVDELE = IVDELE + 1 03600351 |
| WRITE (I02,80000) IVTNUM 03610351 |
| IF (ICZERO) 10090, 0101, 20090 03620351 |
| 10090 IVPASS = IVPASS + 1 03630351 |
| WRITE (I02,80002) IVTNUM 03640351 |
| GO TO 0101 03650351 |
| 20090 IVFAIL = IVFAIL + 1 03660351 |
| WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03670351 |
| 0101 CONTINUE 03680351 |
| C 03690351 |
| C **** FCVS PROGRAM 351 - TEST 010 **** 03700351 |
| C 03710351 |
| C TEST 10 EVALUATES AN INTEGER EXPRESSION WHICH CONTAINS 03720351 |
| C FUNCTION REFERENCES NESTED TO THREE LEVELS. THE OUTER TWO 03730351 |
| C LEVELS ARE STATEMENT FUNCTION REFERENCES AND THE INNERMOST LEVEL 03740351 |
| C IS AN INTRINSIC FUNCTION REFERENCE. 03750351 |
| C 03760351 |
| IVTNUM = 10 03770351 |
| IF (ICZERO) 30100, 0100, 30100 03780351 |
| 0100 CONTINUE 03790351 |
| IVON01 = -51 03800351 |
| IVON02 = 4 03810351 |
| IVON03 = -101 03820351 |
| IVON04 = 13 03830351 |
| IVON05 = 3 03840351 |
| IVON06 = 5 03850351 |
| IVON07 = -37 03860351 |
| IADN11(4) = 87 03870351 |
| IADN11(5) = 409 03880351 |
| IVCOMP = (IVON01 + IFOS03(IVON02,IVON03,IVON04)) * IVON05 - 03890351 |
| 1 IFOS04(IVON06,IVON07) 03900351 |
| IVCORR = 6733 03910351 |
| 40100 IF (IVCOMP - 6733) 20100, 10100, 20100 03920351 |
| 30100 IVDELE = IVDELE + 1 03930351 |
| WRITE (I02,80000) IVTNUM 03940351 |
| IF (ICZERO) 10100, 0111, 20100 03950351 |
| 10100 IVPASS = IVPASS + 1 03960351 |
| WRITE (I02,80002) IVTNUM 03970351 |
| GO TO 0111 03980351 |
| 20100 IVFAIL = IVFAIL + 1 03990351 |
| WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04000351 |
| 0111 CONTINUE 04010351 |
| C 04020351 |
| C TESTS 11 THROUGH 20 REPEAT TESTS 1 THROUGH 10 EXCEPT THAT 04030351 |
| C TESTS 11 THROUGH 20 DEAL ENTIRELY WITH REAL ARITHMETIC 04040351 |
| C EXPRESSIONS. 04050351 |
| C 04060351 |
| C 04070351 |
| C **** FCVS PROGRAM 351 - TEST 011 **** 04080351 |
| C 04090351 |
| C TEST 11 TESTS A REAL EXPRESSION WHERE ALL FIVE ARITHMETIC 04100351 |
| C OPERATORS ARE USED AND ALL OPERAND PRIMARIES ARE SIMPLE REAL 04110351 |
| C VARIABLES. 04120351 |
| C 04130351 |
| IVTNUM = 11 04140351 |
| IF (ICZERO) 30110, 0110, 30110 04150351 |
| 0110 CONTINUE 04160351 |
| RVON01 = 3.2 04170351 |
| RVON02 = 23.051 04180351 |
| RVON03 = 1545 E7 04190351 |
| RVON04 = -23.457 04200351 |
| RVON05 = .02 E3 04210351 |
| RVON06 = 7.210745323 E-10 04220351 |
| RVCOMP = RVON01 ** RVON02 + RVON03 - RVON04 * RVON05 / RVON06 04230351 |
| RVCORR = 1.10683 E12 04240351 |
| 40110 IF (RVCOMP - 1.1063 E12) 20110, 10110, 40111 04250351 |
| 40111 IF (RVCOMP - 1.1073 E12) 10110, 10110, 20110 04260351 |
| 30110 IVDELE = IVDELE + 1 04270351 |
| WRITE (I02,80000) IVTNUM 04280351 |
| IF (ICZERO) 10110, 0121, 20110 04290351 |
| 10110 IVPASS = IVPASS + 1 04300351 |
| WRITE (I02,80002) IVTNUM 04310351 |
| GO TO 0121 04320351 |
| 20110 IVFAIL = IVFAIL + 1 04330351 |
| WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 04340351 |
| 0121 CONTINUE 04350351 |
| C 04360351 |
| C **** FCVS PROGRAM 351 - TEST 012 **** 04370351 |
| C 04380351 |
| C TEST 12, LIKE TEST 11, CHECKS A REAL EXPRESSION WHERE ALL 04390351 |
| C FIVE ARITHMETIC OPERATORS ARE USED AND ALL OPERANDS ARE REAL 04400351 |
| C VARIABLES, BUT IN TEST 12, PARENTHESES ARE USED, AS IS ALSO A 04410351 |
| C UNARY OPERATOR. 04420351 |
| C 04430351 |
| IVTNUM = 12 04440351 |
| IF (ICZERO) 30120, 0120, 30120 04450351 |
| 0120 CONTINUE 04460351 |
| RVON01 = 3.2 04470351 |
| RVON02 = 23.051 04480351 |
| RVON03 = 1545 E-3 04490351 |
| RVON04 = 5.75 E-1 04500351 |
| RVON05 = 2.22 E+1 04510351 |
| RVCOMP = -(RVON01 / RVON02) + (RVON03 * RVON04 ** RVON05) 04520351 |
| RVCORR = -.13882 04530351 |
| 40120 IF (RVCOMP + .13887) 20120, 10120, 40121 04540351 |
| 40121 IF (RVCOMP + .13877) 10120, 10120, 20120 04550351 |
| 30120 IVDELE = IVDELE + 1 04560351 |
| WRITE (I02,80000) IVTNUM 04570351 |
| IF (ICZERO) 10120, 0131, 20120 04580351 |
| 10120 IVPASS = IVPASS + 1 04590351 |
| WRITE (I02,80002) IVTNUM 04600351 |
| GO TO 0131 04610351 |
| 20120 IVFAIL = IVFAIL + 1 04620351 |
| WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 04630351 |
| 0131 CONTINUE 04640351 |
| C 04650351 |
| C **** FCVS PROGRAM 351 - TEST 013 **** 04660351 |
| C 04670351 |
| C TEST 13 IS SIMILAR TO TEST 12 EXCEPT THAT TEST 13 EMPLOYS 04680351 |
| C NESTED PARENTHESES. 04690351 |
| C 04700351 |
| IVTNUM = 13 04710351 |
| IF (ICZERO) 30130, 0130, 30130 04720351 |
| 0130 CONTINUE 04730351 |
| RVON01 = 3.2 04740351 |
| RVON02 = -63.051 04750351 |
| RVON03 = 1545 E-3 04760351 |
| RVON04 = 5.75 E-1 04770351 |
| RVON05 = 2.22 E1 04780351 |
| RVON06 = 0.523 04790351 |
| RVCOMP = RVON01 ** (-(RVON02 + (RVON03 - RVON04)) - 04800351 |
| 1 (RVON05 / RVON06)) 04810351 |
| RVCORR = 8.27757 E9 04820351 |
| 40130 IF (RVCOMP - 8.2770 E9) 20130, 10130, 40131 04830351 |
| 40131 IF (RVCOMP - 8.2780 E9) 10130, 10130, 20130 04840351 |
| 30130 IVDELE = IVDELE + 1 04850351 |
| WRITE (I02,80000) IVTNUM 04860351 |
| IF (ICZERO) 10130, 0141, 20130 04870351 |
| 10130 IVPASS = IVPASS + 1 04880351 |
| WRITE (I02,80002) IVTNUM 04890351 |
| GO TO 0141 04900351 |
| 20130 IVFAIL = IVFAIL + 1 04910351 |
| WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 04920351 |
| 0141 CONTINUE 04930351 |
| C 04940351 |
| C **** FCVS PROGRAM 351 - TEST 014 **** 04950351 |
| C 04960351 |
| C TEST 14 IS SIMILAR TO TESTS 12 AND 13 EXCEPT THAT THE 04970351 |
| C PARENTHESES USED ARE EFFECTIVELY EXTRANEOUS. 04980351 |
| C 04990351 |
| IVTNUM = 14 05000351 |
| IF (ICZERO) 30140, 0140, 30140 05010351 |
| 0140 CONTINUE 05020351 |
| RVON01 = 5.4515 E18 05030351 |
| RVON02 = .076923 05040351 |
| RVON03 = 23 E-2 05050351 |
| RVON04 = 7 E7 05060351 |
| RVON05 = 45.23 E5 05070351 |
| RVON06 = 5.65375 E12 05080351 |
| RVCOMP = ((RVON01) ** (RVON02) + (RVON03) - (RVON04) * (RVON05) / 05090351 |
| 1 (RVON06)) 05100351 |
| RVCORR = -28.147 05110351 |
| 40140 IF (RVCOMP + 28.152) 20140, 10140, 40141 05120351 |
| 40141 IF (RVCOMP + 28.142) 10140, 10140, 20140 05130351 |
| 30140 IVDELE = IVDELE + 1 05140351 |
| WRITE (I02,80000) IVTNUM 05150351 |
| IF (ICZERO) 10140, 0151, 20140 05160351 |
| 10140 IVPASS = IVPASS + 1 05170351 |
| WRITE (I02,80002) IVTNUM 05180351 |
| GO TO 0151 05190351 |
| 20140 IVFAIL = IVFAIL + 1 05200351 |
| WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 05210351 |
| 0151 CONTINUE 05220351 |
| C 05230351 |
| C **** FCVS PROGRAM 351 - TEST 015 **** 05240351 |
| C 05250351 |
| C TEST 15 CONTINUES THE TESTING OF EXPRESSIONS USING ONLY 05260351 |
| C REAL VARIABLE OPERANDS CONNECTED BY ARITHMETIC OPERATORS, AND 05270351 |
| C USING PARENTHESES TO OVERRIDE PRECEDENCES. 05280351 |
| C 05290351 |
| IVTNUM = 15 05300351 |
| IF (ICZERO) 30150, 0150, 30150 05310351 |
| 0150 CONTINUE 05320351 |
| RVON01 = .11341 E1 05330351 |
| RVON02 = 7.1417 05340351 |
| RVON03 = 5.2113 E1 05350351 |
| RVON04 = 10.001 05360351 |
| RVON05 = 7.241 E5 05370351 |
| RVON06 = 5.7777 E-3 05380351 |
| RVCOMP = -RVON01 ** (RVON02 + RVON03 - RVON04) * (RVON05 / RVON06)05390351 |
| RVCORR = -6.1635 E10 05400351 |
| 40150 IF (RVCOMP + 6.1640 E10) 20150, 10150, 40151 05410351 |
| 40151 IF (RVCOMP + 6.1630 E10) 10150, 10150, 20150 05420351 |
| 30150 IVDELE = IVDELE + 1 05430351 |
| WRITE (I02,80000) IVTNUM 05440351 |
| IF (ICZERO) 10150, 0161, 20150 05450351 |
| 10150 IVPASS = IVPASS + 1 05460351 |
| WRITE (I02,80002) IVTNUM 05470351 |
| GO TO 0161 05480351 |
| 20150 IVFAIL = IVFAIL + 1 05490351 |
| WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 05500351 |
| 0161 CONTINUE 05510351 |
| C 05520351 |
| C **** FCVS PROGRAM 351 - TEST 016 **** 05530351 |
| C 05540351 |
| C TEST 16 CONTINUES THE TESTING OF EXPRESSIONS USING ONLY 05550351 |
| C REAL VARIABLE OPERANDS CONNECTED BY ARITHMETIC OPERATORS, AND 05560351 |
| C USING PARENTHESES TO OVERRIDE PRECEDENCES. 05570351 |
| C 05580351 |
| IVTNUM = 16 05590351 |
| IF (ICZERO) 30160, 0160, 30160 05600351 |
| 0160 CONTINUE 05610351 |
| RVON01 = 6.4003 E18 05620351 |
| RVON02 = -3.7717 E-2 05630351 |
| RVON03 = -5.1195 E3 05640351 |
| RVON04 = 1.7521 E14 05650351 |
| RVON05 = 1.0533 E3 05660351 |
| RVON06 = -9.4207 E11 05670351 |
| RVCOMP = ((RVON01 * (RVON02 / RVON03)) + RVON04) / RVON05 - 05680351 |
| 1 (-RVON06) 05690351 |
| RVCORR = -7.3096 E11 05700351 |
| 40160 IF (RVCOMP + 7.3101 E11) 20160, 10160, 40161 05710351 |
| 40161 IF (RVCOMP + 7.3091 E11) 10160, 10160, 20160 05720351 |
| 30160 IVDELE = IVDELE + 1 05730351 |
| WRITE (I02,80000) IVTNUM 05740351 |
| IF (ICZERO) 10160, 0171, 20160 05750351 |
| 10160 IVPASS = IVPASS + 1 05760351 |
| WRITE (I02,80002) IVTNUM 05770351 |
| GO TO 0171 05780351 |
| 20160 IVFAIL = IVFAIL + 1 05790351 |
| WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 05800351 |
| 0171 CONTINUE 05810351 |
| C 05820351 |
| C **** FCVS PROGRAM 351 - TEST 017 **** 05830351 |
| C 05840351 |
| C IN TEST 17, A REAL EXPRESSION INVOLVING ALL FIVE ARITHMETIC 05850351 |
| C OPERATORS IS EVALUATED, BUT UNLIKE TESTS 11 THROUGH 16 WHERE 05860351 |
| C ALL OPERANDS WERE REAL VARIABLES, THE OPERANDS IN TEST 17 ARE 05870351 |
| C CLASSED AS REAL VARIABLES, REAL CONSTANTS, REAL ARRAY ELEMENTS, 05880351 |
| C AND REAL FUNCTION REFERENCES. 05890351 |
| C 05900351 |
| IVTNUM = 17 05910351 |
| IF (ICZERO) 30170, 0170, 30170 05920351 |
| 0170 CONTINUE 05930351 |
| RVON01 = 5.247 E10 05940351 |
| IVON01 = 3 05950351 |
| RVON02 = 1.07 E1 05960351 |
| RVON03 = 5.23 05970351 |
| RVON04 = 1.001 05980351 |
| RVON05 = 1.573 05990351 |
| RADN11(3) = 0.3947 E18 06000351 |
| RVCOMP = (RVON01 + 3.491 E10) - (4 E17 + RADN11(IVON01)) / 06010351 |
| 1 (RFOS01(RVON03,RVON04,RVON05) ** RVON02) 06020351 |
| RVCORR = 7.1526 E10 06030351 |
| 40170 IF (RVCOMP - 7.1521 E10) 20170, 10170, 40171 06040351 |
| 40171 IF (RVCOMP - 7.1531 E10) 10170, 10170, 20170 06050351 |
| 30170 IVDELE = IVDELE + 1 06060351 |
| WRITE (I02,80000) IVTNUM 06070351 |
| IF (ICZERO) 10170, 0181, 20170 06080351 |
| 10170 IVPASS = IVPASS + 1 06090351 |
| WRITE (I02,80002) IVTNUM 06100351 |
| GO TO 0181 06110351 |
| 20170 IVFAIL = IVFAIL + 1 06120351 |
| WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 06130351 |
| 0181 CONTINUE 06140351 |
| C 06150351 |
| C **** FCVS PROGRAM 351 - TEST 018 **** 06160351 |
| C 06170351 |
| C TEST 18 IS IDENTICAL TO TEST 17 EXCEPT THAT PARENTHESES ARE 06180351 |
| C USED TO CHANGE THE ORDER OF SUB-EXPRESSION EVALUATION. 06190351 |
| C 06200351 |
| IVTNUM = 18 06210351 |
| IF (ICZERO) 30180, 0180, 30180 06220351 |
| 0180 CONTINUE 06230351 |
| RVON01 = 5.247 E10 06240351 |
| IVON01 = 3 06250351 |
| RVON02 = 1.07 E1 06260351 |
| RVON03 = 5.23 06270351 |
| RVON04 = 1.001 06280351 |
| RVON05 = 1.573 06290351 |
| RADN11(3) = 0.3947 E18 06300351 |
| RVCOMP = ((RVON01 + 3.491 E10) - (4 E17 + RADN11(IVON01))) / 06310351 |
| 1 RFOS01(RVON03,RVON04,RVON05) ** RVON02 06320351 |
| RVCORR = -1.5854 E10 06330351 |
| 40180 IF (RVCOMP + 1.5859 E10) 20180, 10180, 40181 06340351 |
| 40181 IF (RVCOMP + 1.5849 E10) 10180, 10180, 20180 06350351 |
| 30180 IVDELE = IVDELE + 1 06360351 |
| WRITE (I02,80000) IVTNUM 06370351 |
| IF (ICZERO) 10180, 0191, 20180 06380351 |
| 10180 IVPASS = IVPASS + 1 06390351 |
| WRITE (I02,80002) IVTNUM 06400351 |
| GO TO 0191 06410351 |
| 20180 IVFAIL = IVFAIL + 1 06420351 |
| WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 06430351 |
| 0191 CONTINUE 06440351 |
| C 06450351 |
| C **** FCVS PROGRAM 351 - TEST 019 **** 06460351 |
| C 06470351 |
| C TEST 19 IS SIMILAR TO TESTS 17 AND 18 EXCEPT THAT THE 06480351 |
| C FUNCTION REFERENCES IN TURN EVALUATE ARRAY ELEMENTS. 06490351 |
| C 06500351 |
| IVTNUM = 19 06510351 |
| IF (ICZERO) 30190, 0190, 30190 06520351 |
| 0190 CONTINUE 06530351 |
| RVON01 = 5.026 E2 06540351 |
| RVON02 = 1.386 E1 06550351 |
| IVON03 = 2 06560351 |
| RVON04 = 1.9999 06570351 |
| RVON05 = 4.0127 06580351 |
| RADN11(1) = 3.004 E18 06590351 |
| RADN11(2) = 2.5705 E-1 06600351 |
| RADN11(4) = 7.993 E16 06610351 |
| RVCOMP = (RVON01 - 5.902 * RFOS02(INT(RVON04),INT(RVON05))) / 06620351 |
| 1 RADN11(IVON03) + 1.5372 ** RVON02 06630351 |
| RVCORR = 1.4797 E3 06640351 |
| 40190 IF (RVCORR - 1.4792 E3) 20190, 10190, 40191 06650351 |
| 40191 IF (RVCORR - 1.4802 E3) 10190, 10190, 20190 06660351 |
| 30190 IVDELE = IVDELE + 1 06670351 |
| WRITE (I02,80000) IVTNUM 06680351 |
| IF (ICZERO) 10190, 0201, 20190 06690351 |
| 10190 IVPASS = IVPASS + 1 06700351 |
| WRITE (I02,80002) IVTNUM 06710351 |
| GO TO 0201 06720351 |
| 20190 IVFAIL = IVFAIL + 1 06730351 |
| WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 06740351 |
| 0201 CONTINUE 06750351 |
| C 06760351 |
| C **** FCVS PROGRAM 351 - TEST 020 **** 06770351 |
| C 06780351 |
| C TEST 20 EVALUATES A REAL EXPRESSION WHICH CONTAINS FUNCTION 06790351 |
| C REFERENCES NESTED TO THREE LEVELS. THE OUTER TWO LEVELS ARE 06800351 |
| C STATEMENT FUNCTION REFERENCES AND THE INNERMOST LEVEL IS AN 06810351 |
| C INTRINSIC FUNCTION REFERENCE. 06820351 |
| C 06830351 |
| IVTNUM = 20 06840351 |
| IF (ICZERO) 30200, 0200, 30200 06850351 |
| 0200 CONTINUE 06860351 |
| RVON01 = 4.7117 E05 06870351 |
| RVON02 = 5.987 06880351 |
| RVON03 = 2.00000 E5 06890351 |
| RVON04 = 1.0 E2 06900351 |
| RVON05 = 1.5222 E9 06910351 |
| IVON06 = 4 06920351 |
| RVON07 = -3.2107 E14 06930351 |
| RADN11(4) = 7.425 E14 06940351 |
| RADN11(5) = -2.4015 E5 06950351 |
| RVCOMP = (RVON01 + RFOS03(RVON02,RVON03,RVON04)) * RVON05 - 06960351 |
| 1 RFOS04(IVON06,RVON07) 06970351 |
| RVCORR = -6.4580 E15 06980351 |
| 40200 IF (RVCOMP + 6.4585 E15) 20200, 10200, 40201 06990351 |
| 40201 IF (RVCOMP + 6.4575 E15) 10200, 10200, 20200 07000351 |
| 30200 IVDELE = IVDELE + 1 07010351 |
| WRITE (I02,80000) IVTNUM 07020351 |
| IF (ICZERO) 10200, 0211, 20200 07030351 |
| 10200 IVPASS = IVPASS + 1 07040351 |
| WRITE (I02,80002) IVTNUM 07050351 |
| GO TO 0211 07060351 |
| 20200 IVFAIL = IVFAIL + 1 07070351 |
| WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 07080351 |
| 0211 CONTINUE 07090351 |
| C 07100351 |
| C TESTS 21 THROUGH 25 DEAL WITH MIXTURES OF REAL AND INTEGER 07110351 |
| C EXPRESSIONS; I.E., THESE ARE TESTS WHICH EVALUATE EXPRESSIONS 07120351 |
| C CONTAINING BOTH REAL SUB-EXPRESSIONS AND INTEGER SUB-EXPRESSIONS 07130351 |
| C AND THEN ASSIGN THE RESULTS TO EITHER AN INTEGER OR A REAL 07140351 |
| C VARIABLE. 07150351 |
| C 07160351 |
| C 07170351 |
| C **** FCVS PROGRAM 351 - TEST 021 **** 07180351 |
| C 07190351 |
| C TEST 21 USES ALL FIVE ARITHMETIC OPERATORS AND A COMBINATION 07200351 |
| C OF INTEGER AND REAL VARIABLES. NO PARENTHESES ARE USED. FINAL 07210351 |
| C ASSIGNMENT IS TO AN INTEGER VARIABLE. 07220351 |
| C 07230351 |
| IVTNUM = 21 07240351 |
| IF (ICZERO) 30210, 0210, 30210 07250351 |
| 0210 CONTINUE 07260351 |
| IVON01 = 17 07270351 |
| IVON02 = 3 07280351 |
| RVON03 = 5.4732 E+2 07290351 |
| RVON04 = 1.523 07300351 |
| IVON05 = 798 07310351 |
| IVCOMP = IVON01 ** IVON02 + RVON03 - RVON04 * IVON05 / IVON01 07320351 |
| IVCORR = 5388 07330351 |
| 40210 IF (IVCOMP - 5388) 20210, 10210, 20210 07340351 |
| 30210 IVDELE = IVDELE + 1 07350351 |
| WRITE (I02,80000) IVTNUM 07360351 |
| IF (ICZERO) 10210, 0221, 20210 07370351 |
| 10210 IVPASS = IVPASS + 1 07380351 |
| WRITE (I02,80002) IVTNUM 07390351 |
| GO TO 0221 07400351 |
| 20210 IVFAIL = IVFAIL + 1 07410351 |
| WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 07420351 |
| 0221 CONTINUE 07430351 |
| C 07440351 |
| C **** FCVS PROGRAM 351 - TEST 022 **** 07450351 |
| C 07460351 |
| C TEST 22 IS LIKE TEST 21 EXCEPT THAT PARENTHESES ARE USED, 07470351 |
| C AS IS A UNARY OPERATOR. FINAL ASSIGNMENT IS TO A REAL VARIABLE. 07480351 |
| C 07490351 |
| IVTNUM = 22 07500351 |
| IF (ICZERO) 30220, 0220, 30220 07510351 |
| 0220 CONTINUE 07520351 |
| IVON01 = 798 07530351 |
| IVON02 = 17 07540351 |
| RVON03 = 9.34578 E-2 07550351 |
| IVON04 = 15985 07560351 |
| RVON05 = 0.72357 07570351 |
| RVCOMP = -(IVON01 / IVON02) + (RVON03 * IVON04 ** RVON05) 07580351 |
| RVCORR = 5.68717 E1 07590351 |
| 40220 IF (RVCOMP - 5.6866 E1) 20220, 10220, 40221 07600351 |
| 40221 IF (RVCOMP - 5.6876 E1) 10220, 10220, 20220 07610351 |
| 30220 IVDELE = IVDELE + 1 07620351 |
| WRITE (I02,80000) IVTNUM 07630351 |
| IF (ICZERO) 10220, 0231, 20220 07640351 |
| 10220 IVPASS = IVPASS + 1 07650351 |
| WRITE (I02,80002) IVTNUM 07660351 |
| GO TO 0231 07670351 |
| 20220 IVFAIL = IVFAIL + 1 07680351 |
| WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 07690351 |
| 0231 CONTINUE 07700351 |
| C 07710351 |
| C **** FCVS PROGRAM 351 - TEST 023 **** 07720351 |
| C 07730351 |
| C TEST 23 IS SIMILAR TO TEST 22 EXCEPT THAT IT EMPLOYS NESTED 07740351 |
| C PARENTHESES. 07750351 |
| C 07760351 |
| IVTNUM = 23 07770351 |
| IF (ICZERO) 30230, 0230, 30230 07780351 |
| 0230 CONTINUE 07790351 |
| IVON01 = 2 07800351 |
| IVON02 = 183 07810351 |
| RVON03 = 58.7025 07820351 |
| IVON04 = 197 07830351 |
| IVON05 = 87 07840351 |
| RVON06 = 2.4611 E15 07850351 |
| RVCOMP = IVON01 ** (-(IVON02 + (RVON03 - IVON04)) - 07860351 |
| 1 (IVON05 / RVON06)) 07870351 |
| RVCORR = 3.4931 E-14 07880351 |
| 40230 IF (RVCOMP - 3.4926 E-14) 20230, 10230, 40231 07890351 |
| 40231 IF (RVCOMP - 3.4936 E-14) 10230, 10230, 20230 07900351 |
| 30230 IVDELE = IVDELE + 1 07910351 |
| WRITE (I02,80000) IVTNUM 07920351 |
| IF (ICZERO) 10230, 0241, 20230 07930351 |
| 10230 IVPASS = IVPASS + 1 07940351 |
| WRITE (I02,80002) IVTNUM 07950351 |
| GO TO 0241 07960351 |
| 20230 IVFAIL = IVFAIL + 1 07970351 |
| WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 07980351 |
| 0241 CONTINUE 07990351 |
| C 08000351 |
| C **** FCVS PROGRAM 351 - TEST 024 **** 08010351 |
| C 08020351 |
| C TEST 24 IS IDENTICAL TO TEST 23 EXCEPT THAT THE FINAL 08030351 |
| C ASSIGNMENT IS TO AN INTEGER VARIABLE INSTEAD OF A REAL VARIABLE. 08040351 |
| C 08050351 |
| IVTNUM = 24 08060351 |
| IF (ICZERO) 30240, 0240, 30240 08070351 |
| 0240 CONTINUE 08080351 |
| IVON01 = 2 08090351 |
| IVON02 = 183 08100351 |
| RVON03 = 58.7025 08110351 |
| IVON04 = 197 08120351 |
| IVON05 = 87 08130351 |
| RVON06 = 2.4611 E15 08140351 |
| IVCOMP = IVON01 ** (-(IVON02 + (RVON03 - IVON04)) - 08150351 |
| 1 (IVON05 / RVON06)) 08160351 |
| IVCORR = 0 08170351 |
| 40240 IF (IVCOMP) 20240, 10240, 20240 08180351 |
| 30240 IVDELE = IVDELE + 1 08190351 |
| WRITE (I02,80000) IVTNUM 08200351 |
| IF (ICZERO) 10240, 0251, 20240 08210351 |
| 10240 IVPASS = IVPASS + 1 08220351 |
| WRITE (I02,80002) IVTNUM 08230351 |
| GO TO 0251 08240351 |
| 20240 IVFAIL = IVFAIL + 1 08250351 |
| WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 08260351 |
| 0251 CONTINUE 08270351 |
| C 08280351 |
| C **** FCVS PROGRAM 351 - TEST 025 **** 08290351 |
| C 08300351 |
| C TEST 25 IS SIMILAR TO TESTS 9 AND 19 EXCEPT THAT A MIXTURE 08310351 |
| C OF REAL AND INTEGER OPERANDS ARE USED, AND FINAL ASSIGNMENT IS 08320351 |
| C TO A REAL VARIABLE. 08330351 |
| C 08340351 |
| IVTNUM = 25 08350351 |
| IF (ICZERO) 30250, 0250, 30250 08360351 |
| 0250 CONTINUE 08370351 |
| RVON01 = 4.7117 08380351 |
| RVON02 = 5.998 08390351 |
| IVON03 = 2 08400351 |
| RVON04 = 1E2 08410351 |
| IVON05 = 20 08420351 |
| IVON06 = 4 08430351 |
| IVON07 = -3 08440351 |
| RADN11(4) = 7.425 08450351 |
| RADN11(5) = -2.4015 08460351 |
| RVCOMP = (RVON01 + RFOS06(AINT(RVON02),IVON03,RVON04)) * IVON05 - 08470351 |
| 1 IFOS05(IVON06,IVON07) 08480351 |
| RVCORR = 84.234 08490351 |
| 40250 IF (RVCOMP - 84.229) 20250, 10250, 40251 08500351 |
| 40251 IF (RVCOMP - 84.239) 10250, 10250, 20250 08510351 |
| 30250 IVDELE = IVDELE + 1 08520351 |
| WRITE (I02,80000) IVTNUM 08530351 |
| IF (ICZERO) 10250, 0261, 20250 08540351 |
| 10250 IVPASS = IVPASS + 1 08550351 |
| WRITE (I02,80002) IVTNUM 08560351 |
| GO TO 0261 08570351 |
| 20250 IVFAIL = IVFAIL + 1 08580351 |
| WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 08590351 |
| 0261 CONTINUE 08600351 |
| C 08610351 |
| C 08620351 |
| C WRITE OUT TEST SUMMARY 08630351 |
| C 08640351 |
| WRITE (I02,90004) 08650351 |
| WRITE (I02,90014) 08660351 |
| WRITE (I02,90004) 08670351 |
| WRITE (I02,90000) 08680351 |
| WRITE (I02,90004) 08690351 |
| WRITE (I02,90020) IVFAIL 08700351 |
| WRITE (I02,90022) IVPASS 08710351 |
| WRITE (I02,90024) IVDELE 08720351 |
| STOP 08730351 |
| 90001 FORMAT (" ",24X,"FM351") 08740351 |
| 90000 FORMAT (" ",20X,"END OF PROGRAM FM351" ) 08750351 |
| C 08760351 |
| C FORMATS FOR TEST DETAIL LINES 08770351 |
| C 08780351 |
| 80000 FORMAT (" ",4X,I5,6X,"DELETED") 08790351 |
| 80002 FORMAT (" ",4X,I5,7X,"PASS") 08800351 |
| 80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 08810351 |
| 80012 FORMAT (" ",4X,I5,7X,"FAIL",4X,E12.5,3X,E12.5) 08820351 |
| 80018 FORMAT (" ",4X,I5,7X,"FAIL",2X,A14,1X,A14) 08830351 |
| C 08840351 |
| C FORMAT STATEMENTS FOR PAGE HEADERS 08850351 |
| C 08860351 |
| 90002 FORMAT ("1") 08870351 |
| 90004 FORMAT (" ") 08880351 |
| 90006 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 08890351 |
| 90008 FORMAT (" ",21X,"VERSION 2.1" ) 08900351 |
| 90010 FORMAT (" ",8X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 08910351 |
| 90012 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL",5X,"COMPUTED",8X,"CORRECT") 08920351 |
| 90014 FORMAT (" ",5X,"----------------------------------------------" ) 08930351 |
| 90016 FORMAT (" ",18X,"SUBSET LEVEL TEST" ) 08940351 |
| C 08950351 |
| C FORMAT STATEMENTS FOR RUN SUMMARY 08960351 |
| C 08970351 |
| 90020 FORMAT (" ",19X,I5," TESTS FAILED" ) 08980351 |
| 90022 FORMAT (" ",19X,I5," TESTS PASSED" ) 08990351 |
| 90024 FORMAT (" ",19X,I5," TESTS DELETED" ) 09000351 |
| END 09010351 |
