| PROGRAM FM017 |
| |
| C 00010017 |
| C COMMENT SECTION. 00020017 |
| C 00030017 |
| C FM017 00040017 |
| C 00050017 |
| C THIS ROUTINE CONTINUES TESTS OF THE FORTRAN 00060017 |
| C LOGICAL IF STATEMENT IN ALL OF THE VARIOUS FORMS. THE 00070017 |
| C FOLLOWING LOGICAL OPERANDS ARE USED FOR THIS ROUTINE - LOGICAL 00080017 |
| C CONSTANTS, LOGICAL VARIABLES, LOGICAL ARRAY ELEMENTS, AND 00090017 |
| C ARITHMETIC EXPRESSIONS WITH VARIOUS RELATIONAL OPERATORS. BOTH 00100017 |
| C THE TRUE AND FALSE BRANCHES ARE TESTED IN THE SERIES OF TESTS. 00110017 |
| C 00120017 |
| C REFERENCES 00130017 |
| C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00140017 |
| C X3.9-1978 00150017 |
| C 00160017 |
| C SECTION 4.7.1, LOGICAL CONSTANT 00170017 |
| C SECTION 6, EXPRESSIONS 00180017 |
| C SECTION 6.1, ARITHMETIC EXPRESSIONS 00190017 |
| C SECTION 6.3, RELATIONAL EXPRESSIONS 00200017 |
| C SECTION 6.4, LOGICAL EXPRESSIONS 00210017 |
| C SECTION 6.6, EVALUATION OF EXPRESSIONS 00220017 |
| C SECTION 10, ASSIGNMENT STATEMENTS 00230017 |
| C SECTION 10.2, LOGICAL ASSIGNMENT STATEMENT 00240017 |
| C SECTION 11.5, LOGICAL IF STATEMENT 00250017 |
| C 00260017 |
| DIMENSION IADN11(3) 00270017 |
| LOGICAL LATN1A(2), LCTNT1, LCTNT2 00280017 |
| C 00290017 |
| C ********************************************************** 00300017 |
| C 00310017 |
| C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00320017 |
| C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD 00330017 |
| C PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE 00340017 |
| C FEDERAL COBOL COMPILER TESTING SERVICE. THE FORTRAN COMPILER 00350017 |
| C VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED00360017 |
| C DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT ROUTINE IS A FORTRAN 00370017 |
| C PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC 00380017 |
| C LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT 00390017 |
| C OF EXECUTING THESE TESTS. 00400017 |
| C 00410017 |
| C THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES 00420017 |
| C FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978. 00430017 |
| C 00440017 |
| C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO - 00450017 |
| C 00460017 |
| C NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00470017 |
| C SOFTWARE STANDARDS VALIDATION GROUP 00480017 |
| C BUILDING 225 RM A266 00490017 |
| C GAITHERSBURG, MD 20899 00500017 |
| C ********************************************************** 00510017 |
| C 00520017 |
| C 00530017 |
| C 00540017 |
| C INITIALIZATION SECTION 00550017 |
| C 00560017 |
| C INITIALIZE CONSTANTS 00570017 |
| C ************** 00580017 |
| C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00590017 |
| I01 = 5 00600017 |
| C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00610017 |
| I02 = 6 00620017 |
| C SYSTEM ENVIRONMENT SECTION 00630017 |
| C 00640017 |
| CX010 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-010 CONTROL CARD. 00650017 |
| C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00660017 |
| C (UNIT NUMBER FOR CARD READER). 00670017 |
| CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. 00680017 |
| C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00690017 |
| C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00700017 |
| C 00710017 |
| CX020 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-020 CONTROL CARD. 00720017 |
| C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00730017 |
| C (UNIT NUMBER FOR PRINTER). 00740017 |
| CX021 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. 00750017 |
| C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00760017 |
| C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00770017 |
| C 00780017 |
| IVPASS=0 00790017 |
| IVFAIL=0 00800017 |
| IVDELE=0 00810017 |
| ICZERO=0 00820017 |
| C 00830017 |
| C WRITE PAGE HEADERS 00840017 |
| WRITE (I02,90000) 00850017 |
| WRITE (I02,90001) 00860017 |
| WRITE (I02,90002) 00870017 |
| WRITE (I02, 90002) 00880017 |
| WRITE (I02,90003) 00890017 |
| WRITE (I02,90002) 00900017 |
| WRITE (I02,90004) 00910017 |
| WRITE (I02,90002) 00920017 |
| WRITE (I02,90011) 00930017 |
| WRITE (I02,90002) 00940017 |
| WRITE (I02,90002) 00950017 |
| WRITE (I02,90005) 00960017 |
| WRITE (I02,90006) 00970017 |
| WRITE (I02,90002) 00980017 |
| IVTNUM = 170 00990017 |
| C 01000017 |
| C **** TEST 170 **** 01010017 |
| C TEST 170 - RELATIONAL EXPRESSION. INTEGER VARIABLE REFERENCE. 01020017 |
| C FALSE PATH. .LT. 01030017 |
| C 01040017 |
| C 01050017 |
| IF (ICZERO) 31700, 1700, 31700 01060017 |
| 1700 CONTINUE 01070017 |
| IVON01 = 3 01080017 |
| IVON02 = 1 01090017 |
| IF ( 76 .LT. IVON01 ) IVON02 = 0 01100017 |
| GO TO 41700 01110017 |
| 31700 IVDELE = IVDELE + 1 01120017 |
| WRITE (I02,80003) IVTNUM 01130017 |
| IF (ICZERO) 41700, 1711, 41700 01140017 |
| 41700 IF ( IVON02 - 1 ) 21700, 11700, 21700 01150017 |
| 11700 IVPASS = IVPASS + 1 01160017 |
| WRITE (I02,80001) IVTNUM 01170017 |
| GO TO 1711 01180017 |
| 21700 IVFAIL = IVFAIL + 1 01190017 |
| IVCOMP = IVON02 01200017 |
| IVCORR = 1 01210017 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01220017 |
| 1711 CONTINUE 01230017 |
| IVTNUM = 171 01240017 |
| C 01250017 |
| C **** TEST 171 **** 01260017 |
| C TEST 171 - RELATIONAL EXPRESSION. INTEGER VARIABLE REFERENCE. 01270017 |
| C FALSE PATH. .LE. 01280017 |
| C 01290017 |
| C 01300017 |
| IF (ICZERO) 31710, 1710, 31710 01310017 |
| 1710 CONTINUE 01320017 |
| IVON01 = 3 01330017 |
| IVON02 = 1 01340017 |
| IF ( 76 .LE. IVON01 ) IVON02 = 0 01350017 |
| GO TO 41710 01360017 |
| 31710 IVDELE = IVDELE + 1 01370017 |
| WRITE (I02,80003) IVTNUM 01380017 |
| IF (ICZERO) 41710, 1721, 41710 01390017 |
| 41710 IF ( IVON02 - 1 ) 21710, 11710, 21710 01400017 |
| 11710 IVPASS = IVPASS + 1 01410017 |
| WRITE (I02,80001) IVTNUM 01420017 |
| GO TO 1721 01430017 |
| 21710 IVFAIL = IVFAIL + 1 01440017 |
| IVCOMP = IVON02 01450017 |
| IVCORR = 1 01460017 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01470017 |
| 1721 CONTINUE 01480017 |
| IVTNUM = 172 01490017 |
| C 01500017 |
| C **** TEST 172 **** 01510017 |
| C TEST 172 - RELATIONAL EXPRESSIONAL. INTEGER VARIABLE REFERENCE.01520017 |
| C FALSE PATH. .EQ. 01530017 |
| C 01540017 |
| C 01550017 |
| IF (ICZERO) 31720, 1720, 31720 01560017 |
| 1720 CONTINUE 01570017 |
| IVON01 = 587 01580017 |
| IVON02 = 1 01590017 |
| IF ( 9999 .EQ. IVON01 ) IVON02 = 0 01600017 |
| GO TO 41720 01610017 |
| 31720 IVDELE = IVDELE + 1 01620017 |
| WRITE (I02,80003) IVTNUM 01630017 |
| IF (ICZERO) 41720, 1731, 41720 01640017 |
| 41720 IF ( IVON02 - 1 ) 21720, 11720, 21720 01650017 |
| 11720 IVPASS = IVPASS + 1 01660017 |
| WRITE (I02,80001) IVTNUM 01670017 |
| GO TO 1731 01680017 |
| 21720 IVFAIL = IVFAIL + 1 01690017 |
| IVCOMP = IVON02 01700017 |
| IVCORR = 1 01710017 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01720017 |
| 1731 CONTINUE 01730017 |
| IVTNUM = 173 01740017 |
| C 01750017 |
| C **** TEST 173 **** 01760017 |
| C TEST 173 - RELATIONAL EXPRESSION. INTEGER VARIABLE REFERENCE. 01770017 |
| C FALSE PATH. .NE. 01780017 |
| C 01790017 |
| C 01800017 |
| IF (ICZERO) 31730, 1730, 31730 01810017 |
| 1730 CONTINUE 01820017 |
| IVON01 = 3 01830017 |
| IVON02 = 1 01840017 |
| IF ( 3 .NE. IVON01 ) IVON02 = 0 01850017 |
| GO TO 41730 01860017 |
| 31730 IVDELE = IVDELE + 1 01870017 |
| WRITE (I02,80003) IVTNUM 01880017 |
| IF (ICZERO) 41730, 1741, 41730 01890017 |
| 41730 IF ( IVON02 - 1 ) 21730, 11730, 21730 01900017 |
| 11730 IVPASS = IVPASS + 1 01910017 |
| WRITE (I02,80001) IVTNUM 01920017 |
| GO TO 1741 01930017 |
| 21730 IVFAIL = IVFAIL + 1 01940017 |
| IVCOMP = IVON02 01950017 |
| IVCORR = 1 01960017 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01970017 |
| 1741 CONTINUE 01980017 |
| IVTNUM = 174 01990017 |
| C 02000017 |
| C **** TEST 174 **** 02010017 |
| C TEST 174 - RELATIONAL EXPRESSION. INTEGER VARIABLE REFERENCE. 02020017 |
| C FALSE PATH. .GT. 02030017 |
| C 02040017 |
| C 02050017 |
| IF (ICZERO) 31740, 1740, 31740 02060017 |
| 1740 CONTINUE 02070017 |
| IVON01 = 32767 02080017 |
| IVON02 = 1 02090017 |
| IF ( 76 .GT. IVON01 ) IVON02 = 0 02100017 |
| GO TO 41740 02110017 |
| 31740 IVDELE = IVDELE + 1 02120017 |
| WRITE (I02,80003) IVTNUM 02130017 |
| IF (ICZERO) 41740, 1751, 41740 02140017 |
| 41740 IF ( IVON02 - 1 ) 21740, 11740, 21740 02150017 |
| 11740 IVPASS = IVPASS + 1 02160017 |
| WRITE (I02,80001) IVTNUM 02170017 |
| GO TO 1751 02180017 |
| 21740 IVFAIL = IVFAIL + 1 02190017 |
| IVCOMP = IVON02 02200017 |
| IVCORR = 1 02210017 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02220017 |
| 1751 CONTINUE 02230017 |
| IVTNUM = 175 02240017 |
| C 02250017 |
| C **** TEST 175 **** 02260017 |
| C TEST 175 - RELATIONAL EXPRESSION. INTEGER VARIABLE REFERENCE. 02270017 |
| C FALSE PATH. .GE. 02280017 |
| C 02290017 |
| C 02300017 |
| IF (ICZERO) 31750, 1750, 31750 02310017 |
| 1750 CONTINUE 02320017 |
| IVON01 = 32767 02330017 |
| IVON02 = 1 02340017 |
| IF ( 76 .GE. IVON01 ) IVON02 = 0 02350017 |
| GO TO 41750 02360017 |
| 31750 IVDELE = IVDELE + 1 02370017 |
| WRITE (I02,80003) IVTNUM 02380017 |
| IF (ICZERO) 41750, 1761, 41750 02390017 |
| 41750 IF ( IVON02 - 1 ) 21750, 11750, 21750 02400017 |
| 11750 IVPASS = IVPASS + 1 02410017 |
| WRITE (I02,80001) IVTNUM 02420017 |
| GO TO 1761 02430017 |
| 21750 IVFAIL = IVFAIL + 1 02440017 |
| IVCOMP = IVON02 02450017 |
| IVCORR = 1 02460017 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02470017 |
| 1761 CONTINUE 02480017 |
| IVTNUM = 176 02490017 |
| C 02500017 |
| C **** TEST 176 **** 02510017 |
| C TEST 176 - RELATIONAL EXPRESSION. (IVR) (RO) (IC) 02520017 |
| C INTEGER VARIABLE REFERENCE WITH INTEGER CONSTANT 02530017 |
| C TRUE PATH. .LT. 02540017 |
| C 02550017 |
| C 02560017 |
| IF (ICZERO) 31760, 1760, 31760 02570017 |
| 1760 CONTINUE 02580017 |
| IVON01 = 3 02590017 |
| IVON02 = 0 02600017 |
| IF ( IVON01 .LT. 76 ) IVON02 = 1 02610017 |
| GO TO 41760 02620017 |
| 31760 IVDELE = IVDELE + 1 02630017 |
| WRITE (I02,80003) IVTNUM 02640017 |
| IF (ICZERO) 41760, 1771, 41760 02650017 |
| 41760 IF ( IVON02 - 1 ) 21760, 11760, 21760 02660017 |
| 11760 IVPASS = IVPASS + 1 02670017 |
| WRITE (I02,80001) IVTNUM 02680017 |
| GO TO 1771 02690017 |
| 21760 IVFAIL = IVFAIL + 1 02700017 |
| IVCOMP = IVON02 02710017 |
| IVCORR = 1 02720017 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02730017 |
| 1771 CONTINUE 02740017 |
| IVTNUM = 177 02750017 |
| C 02760017 |
| C **** TEST 177 **** 02770017 |
| C TEST 177 - LIKE TEST 176. FALSE PATH. .EQ. 02780017 |
| C 02790017 |
| C 02800017 |
| IF (ICZERO) 31770, 1770, 31770 02810017 |
| 1770 CONTINUE 02820017 |
| IVON01 = 587 02830017 |
| IVON02 = 1 02840017 |
| IF ( IVON01 .EQ. 9999 ) IVON02=0 02850017 |
| GO TO 41770 02860017 |
| 31770 IVDELE = IVDELE + 1 02870017 |
| WRITE (I02,80003) IVTNUM 02880017 |
| IF (ICZERO) 41770, 1781, 41770 02890017 |
| 41770 IF ( IVON02 - 1 ) 21770, 11770, 21770 02900017 |
| 11770 IVPASS = IVPASS + 1 02910017 |
| WRITE (I02,80001) IVTNUM 02920017 |
| GO TO 1781 02930017 |
| 21770 IVFAIL = IVFAIL + 1 02940017 |
| IVCOMP = IVON02 02950017 |
| IVCORR = 1 02960017 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02970017 |
| 1781 CONTINUE 02980017 |
| IVTNUM = 178 02990017 |
| C 03000017 |
| C **** TEST 178 **** 03010017 |
| C TEST 178 - LIKE TEST 176. TRUE PATH. .GE. 03020017 |
| C 03030017 |
| C 03040017 |
| IF (ICZERO) 31780, 1780, 31780 03050017 |
| 1780 CONTINUE 03060017 |
| IVON01 = 32767 03070017 |
| IVON02 = 0 03080017 |
| IF ( IVON01 .GE. 32767 ) IVON02 = 1 03090017 |
| GO TO 41780 03100017 |
| 31780 IVDELE = IVDELE + 1 03110017 |
| WRITE (I02,80003) IVTNUM 03120017 |
| IF (ICZERO) 41780, 1791, 41780 03130017 |
| 41780 IF ( IVON02 - 1 ) 21780, 11780, 21780 03140017 |
| 11780 IVPASS = IVPASS + 1 03150017 |
| WRITE (I02,80001) IVTNUM 03160017 |
| GO TO 1791 03170017 |
| 21780 IVFAIL = IVFAIL + 1 03180017 |
| IVCOMP = IVON02 03190017 |
| IVCORR = 1 03200017 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03210017 |
| 1791 CONTINUE 03220017 |
| IVTNUM = 179 03230017 |
| C 03240017 |
| C **** TEST 179 **** 03250017 |
| C TEST 179 - RELATIONAL EXPRESSION. INTEGER ARRAY ELEMENT 03260017 |
| C REFERENCE. (IC) (RO) (IAER) FALSE PATH. .LT. 03270017 |
| C 03280017 |
| C 03290017 |
| IF (ICZERO) 31790, 1790, 31790 03300017 |
| 1790 CONTINUE 03310017 |
| IVON01 = 1 03320017 |
| IADN11(1) = 3 03330017 |
| IF ( 76 .LT. IADN11(1) ) IVON01 = 0 03340017 |
| GO TO 41790 03350017 |
| 31790 IVDELE = IVDELE + 1 03360017 |
| WRITE (I02,80003) IVTNUM 03370017 |
| IF (ICZERO) 41790, 1801, 41790 03380017 |
| 41790 IF ( IVON01 - 1 ) 21790, 11790, 21790 03390017 |
| 11790 IVPASS = IVPASS + 1 03400017 |
| WRITE (I02,80001) IVTNUM 03410017 |
| GO TO 1801 03420017 |
| 21790 IVFAIL = IVFAIL + 1 03430017 |
| IVCOMP = IVON01 03440017 |
| IVCORR = 1 03450017 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03460017 |
| 1801 CONTINUE 03470017 |
| IVTNUM = 180 03480017 |
| C 03490017 |
| C **** TEST 180 **** 03500017 |
| C TEST 180 - LIKE TEST 179. TRUE PATH. .LE. 03510017 |
| C 03520017 |
| C 03530017 |
| IF (ICZERO) 31800, 1800, 31800 03540017 |
| 1800 CONTINUE 03550017 |
| IVON01 = 0 03560017 |
| IADN11(2) = 587 03570017 |
| IF ( 587 .LE. IADN11(2) ) IVON01 = 1 03580017 |
| GO TO 41800 03590017 |
| 31800 IVDELE = IVDELE + 1 03600017 |
| WRITE (I02,80003) IVTNUM 03610017 |
| IF (ICZERO) 41800, 1811, 41800 03620017 |
| 41800 IF ( IVON01 - 1 ) 21800, 11800, 21800 03630017 |
| 11800 IVPASS = IVPASS + 1 03640017 |
| WRITE (I02,80001) IVTNUM 03650017 |
| GO TO 1811 03660017 |
| 21800 IVFAIL = IVFAIL + 1 03670017 |
| IVCOMP = IVON01 03680017 |
| IVCORR = 1 03690017 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03700017 |
| 1811 CONTINUE 03710017 |
| IVTNUM = 181 03720017 |
| C 03730017 |
| C **** TEST 181 **** 03740017 |
| C TEST 181 - LIKE TEST 179. FALSE PATH. .GE. 03750017 |
| C 03760017 |
| C 03770017 |
| IF (ICZERO) 31810, 1810, 31810 03780017 |
| 1810 CONTINUE 03790017 |
| IVON01 = 1 03800017 |
| IADN11(3) = 32767 03810017 |
| IF ( 76 .GE. IADN11(3) ) IVON01 = 0 03820017 |
| GO TO 41810 03830017 |
| 31810 IVDELE = IVDELE + 1 03840017 |
| WRITE (I02,80003) IVTNUM 03850017 |
| IF (ICZERO) 41810, 1821, 41810 03860017 |
| 41810 IF ( IVON01 - 1 ) 21810, 11810, 21810 03870017 |
| 11810 IVPASS = IVPASS + 1 03880017 |
| WRITE (I02,80001) IVTNUM 03890017 |
| GO TO 1821 03900017 |
| 21810 IVFAIL = IVFAIL + 1 03910017 |
| IVCOMP = IVON01 03920017 |
| IVCORR = 1 03930017 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03940017 |
| 1821 CONTINUE 03950017 |
| IVTNUM = 182 03960017 |
| C 03970017 |
| C **** TEST 182 **** 03980017 |
| C TEST 182 - RELATIONAL EXPRESSION (IAER) (RO) (IC). TRUE 03990017 |
| C PATH. .EQ. 04000017 |
| C 04010017 |
| C 04020017 |
| IF (ICZERO) 31820, 1820, 31820 04030017 |
| 1820 CONTINUE 04040017 |
| IVON01 = 0 04050017 |
| IADN11(2) = 32767 04060017 |
| IF ( IADN11(2) .EQ. 32767 ) IVON01 = 1 04070017 |
| GO TO 41820 04080017 |
| 31820 IVDELE = IVDELE + 1 04090017 |
| WRITE (I02,80003) IVTNUM 04100017 |
| IF (ICZERO) 41820, 1831, 41820 04110017 |
| 41820 IF ( IVON01 - 1 ) 21820, 11820, 21820 04120017 |
| 11820 IVPASS = IVPASS + 1 04130017 |
| WRITE (I02,80001) IVTNUM 04140017 |
| GO TO 1831 04150017 |
| 21820 IVFAIL = IVFAIL + 1 04160017 |
| IVCOMP = IVON01 04170017 |
| IVCORR = 1 04180017 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04190017 |
| 1831 CONTINUE 04200017 |
| IVTNUM = 183 04210017 |
| C 04220017 |
| C **** TEST 183 **** 04230017 |
| C TEST 183 - RELATIONAL EXPRESSION (IVR) (RO) (IAER) 04240017 |
| C FALSE PATH. .NE. 04250017 |
| C 04260017 |
| C 04270017 |
| IF (ICZERO) 31830, 1830, 31830 04280017 |
| 1830 CONTINUE 04290017 |
| IVON01 = 1 04300017 |
| IVON02 = 587 04310017 |
| IADN11(1) = 587 04320017 |
| IF ( IVON02 .NE. IADN11(1) ) IVON01 = 0 04330017 |
| GO TO 41830 04340017 |
| 31830 IVDELE = IVDELE + 1 04350017 |
| WRITE (I02,80003) IVTNUM 04360017 |
| IF (ICZERO) 41830, 1841, 41830 04370017 |
| 41830 IF ( IVON01 - 1 ) 21830, 11830, 21830 04380017 |
| 11830 IVPASS = IVPASS + 1 04390017 |
| WRITE (I02,80001) IVTNUM 04400017 |
| GO TO 1841 04410017 |
| 21830 IVFAIL = IVFAIL + 1 04420017 |
| IVCOMP = IVON01 04430017 |
| IVCORR = 1 04440017 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04450017 |
| 1841 CONTINUE 04460017 |
| IVTNUM = 184 04470017 |
| C 04480017 |
| C **** TEST 184 **** 04490017 |
| C TEST 184 - RELATIONAL EXPRESSION (IAER) (RO) (IVR) 04500017 |
| C TRUE PATH .NE. 04510017 |
| C 04520017 |
| C 04530017 |
| IF (ICZERO) 31840, 1840, 31840 04540017 |
| 1840 CONTINUE 04550017 |
| IVON01 = 0 04560017 |
| IADN11(3) = 3 04570017 |
| IVON02 = 32767 04580017 |
| IF ( IADN11(3) .NE. IVON02 ) IVON01 = 1 04590017 |
| GO TO 41840 04600017 |
| 31840 IVDELE = IVDELE + 1 04610017 |
| WRITE (I02,80003) IVTNUM 04620017 |
| IF (ICZERO) 41840, 1851, 41840 04630017 |
| 41840 IF ( IVON01 - 1 ) 21840, 11840, 21840 04640017 |
| 11840 IVPASS = IVPASS + 1 04650017 |
| WRITE (I02,80001) IVTNUM 04660017 |
| GO TO 1851 04670017 |
| 21840 IVFAIL = IVFAIL + 1 04680017 |
| IVCOMP = IVON01 04690017 |
| IVCORR = 1 04700017 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04710017 |
| 1851 CONTINUE 04720017 |
| IVTNUM = 185 04730017 |
| C 04740017 |
| C **** TEST 185 **** 04750017 |
| C TEST 185 - TEST OF PARENTHESES ( (LE) ) 04760017 |
| C TRUE PATH LOGICAL CONSTANT .TRUE. 04770017 |
| C 04780017 |
| C 04790017 |
| IF (ICZERO) 31850, 1850, 31850 04800017 |
| 1850 CONTINUE 04810017 |
| IVON01 = 0 04820017 |
| IF ( ( .TRUE. ) ) IVON01 = 1 04830017 |
| GO TO 41850 04840017 |
| 31850 IVDELE = IVDELE + 1 04850017 |
| WRITE (I02,80003) IVTNUM 04860017 |
| IF (ICZERO) 41850, 1861, 41850 04870017 |
| 41850 IF ( IVON01 - 1 ) 21850, 11850, 21850 04880017 |
| 11850 IVPASS = IVPASS + 1 04890017 |
| WRITE (I02,80001) IVTNUM 04900017 |
| GO TO 1861 04910017 |
| 21850 IVFAIL = IVFAIL + 1 04920017 |
| IVCOMP = IVON01 04930017 |
| IVCORR = 1 04940017 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04950017 |
| 1861 CONTINUE 04960017 |
| IVTNUM = 186 04970017 |
| C 04980017 |
| C **** TEST 186 **** 04990017 |
| C TEST 186 - LIKE TEST 185 05000017 |
| C FALSE PATH LOGICAL CONSTANT .FALSE. 05010017 |
| C 05020017 |
| C 05030017 |
| IF (ICZERO) 31860, 1860, 31860 05040017 |
| 1860 CONTINUE 05050017 |
| IVON01 = 1 05060017 |
| IF ((( .FALSE. ))) IVON01 = 0 05070017 |
| GO TO 41860 05080017 |
| 31860 IVDELE = IVDELE + 1 05090017 |
| WRITE (I02,80003) IVTNUM 05100017 |
| IF (ICZERO) 41860, 1871, 41860 05110017 |
| 41860 IF ( IVON01 - 1 ) 21860, 11860, 21860 05120017 |
| 11860 IVPASS = IVPASS + 1 05130017 |
| WRITE (I02,80001) IVTNUM 05140017 |
| GO TO 1871 05150017 |
| 21860 IVFAIL = IVFAIL + 1 05160017 |
| IVCOMP = IVON01 05170017 |
| IVCORR = 1 05180017 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05190017 |
| 1871 CONTINUE 05200017 |
| IVTNUM = 187 05210017 |
| C 05220017 |
| C **** TEST 187 **** 05230017 |
| C TEST 187 - PARENS AROUND LOGICAL VARIABLE REFERENCE ( (LVR) ) 05240017 |
| C TRUE PATH 05250017 |
| C 05260017 |
| C 05270017 |
| IF (ICZERO) 31870, 1870, 31870 05280017 |
| 1870 CONTINUE 05290017 |
| IVON01 = 0 05300017 |
| LCTNT1 = .TRUE. 05310017 |
| IF ( ( LCTNT1 ) ) IVON01 = 1 05320017 |
| GO TO 41870 05330017 |
| 31870 IVDELE = IVDELE + 1 05340017 |
| WRITE (I02,80003) IVTNUM 05350017 |
| IF (ICZERO) 41870, 1881, 41870 05360017 |
| 41870 IF ( IVON01 - 1 ) 21870, 11870, 21870 05370017 |
| 11870 IVPASS = IVPASS + 1 05380017 |
| WRITE (I02,80001) IVTNUM 05390017 |
| GO TO 1881 05400017 |
| 21870 IVFAIL = IVFAIL + 1 05410017 |
| IVCOMP = IVON01 05420017 |
| IVCORR = 1 05430017 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05440017 |
| 1881 CONTINUE 05450017 |
| IVTNUM = 188 05460017 |
| C 05470017 |
| C **** TEST 188 **** 05480017 |
| C TEST 188 - PARENS AROUND LOGICAL ARRAY REFERENCE ( ( LAER ) ) 05490017 |
| C FALSE PATH 05500017 |
| C 05510017 |
| IF (ICZERO) 31880, 1880, 31880 05520017 |
| 1880 CONTINUE 05530017 |
| IVON01 = 1 05540017 |
| LATN1A(1) = .FALSE. 05550017 |
| IF ( ( LATN1A(1) ) ) IVON01 = 0 05560017 |
| GO TO 41880 05570017 |
| 31880 IVDELE = IVDELE + 1 05580017 |
| WRITE (I02,80003) IVTNUM 05590017 |
| IF (ICZERO) 41880, 1891, 41880 05600017 |
| 41880 IF ( IVON01 - 1 ) 21880, 11880, 21880 05610017 |
| 11880 IVPASS = IVPASS + 1 05620017 |
| WRITE (I02,80001) IVTNUM 05630017 |
| GO TO 1891 05640017 |
| 21880 IVFAIL = IVFAIL + 1 05650017 |
| IVCOMP = IVON01 05660017 |
| IVCORR = 1 05670017 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05680017 |
| 1891 CONTINUE 05690017 |
| IVTNUM = 189 05700017 |
| C 05710017 |
| C **** TEST 189 **** 05720017 |
| C TEST 189 - USE OF .NOT. WITH A LOGICAL PRIMARY .NOT. (LP) 05730017 |
| C FALSE PATH .NOT. .TRUE. 05740017 |
| C 05750017 |
| C 05760017 |
| IF (ICZERO) 31890, 1890, 31890 05770017 |
| 1890 CONTINUE 05780017 |
| IVON01 = 1 05790017 |
| IF ( .NOT. .TRUE. ) IVON01 = 0 05800017 |
| GO TO 41890 05810017 |
| 31890 IVDELE = IVDELE + 1 05820017 |
| WRITE (I02,80003) IVTNUM 05830017 |
| IF (ICZERO) 41890, 1901, 41890 05840017 |
| 41890 IF ( IVON01 - 1 ) 21890, 11890, 21890 05850017 |
| 11890 IVPASS = IVPASS + 1 05860017 |
| WRITE (I02,80001) IVTNUM 05870017 |
| GO TO 1901 05880017 |
| 21890 IVFAIL = IVFAIL + 1 05890017 |
| IVCOMP = IVON01 05900017 |
| IVCORR = 1 05910017 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05920017 |
| 1901 CONTINUE 05930017 |
| IVTNUM = 190 05940017 |
| C 05950017 |
| C **** TEST 190 **** 05960017 |
| C TEST 190 - LIKE TEST 189 TRUE PATH .NOT. .FALSE. 05970017 |
| C 05980017 |
| C 05990017 |
| IF (ICZERO) 31900, 1900, 31900 06000017 |
| 1900 CONTINUE 06010017 |
| IVON01 = 0 06020017 |
| IF ( .NOT. .FALSE. ) IVON01 = 1 06030017 |
| GO TO 41900 06040017 |
| 31900 IVDELE = IVDELE + 1 06050017 |
| WRITE (I02,80003) IVTNUM 06060017 |
| IF (ICZERO) 41900, 1911, 41900 06070017 |
| 41900 IF ( IVON01 - 1 ) 21900, 11900, 21900 06080017 |
| 11900 IVPASS = IVPASS + 1 06090017 |
| WRITE (I02,80001) IVTNUM 06100017 |
| GO TO 1911 06110017 |
| 21900 IVFAIL = IVFAIL + 1 06120017 |
| IVCOMP = IVON01 06130017 |
| IVCORR = 1 06140017 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06150017 |
| 1911 CONTINUE 06160017 |
| IVTNUM = 191 06170017 |
| C 06180017 |
| C **** TEST 191 **** 06190017 |
| C TEST 191 - TESTS .NOT. WITH A LOGICAL VARIABLE SET TO .FALSE. 06200017 |
| C IN A LOGICAL ASSIGNMENT STATEMENT TRUE PATH 06210017 |
| C 06220017 |
| C 06230017 |
| IF (ICZERO) 31910, 1910, 31910 06240017 |
| 1910 CONTINUE 06250017 |
| IVON01 = 0 06260017 |
| LCTNT1 = .FALSE. 06270017 |
| IF ( .NOT. LCTNT1 ) IVON01 = 1 06280017 |
| GO TO 41910 06290017 |
| 31910 IVDELE = IVDELE + 1 06300017 |
| WRITE (I02,80003) IVTNUM 06310017 |
| IF (ICZERO) 41910, 1921, 41910 06320017 |
| 41910 IF ( IVON01 - 1 ) 21910, 11910, 21910 06330017 |
| 11910 IVPASS = IVPASS + 1 06340017 |
| WRITE (I02,80001) IVTNUM 06350017 |
| GO TO 1921 06360017 |
| 21910 IVFAIL = IVFAIL + 1 06370017 |
| IVCOMP = IVON01 06380017 |
| IVCORR = 1 06390017 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06400017 |
| 1921 CONTINUE 06410017 |
| IVTNUM = 192 06420017 |
| C 06430017 |
| C **** TEST 192 **** 06440017 |
| C TEST 192 - LIKE TEST 191 ONLY USES A LOGICAL ARRAY ELEMENT 06450017 |
| C SET TO .FALSE. IN A LOGICAL ASSIGNMENT STATEMENT TRUE 06460017 |
| C 06470017 |
| C 06480017 |
| IF (ICZERO) 31920, 1920, 31920 06490017 |
| 1920 CONTINUE 06500017 |
| IVON01 = 0 06510017 |
| LATN1A(2) = .FALSE. 06520017 |
| IF ( .NOT. LATN1A(2) ) IVON01 = 1 06530017 |
| GO TO 41920 06540017 |
| 31920 IVDELE = IVDELE + 1 06550017 |
| WRITE (I02,80003) IVTNUM 06560017 |
| IF (ICZERO) 41920, 1931, 41920 06570017 |
| 41920 IF ( IVON01 - 1 ) 21920, 11920, 21920 06580017 |
| 11920 IVPASS = IVPASS + 1 06590017 |
| WRITE (I02,80001) IVTNUM 06600017 |
| GO TO 1931 06610017 |
| 21920 IVFAIL = IVFAIL + 1 06620017 |
| IVCOMP = IVON01 06630017 |
| IVCORR = 1 06640017 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06650017 |
| 1931 CONTINUE 06660017 |
| IVTNUM = 193 06670017 |
| C 06680017 |
| C **** TEST 193 **** 06690017 |
| C TEST 193 - USE OF LOGICAL .AND. (LT) .AND. (LF) 06700017 |
| C USES TWO LOGICAL VARIABLES EACH SET TO .FALSE. 06710017 |
| C FALSE .AND. FALSE FALSE PATH 06720017 |
| C 06730017 |
| C 06740017 |
| IF (ICZERO) 31930, 1930, 31930 06750017 |
| 1930 CONTINUE 06760017 |
| IVON01 = 1 06770017 |
| LCTNT1 = .FALSE. 06780017 |
| LCTNT2 = .FALSE. 06790017 |
| IF ( LCTNT1 .AND. LCTNT2 ) IVON01 = 0 06800017 |
| GO TO 41930 06810017 |
| 31930 IVDELE = IVDELE + 1 06820017 |
| WRITE (I02,80003) IVTNUM 06830017 |
| IF (ICZERO) 41930, 1941, 41930 06840017 |
| 41930 IF ( IVON01 - 1 ) 21930, 11930, 21930 06850017 |
| 11930 IVPASS = IVPASS + 1 06860017 |
| WRITE (I02,80001) IVTNUM 06870017 |
| GO TO 1941 06880017 |
| 21930 IVFAIL = IVFAIL + 1 06890017 |
| IVCOMP = IVON01 06900017 |
| IVCORR = 1 06910017 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06920017 |
| 1941 CONTINUE 06930017 |
| IVTNUM = 194 06940017 |
| C 06950017 |
| C **** TEST 194 **** 06960017 |
| C TEST 194 - LIKE TEST 193 FALSE .AND. TRUE FALSE PATH 06970017 |
| C 06980017 |
| C 06990017 |
| IF (ICZERO) 31940, 1940, 31940 07000017 |
| 1940 CONTINUE 07010017 |
| IVON01 = 1 07020017 |
| LCTNT1 = .FALSE. 07030017 |
| LCTNT2 = .TRUE. 07040017 |
| IF ( LCTNT1 .AND. LCTNT2 ) IVON01 = 0 07050017 |
| GO TO 41940 07060017 |
| 31940 IVDELE = IVDELE + 1 07070017 |
| WRITE (I02,80003) IVTNUM 07080017 |
| IF (ICZERO) 41940, 1951, 41940 07090017 |
| 41940 IF ( IVON01 - 1 ) 21940, 11940, 21940 07100017 |
| 11940 IVPASS = IVPASS + 1 07110017 |
| WRITE (I02,80001) IVTNUM 07120017 |
| GO TO 1951 07130017 |
| 21940 IVFAIL = IVFAIL + 1 07140017 |
| IVCOMP = IVON01 07150017 |
| IVCORR = 1 07160017 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07170017 |
| 1951 CONTINUE 07180017 |
| IVTNUM = 195 07190017 |
| C 07200017 |
| C **** TEST 195 **** 07210017 |
| C TEST 195 - LIKE TEST 193 TRUE .AND. FALSE FALSE PATH 07220017 |
| C 07230017 |
| C 07240017 |
| IF (ICZERO) 31950, 1950, 31950 07250017 |
| 1950 CONTINUE 07260017 |
| IVON01 = 1 07270017 |
| LCTNT1 = .TRUE. 07280017 |
| LCTNT2 = .FALSE. 07290017 |
| IF ( LCTNT1 .AND. LCTNT2 ) IVON01 = 0 07300017 |
| GO TO 41950 07310017 |
| 31950 IVDELE = IVDELE + 1 07320017 |
| WRITE (I02,80003) IVTNUM 07330017 |
| IF (ICZERO) 41950, 1961, 41950 07340017 |
| 41950 IF ( IVON01 - 1 ) 21950, 11950, 21950 07350017 |
| 11950 IVPASS = IVPASS + 1 07360017 |
| WRITE (I02,80001) IVTNUM 07370017 |
| GO TO 1961 07380017 |
| 21950 IVFAIL = IVFAIL + 1 07390017 |
| IVCOMP = IVON01 07400017 |
| IVCORR = 1 07410017 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07420017 |
| 1961 CONTINUE 07430017 |
| IVTNUM = 196 07440017 |
| C 07450017 |
| C **** TEST 196 **** 07460017 |
| C TEST 196 - LIKE TEST 193 TRUE .AND. TRUE TRUE PATH 07470017 |
| C 07480017 |
| C 07490017 |
| IF (ICZERO) 31960, 1960, 31960 07500017 |
| 1960 CONTINUE 07510017 |
| IVON01 = 0 07520017 |
| LCTNT1 = .TRUE. 07530017 |
| LCTNT2 = .TRUE. 07540017 |
| IF ( LCTNT1 .AND. LCTNT2 ) IVON01 = 1 07550017 |
| GO TO 41960 07560017 |
| 31960 IVDELE = IVDELE + 1 07570017 |
| WRITE (I02,80003) IVTNUM 07580017 |
| IF (ICZERO) 41960, 1971, 41960 07590017 |
| 41960 IF ( IVON01 - 1 ) 21960, 11960, 21960 07600017 |
| 11960 IVPASS = IVPASS + 1 07610017 |
| WRITE (I02,80001) IVTNUM 07620017 |
| GO TO 1971 07630017 |
| 21960 IVFAIL = IVFAIL + 1 07640017 |
| IVCOMP = IVON01 07650017 |
| IVCORR = 1 07660017 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07670017 |
| 1971 CONTINUE 07680017 |
| IVTNUM = 197 07690017 |
| C 07700017 |
| C **** TEST 197 **** 07710017 |
| C TEST 197 - TEST OF THE INCLUSIVE .OR. . (LE) .OR. (LT) 07720017 |
| C USES LOGICAL VARIABLES SET IN LOGICAL ASSIGNMENT STATEMENTS 07730017 |
| C FALSE .OR. FALSE FALSE PATH 07740017 |
| C 07750017 |
| C 07760017 |
| IF (ICZERO) 31970, 1970, 31970 07770017 |
| 1970 CONTINUE 07780017 |
| IVON01 = 1 07790017 |
| LCTNT1 = .FALSE. 07800017 |
| LCTNT2 = .FALSE. 07810017 |
| IF ( LCTNT1 .OR. LCTNT2 ) IVON01 = 0 07820017 |
| GO TO 41970 07830017 |
| 31970 IVDELE = IVDELE + 1 07840017 |
| WRITE (I02,80003) IVTNUM 07850017 |
| IF (ICZERO) 41970, 1981, 41970 07860017 |
| 41970 IF ( IVON01 - 1 ) 21970, 11970, 21970 07870017 |
| 11970 IVPASS = IVPASS + 1 07880017 |
| WRITE (I02,80001) IVTNUM 07890017 |
| GO TO 1981 07900017 |
| 21970 IVFAIL = IVFAIL + 1 07910017 |
| IVCOMP = IVON01 07920017 |
| IVCORR = 1 07930017 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07940017 |
| 1981 CONTINUE 07950017 |
| IVTNUM = 198 07960017 |
| C 07970017 |
| C **** TEST 198 **** 07980017 |
| C TEST 198 - LIKE TEST 197 FALSE .OR. TRUE TRUE PATH 07990017 |
| C 08000017 |
| C 08010017 |
| IF (ICZERO) 31980, 1980, 31980 08020017 |
| 1980 CONTINUE 08030017 |
| IVON01 = 0 08040017 |
| LCTNT1 = .FALSE. 08050017 |
| LCTNT2 = .TRUE. 08060017 |
| IF ( LCTNT1 .OR. LCTNT2 ) IVON01 = 1 08070017 |
| GO TO 41980 08080017 |
| 31980 IVDELE = IVDELE + 1 08090017 |
| WRITE (I02,80003) IVTNUM 08100017 |
| IF (ICZERO) 41980, 1991, 41980 08110017 |
| 41980 IF ( IVON01 - 1 ) 21980, 11980, 21980 08120017 |
| 11980 IVPASS = IVPASS + 1 08130017 |
| WRITE (I02,80001) IVTNUM 08140017 |
| GO TO 1991 08150017 |
| 21980 IVFAIL = IVFAIL + 1 08160017 |
| IVCOMP = IVON01 08170017 |
| IVCORR = 1 08180017 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 08190017 |
| 1991 CONTINUE 08200017 |
| IVTNUM = 199 08210017 |
| C 08220017 |
| C **** TEST 199 **** 08230017 |
| C TEST 199 - LIKE TEST 197. TRUE .OR. FALSE TRUE PATH. 08240017 |
| C 08250017 |
| C 08260017 |
| IF (ICZERO) 31990, 1990, 31990 08270017 |
| 1990 CONTINUE 08280017 |
| IVON01 = 0 08290017 |
| LCTNT1 = .TRUE. 08300017 |
| LCTNT2 = .FALSE. 08310017 |
| IF ( LCTNT1 .OR. LCTNT2 ) IVON01 = 1 08320017 |
| GO TO 41990 08330017 |
| 31990 IVDELE = IVDELE + 1 08340017 |
| WRITE (I02,80003) IVTNUM 08350017 |
| IF (ICZERO) 41990, 5001, 41990 08360017 |
| 41990 IF ( IVON01 - 1 ) 21990, 11990, 21990 08370017 |
| 11990 IVPASS = IVPASS + 1 08380017 |
| WRITE (I02,80001) IVTNUM 08390017 |
| GO TO 5001 08400017 |
| 21990 IVFAIL = IVFAIL + 1 08410017 |
| IVCOMP = IVON01 08420017 |
| IVCORR = 1 08430017 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 08440017 |
| 5001 CONTINUE 08450017 |
| C 08460017 |
| C WRITE PAGE FOOTINGS AND RUN SUMMARIES 08470017 |
| 99999 CONTINUE 08480017 |
| WRITE (I02,90002) 08490017 |
| WRITE (I02,90006) 08500017 |
| WRITE (I02,90002) 08510017 |
| WRITE (I02,90002) 08520017 |
| WRITE (I02,90007) 08530017 |
| WRITE (I02,90002) 08540017 |
| WRITE (I02,90008) IVFAIL 08550017 |
| WRITE (I02,90009) IVPASS 08560017 |
| WRITE (I02,90010) IVDELE 08570017 |
| C 08580017 |
| C 08590017 |
| C TERMINATE ROUTINE EXECUTION 08600017 |
| STOP 08610017 |
| C 08620017 |
| C FORMAT STATEMENTS FOR PAGE HEADERS 08630017 |
| 90000 FORMAT ("1") 08640017 |
| 90002 FORMAT (" ") 08650017 |
| 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 08660017 |
| 90003 FORMAT (" ",21X,"VERSION 2.1" ) 08670017 |
| 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 08680017 |
| 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 08690017 |
| 90006 FORMAT (" ",5X,"----------------------------------------------" ) 08700017 |
| 90011 FORMAT (" ",18X,"SUBSET LEVEL TEST" ) 08710017 |
| C 08720017 |
| C FORMAT STATEMENTS FOR RUN SUMMARIES 08730017 |
| 90008 FORMAT (" ",15X,I5," ERRORS ENCOUNTERED" ) 08740017 |
| 90009 FORMAT (" ",15X,I5," TESTS PASSED" ) 08750017 |
| 90010 FORMAT (" ",15X,I5," TESTS DELETED" ) 08760017 |
| C 08770017 |
| C FORMAT STATEMENTS FOR TEST RESULTS 08780017 |
| 80001 FORMAT (" ",4X,I5,7X,"PASS") 08790017 |
| 80002 FORMAT (" ",4X,I5,7X,"FAIL") 08800017 |
| 80003 FORMAT (" ",4X,I5,7X,"DELETED") 08810017 |
| 80004 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 08820017 |
| 80005 FORMAT (" ",4X,I5,7X,"FAIL",4X,E12.5,3X,E12.5) 08830017 |
| C 08840017 |
| 90007 FORMAT (" ",20X,"END OF PROGRAM FM017" ) 08850017 |
| END 08860017 |