PROGRAM FM254
C
C
C
C THIS ROUTINE IS A TEST OF THE ELSE IF-BLOCK. TESTS WITHIN THIS
C ROUTINE ARE FOR THE SYNTAX OF THE BASIC ELSE IF STATEMENT AND
C ELSE IF-BLOCK STRUCTURE.
C
C REFERENCES
C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN,
C X3.9-1977
C SECTION 11.7, ELSE IF STATEMENT
C SECTION 11.7.1, ELSE IF-BLOCK
C SECTION 11.7.2, EXECUTION OF THE ELSE IF STATEMENT
C
C
C
C
C ******************************************************************
C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE
C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN STANDARD FORTRAN
C X3.9-1978, HAS BEEN DEVELOPED BY THE DEPARTMENT OF THE NAVY. THE
C FORTRAN COMPILER VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT
C ROUTINES, THEIR RELATED DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT
C ROUTINE IS A FORTRAN PROGRAM OR SUBPROGRAM WHICH INCLUDES TESTS
C OF SPECIFIC LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING
C THE RESULT OF EXECUTING THESE TESTS.
C
C THIS PARTICULAR PROGRAM OR SUBPROGRAM CONTAINS ONLY FEATURES
C FOUND IN THE SUBSET LEVEL OF THE STANDARD.
C
C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO
C DEPARTMENT OF THE NAVY
C FEDERAL COBOL COMPILER TESTING SERVICE
C WASHINGTON, D.C. 20376
C
C ******************************************************************
C
C
IMPLICIT LOGICAL (L)
IMPLICIT CHARACTER*14 (C)
C
DIMENSION LADN11(2)
LOGICAL LVTN01, LVTN02, LATN11(2), LADN11
DATA LADN11/.TRUE., .FALSE./
C
C
C **** LOGICAL STATEMENT FUNCTION REFERENCED IN TEST 4 ****
C
LFIS01 ( L ) = L .AND. L
C
C
C
C
C
C INITIALIZATION SECTION.
C
C INITIALIZE CONSTANTS
C ********************
C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER
I01 = 5
C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER
I02 = 6
C SYSTEM ENVIRONMENT SECTION
C
CX010 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-010 CONTROL CARD.
C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5
C (UNIT NUMBER FOR CARD READER).
CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD
C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL
C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE.
C
CX020 THIS CARD IS PEPLACED BY CONTENTS OF FEXEC X-020 CONTROL CARD.
C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6
C (UNIT NUMBER FOR PRINTER).
CX021 THIS CARD IS PEPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD.
C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL
C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE.
C
IVPASS = 0
IVFAIL = 0
IVDELE = 0
ICZERO = 0
C
C WRITE OUT PAGE HEADERS
C
WRITE (I02,90002)
WRITE (I02,90006)
WRITE (I02,90008)
WRITE (I02,90004)
WRITE (I02,90010)
WRITE (I02,90004)
WRITE (I02,90016)
WRITE (I02,90001)
WRITE (I02,90004)
WRITE (I02,90012)
WRITE (I02,90014)
WRITE (I02,90004)
C
C
C
C THE SYNTAX OF THE ELSE IF STATEMENTS IN THE TESTS TO FOLLOW IS
C
C IF ( E1 ) THEN
C IF-BLOCK
C ELSE IF ( E2 ) THEN
C ELSE IF-BLOCK
C END IF
C
C THE NEXT FOUR TESTS WILL USE THE FOLLOWING COMBINATIONS OF TRUE
C AND FALSE FOR E1 AND E2 AS SHOWN BELOW -
C TEST NUMBER 1 2 3 4
C E1 F F T T
C E2 T F T F
C
C
C
C
C **** FCVS PROGRAM 254 - TEST 001 ****
C
C TEST 001 USES A VERY SIMPLE ELSE IF STATEMENT. THE EXPRESSION
C WITHIN THE PARENTHESES IS THE LOGICAL CONSTANT .TRUE. AND THE
C EXECUTABLE STATEMENT WITHIN THE ELSE IF-BLOCK OF LEVEL ONE IS AN
C INTEGER ARITHMETIC ASSIGNMENT STATEMENT. IN THIS TEST THE LOGICAL
C EXPRESSION E1 IS .FALSE. SO THE IF-BLOCK SHOULD NOT BE EXECUTED.
C THE LOGICAL EXPRESSION E2 IS .TRUE. SO THE ELSE IF-BLOCK SHOULD
C BE EXECUTED.
C
C
IVTNUM = 1
IF (ICZERO) 30010, 0010, 30010
0010 CONTINUE
IVCOMP = 1
IF ( .FALSE. ) THEN
IVCOMP = IVCOMP * 2
ELSE IF ( .TRUE. ) THEN
IVCOMP = IVCOMP * 3
END IF
C
C **** IVCOMP IS DETERMINED BY IVCOMP = 3 = 1 * 3
C
IVCORR = 3
40010 IF ( IVCOMP - 3 ) 20010, 10010, 20010
30010 IVDELE = IVDELE + 1
WRITE (I02,80000) IVTNUM
IF (ICZERO) 10010, 0021, 20010
10010 IVPASS = IVPASS + 1
WRITE (I02,80002) IVTNUM
GO TO 0021
20010 IVFAIL = IVFAIL + 1
WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR
0021 CONTINUE
C
C **** FCVS PROGRAM 254 - TEST 002 ****
C
C TEST 002 HAS E1 .FALSE. AND E2 .FALSE.. NEITHER THE IF-BLOCK
C NOR THE ELSE IF-BLOCK SHOULD BE EXECUTED.
C
C
IVTNUM = 2
IF (ICZERO) 30020, 0020, 30020
0020 CONTINUE
IVCOMP = 1
LVON01 = .FALSE.
LVON02 = .FALSE.
IF ( LVON01 ) THEN
IVCOMP = IVCOMP * 2
ELSE IF ( LVON02 ) THEN
IVCOMP = IVCOMP * 3
END IF
IVCORR = 1
40020 IF ( IVCOMP - 1 ) 20020, 10020, 20020
30020 IVDELE = IVDELE + 1
WRITE (I02,80000) IVTNUM
IF (ICZERO) 10020, 0031, 20020
10020 IVPASS = IVPASS + 1
WRITE (I02,80002) IVTNUM
GO TO 0031
20020 IVFAIL = IVFAIL + 1
WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR
0031 CONTINUE
C
C **** FCVS PROGRAM 254 - TEST 003 ****
C
C TEST 003 HAS E1 AS .TRUE. AND E2 AS .TRUE.. ONLY THE IF-BLOCK
C SHOULD BE EXECUTED. THE ELSE IF-BLOCK SHOULD NOT BE EXECUTED.
C
C
IVTNUM = 3
IF (ICZERO) 30030, 0030, 30030
0030 CONTINUE
IVCOMP = 1
LVON01 = .TRUE.
LVON02 = .TRUE.
LVTN01 = LVON01
LVTN02 = LVON02
IF ( LVTN01 ) THEN
IVCOMP = IVCOMP * 2
ELSE IF ( LVTN02 ) THEN
IVCOMP = IVCOMP * 3
END IF
C
C **** IVCOMP IS DETERMINED BY IVCOMP = 2 = 1 * 2 ****
C
IVCORR = 2
40030 IF ( IVCOMP - 2 ) 20030, 10030, 20030
30030 IVDELE = IVDELE + 1
WRITE (I02,80000) IVTNUM
IF (ICZERO) 10030, 0041, 20030
10030 IVPASS = IVPASS + 1
WRITE (I02,80002) IVTNUM
GO TO 0041
20030 IVFAIL = IVFAIL + 1
WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR
0041 CONTINUE
C
C **** FCVS PROGRAM 254 - TEST 004 ****
C
C TEST 004 HAS E1 AS .TRUE. AND E2 AS .FALSE.. ONLY THE IF-BLOCK
C SHOULD BE EXECUTED. THE ELSE IF-BLOCK SHOULD NOT BE EXECUTED.
C
C
IVTNUM = 4
IF (ICZERO) 30040, 0040, 30040
0040 CONTINUE
IVCOMP = 1
LVON01 = .TRUE.
LVTN01 = LFIS01 ( LVON01 )
LVON02 = .FALSE.
IF ( LVTN01 ) THEN
IVCOMP = IVCOMP * 2
ELSE IF ( LFIS01 ( LVON02 ) ) THEN
IVCOMP = IVCOMP * 3
END IF
C
C **** IVCOMP IS DETERMINED BY IVCOMP = 2 = 1 * 2 ****
C
IVCORR = 2
40040 IF ( IVCOMP - 2 ) 20040, 10040, 20040
30040 IVDELE = IVDELE + 1
WRITE (I02,80000) IVTNUM
IF (ICZERO) 10040, 0051, 20040
10040 IVPASS = IVPASS + 1
WRITE (I02,80002) IVTNUM
GO TO 0051
20040 IVFAIL = IVFAIL + 1
WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR
0051 CONTINUE
C
C
C THE SYNTAX OF THE ELSE IF STATEMENTS IN THE TESTS TO FOLLOW IS
C
C IF ( E1 ) THEN
C IF-BLOCK 1
C ELSE IF ( E2 ) THEN
C ELSE IF-BLOCK 1
C ELSE IF ( E3 ) THEN
C ELSE IF-BLOCK 2
C END IF
C
C
C
C **** FCVS PROGRAM 254 - TEST 005 ****
C
C TEST 005 HAS E1 AS TRUE. E2 AND E3 ARE FALSE. ONLY IF-BLOCK 1
C SHOULD BE EXECUTED. ELSE IF-BLOCKS 1 AND 2 SHOULD NOT EXECUTE.
C
C
IVTNUM = 5
IF (ICZERO) 30050, 0050, 30050
0050 CONTINUE
IVCOMP = 1
C LADN11(1) IS SET TO .TRUE. IN A DATA STATEMENT.
LVON02 = .FALSE.
LVON03 = .FALSE.
IF ( LADN11(1) ) THEN
IVCOMP = IVCOMP * 2
ELSE IF ( LVON02 ) THEN
IVCOMP = IVCOMP * 3
ELSE IF ( LVON03 ) THEN
IVCOMP = IVCOMP * 5
END IF
C
C **** IVCOMP IS DETERMINED BY IVCOMP = 2 = 1 * 2 ****
C
IVCORR = 2
40050 IF ( IVCOMP - 2 ) 20050, 10050, 20050
30050 IVDELE = IVDELE + 1
WRITE (I02,80000) IVTNUM
IF (ICZERO) 10050, 0061, 20050
10050 IVPASS = IVPASS + 1
WRITE (I02,80002) IVTNUM
GO TO 0061
20050 IVFAIL = IVFAIL + 1
WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR
0061 CONTINUE
C
C **** FCVS PROGRAM 254 - TEST 006 ****
C
C TEST 006 HAS E1 AS FALSE, E2 AS TRUE, AND E3 AS FALSE. ONLY
C ELSE IF-BLOCK 1 SHOULD EXECUTE. IF-BLOCK 1 AND ELSE IF-BLOCK 2
C SHOULD NOT EXECUTE.
C
C
IVTNUM = 6
IF (ICZERO) 30060, 0060, 30060
0060 CONTINUE
IVCOMP = 1
LVON01 = .FALSE.
LATN11(2) = .TRUE.
LVON03 = .FALSE.
IF ( LVON01 ) THEN
IVCOMP = IVCOMP * 2
ELSE IF ( LATN11(2) ) THEN
IVCOMP = IVCOMP * 3
ELSE IF ( LVON03 ) THEN
IVCOMP = IVCOMP * 5
END IF
C
C **** IVCOMP IS DETERMINED BY IVCOMP = 3 = 1 * 3 ****
C
IVCORR = 3
40060 IF ( IVCOMP - 3 ) 20060, 10060, 20060
30060 IVDELE = IVDELE + 1
WRITE (I02,80000) IVTNUM
IF (ICZERO) 10060, 0071, 20060
10060 IVPASS = IVPASS + 1
WRITE (I02,80002) IVTNUM
GO TO 0071
20060 IVFAIL = IVFAIL + 1
WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR
0071 CONTINUE
C
C **** FCVS PROGRAM 254 - TEST 007 ****
C
C TEST 007 HAS E1 AS FALSE, E2 AS FALSE, AND E3 AS TRUE. ONLY
C ELSE IF-BLOCK 2 SHOULD BE EXECUTED. IF-BLOCK 1 AND ELSE IF-BLOCK
C 1 SHOULD NOT EXECUTE.
C
C
IVTNUM = 7
IF (ICZERO) 30070, 0070, 30070
0070 CONTINUE
IVCOMP = 1
LVON01 = .FALSE.
LVON02 = .FALSE.
LVON03 = .TRUE.
IF ( LVON01 ) THEN
IVCOMP = IVCOMP * 2
ELSE IF ( LVON02 ) THEN
IVCOMP = IVCOMP * 3
ELSE IF ( LVON03 ) THEN
IVCOMP = IVCOMP * 5
END IF
C
C **** IVCOMP IS DETERMINED BY IVCOMP = 5 = 1 * 5 ****
C
IVCORR = 5
40070 IF ( IVCOMP - 5 ) 20070, 10070, 20070
30070 IVDELE = IVDELE + 1
WRITE (I02,80000) IVTNUM
IF (ICZERO) 10070, 0081, 20070
10070 IVPASS = IVPASS + 1
WRITE (I02,80002) IVTNUM
GO TO 0081
20070 IVFAIL = IVFAIL + 1
WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR
0081 CONTINUE
C
C **** FCVS PROGRAM 254 - TEST 008 ****
C
C TEST 008 HAS E1 AS FALSE. BOTH E2 AND E3 ARE TRUE. ONLY ELSE
C IF-BLOCK 1 SHOULD EXECUTE. IF-BLOCK 1 AND ELSE IF-BLOCK 2 SHOULD
C NOT EXECUTE. THIS IS A TEST OF THE LOGIC FLOW WHEN ONE OF THE
C EXPRESSIONS IN A STRING OF ELSE IF BLOCK STRUCTURES IS TRUE. ONLY
C THAT PARTICULAR ELSE IF-BLOCK SHOULD BE EXECUTED. THE REST OF THE
C STRING SHOULD BE SKIPPED.
C
C
IVTNUM = 8
IF (ICZERO) 30080, 0080, 30080
0080 CONTINUE
IVCOMP = 1
LVON01 = .FALSE.
LVON02 = .TRUE.
LVON03 = .TRUE.
IF ( LVON01 ) THEN
IVCOMP = IVCOMP * 2
ELSE IF ( LVON02 ) THEN
IVCOMP = IVCOMP * 3
ELSE IF ( LVON03 ) THEN
IVCOMP = IVCOMP * 5
END IF
C
C **** IVCOMP IS DETERMINED BY IVCOMP = 3 = 1 * 3 ****
C
IVCORR = 3
40080 IF ( IVCOMP - 3 ) 20080, 10080, 20080
30080 IVDELE = IVDELE + 1
WRITE (I02,80000) IVTNUM
IF (ICZERO) 10080, 0091, 20080
10080 IVPASS = IVPASS + 1
WRITE (I02,80002) IVTNUM
GO TO 0091
20080 IVFAIL = IVFAIL + 1
WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR
0091 CONTINUE
C
C
C THE FOLLOWING TWO TESTS ARE TO CHECK THE EXECUTION OF AN ELSE
C IF STATEMENT WITH AN EMPTY ELSE IF-BLOCK. THE SYNTAX FOR THE TWO
C TESTS IS AS FOLLOWS -
C
C IF ( E1 ) THEN
C IF-BLOCK 1
C ELSE IF ( E2 ) THEN
C ELSE IF ( E3 ) THEN
C ELSE IF-BLOCK 1
C END IF
C
C
C
C **** FCVS PROGRAM 254 - TEST 009 ****
C
C TEST 009 HAS E1 FALSE, E2 TRUE, AND E3 AS TRUE. THE STRUCTURE
C ELSE IF ( E2 ) THEN
C IS FOLLOWED BY AN EMPTY ELSE IF-BLOCK ALLOWED IN SECTION 11.7.1.
C IN SECTION 11.7.2, IF THE VALUE OF THE EXPRESSION IS TRUE AND THE
C ELSE IF-BLOCK IS EMPTY, CONTROL IS TRANSFERRED TO THE NEXT END IF
C STATEMENT THAT HAS THE SAME IF-LEVEL AS THE ELSE IF STATEMENT.
C NEITHER IF-BLOCK 1 NOR ELSE IF-BLOCK 1 SHOULD BE EXECUTED.
C
C
IVTNUM = 9
IF (ICZERO) 30090, 0090, 30090
0090 CONTINUE
IVCOMP = 1
LVON01 = .FALSE.
LVON02 = .TRUE.
LVON03 = .TRUE.
IF ( LVON01 ) THEN
IVCOMP = IVCOMP * 2
ELSE IF ( LVON02 ) THEN
ELSE IF ( LVON03 ) THEN
IVCOMP = IVCOMP * 3
END IF
IVCORR = 1
40090 IF ( IVCOMP - 1 ) 20090, 10090, 20090
30090 IVDELE = IVDELE + 1
WRITE (I02,80000) IVTNUM
IF (ICZERO) 10090, 0101, 20090
10090 IVPASS = IVPASS + 1
WRITE (I02,80002) IVTNUM
GO TO 0101
20090 IVFAIL = IVFAIL + 1
WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR
0101 CONTINUE
C
C **** FCVS PROGRAM 254 - TEST 010 ****
C
C TEST 010 ALSO HAS AN EMPTY ELSE IF-BLOCK. E1 AND E2 ARE FALSE.
C E3 IS TRUE. ONLY ELSE IF-BLOCK 1 SHOULD BE EXECUTED. IF-BLOCK 1
C SHOULD NOT BE EXECUTED. IN SECTION 11.7.2, IF THE VALUE OF THE
C EXPRESSION IS FALSE, CONTROL IS TRANSFERRED TO THE NEXT ELSE IF,
C ELSE, OR END IF STATEMENT THAT HAS THE SAME IF-LEVEL AS THE ELSE
C IF STATEMENT.
C
C
IVTNUM = 10
IF (ICZERO) 30100, 0100, 30100
0100 CONTINUE
IVCOMP = 1
LVON01 = .FALSE.
LVON02 = .FALSE.
LVON03 = .TRUE.
IF ( LVON01 ) THEN
IVCOMP = IVCOMP * 2
ELSE IF ( LVON02 ) THEN
ELSE IF ( LVON03 ) THEN
IVCOMP = IVCOMP * 3
END IF
C
C **** IVCOMP IS DETERMINED BY IVCOMP = 3 = 1 * 3 ****
C
IVCORR = 3
40100 IF ( IVCOMP - 3 ) 20100, 10100, 20100
30100 IVDELE = IVDELE + 1
WRITE (I02,80000) IVTNUM
IF (ICZERO) 10100, 0111, 20100
10100 IVPASS = IVPASS + 1
WRITE (I02,80002) IVTNUM
GO TO 0111
20100 IVFAIL = IVFAIL + 1
WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR
0111 CONTINUE
C
C
C THE NEXT TWO TESTS USE THE ELSE IF STRUCTURE INSIDE A BLOCKED
C IF STRUCTURE OF LEVEL 2 AS FOLLOWS -
C
C IF ( E1 ) THEN
C IF-BLOCK 1
C IF ( E2 ) THEN
C IF-BLOCK 2
C ELSE IF ( E3 ) THEN
C ELSE IF-BLOCK 1
C ELSE IF ( E4 ) THEN
C ELSE IF-BLOCK 2
C END IF
C ELSE IF ( E5 ) THEN
C ELSE IF-BLOCK 3
C ELSE IF ( E6 ) THEN
C ELSE IF-BLOCK 4
C END IF
C
C
C
C **** FCVS PROGRAM 254 - TEST 011 ****
C
C TEST 011 HAS E1 TRUE, E2 AND E3 AS FALSE, E4, E5, AND ALSO
C E6 AS TRUE. IF-BLOCK 1, AND ELSE IF-BLOCK 2 SHOULD BE EXECUTED.
C IF-BLOCK 2, ELSE IF-BLOCK 1, 3, AND 4 SHOULD NOT BE EXECUTED.
C
C
IVTNUM = 11
IF (ICZERO) 30110, 0110, 30110
0110 CONTINUE
IVCOMP = 1
LVON01 = .TRUE.
LVON02 = .FALSE.
LVON03 = .FALSE.
LVON04 = .TRUE.
LVON05 = .TRUE.
LVON06 = .TRUE.
IF ( LVON01 ) THEN
IVCOMP = IVCOMP * 2
IF ( LVON02 ) THEN
IVCOMP = IVCOMP * 3
ELSE IF ( LVON03 ) THEN
IVCOMP = IVCOMP * 5
ELSE IF ( LVON04 ) THEN
IVCOMP = IVCOMP * 7
END IF
ELSE IF ( LVON05 ) THEN
IVCOMP = IVCOMP * 11
ELSE IF ( LVON06 ) THEN
IVCOMP = IVCOMP * 13
END IF
C
C **** IVCOMP IS DETERMINED BY IVCOMP = 14 = 1 * 2 * 7 ****
C
IVCORR = 14
40110 IF ( IVCOMP - 14 ) 20110, 10110, 20110
30110 IVDELE = IVDELE + 1
WRITE (I02,80000) IVTNUM
IF (ICZERO) 10110, 0121, 20110
10110 IVPASS = IVPASS + 1
WRITE (I02,80002) IVTNUM
GO TO 0121
20110 IVFAIL = IVFAIL + 1
WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR
0121 CONTINUE
C
C **** FCVS PROGRAM 254 - TEST 012 ****
C
C TEST 012 HAS E1 AS FALSE, E2, E3, AND E4 ARE TRUE, E5 AS FALSE,
C AND E6 IS TRUE. ONLY ELSE IF-BLOCK 4 SHOULD BE EXECUTED. NO
C OTHER IF-BLOCK OR ELSE IF-BLOCK SHOULD BE EXECUTED.
C
C
IVTNUM = 12
IF (ICZERO) 30120, 0120, 30120
0120 CONTINUE
IVCOMP = 1
LVON01 = .FALSE.
LVON02 = .TRUE.
LVON03 = .TRUE.
LVON04 = .TRUE.
LVON05 = .FALSE.
LVON06 = .TRUE.
IF ( LVON01 ) THEN
IVCOMP = IVCOMP * 2
IF ( LVON02 ) THEN
IVCOMP = IVCOMP * 3
ELSE IF ( LVON03 ) THEN
IVCOMP = IVCOMP * 5
ELSE IF ( LVON04 ) THEN
IVCOMP = IVCOMP * 7
END IF
ELSE IF ( LVON05 ) THEN
IVCOMP = IVCOMP * 11
ELSE IF ( LVON06 ) THEN
IVCOMP = IVCOMP * 13
END IF
C
C **** IVCOMP IS DETERMINED BY IVCOMP = 13 = 1 * 13 ****
C
IVCORR = 13
40120 IF ( IVCOMP - 13 ) 20120, 10120, 20120
30120 IVDELE = IVDELE + 1
WRITE (I02,80000) IVTNUM
IF (ICZERO) 10120, 0131, 20120
10120 IVPASS = IVPASS + 1
WRITE (I02,80002) IVTNUM
GO TO 0131
20120 IVFAIL = IVFAIL + 1
WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR
0131 CONTINUE
C
C
C WRITE OUT TEST SUMMARY
C
WRITE (I02,90004)
WRITE (I02,90014)
WRITE (I02,90004)
WRITE (I02,90000)
WRITE (I02,90004)
WRITE (I02,90020) IVFAIL
WRITE (I02,90022) IVPASS
WRITE (I02,90024) IVDELE
STOP
90001 FORMAT (1H ,24X,5HFM254)
90000 FORMAT (1H ,20X,20HEND OF PROGRAM FM254)
C
C FORMATS FOR TEST DETAIL LINES
C
80000 FORMAT (1H ,4X,I5,6X,7HDELETED)
80002 FORMAT (1H ,4X,I5,7X,4HPASS)
80010 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6)
80012 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5)
80018 FORMAT (1H ,4X,I5,7X,4HFAIL,2X,A14,1X,A14)
C
C FORMAT STATEMENTS FOR PAGE HEADERS
C
90002 FORMAT (1H1)
90004 FORMAT (1H )
90006 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM)
90008 FORMAT (1H ,21X,11HVERSION 1.0)
90010 FORMAT (1H ,8X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978)
90012 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL,5X,8HCOMPUTED,8X,7HCORRECT)
90014 FORMAT (1H ,5X,46H----------------------------------------------)
90016 FORMAT (1H ,18X,17HSUBSET LEVEL TEST)
C
C FORMAT STATEMENTS FOR RUN SUMMARY
C
90020 FORMAT (1H ,19X,I5,13H TESTS FAILED)
90022 FORMAT (1H ,19X,I5,13H TESTS PASSED)
90024 FORMAT (1H ,19X,I5,14H TESTS DELETED)
END