C     COMMENT SECTION
C
C     FM028
C
C         THIS ROUTINE CONTAINS THE EXTERNAL FUNCTION REFERENCE TESTS.
C     THE FUNCTION SUBPROGRAM FF029 IS CALLED BY THIS PROGRAM. THE
C     FUNCTION SUBPROGRAM FF029 INCREMENTS THE CALLING ARGUMENT BY 1
C     AND RETURNS TO THE CALLING PROGRAM.
C
C         EXECUTION OF AN EXTERNAL FUNCTION REFERENCE RESULTS IN AN
C     ASSOCIATION OF ACTUAL ARGUMENTS WITH ALL APPEARANCES OF DUMMY
C     ARGUMENTS IN THE DEFINING SUBPROGRAM.  FOLLOWING THESE
C     ASSOCIATIONS, EXECUTION OF THE FIRST EXECUTABLE STATEMENT OF THE
C     DEFINING SUBPROGRAM IS UNDERTAKEN.
C
C      REFERENCES
C        AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN,
C              X3.9-1978
C
C        SECTION 15.5.2, REFERENCING AN EXTERNAL FUNCTION
C
      INTEGER FF029
C
C
C      **********************************************************
C
C         A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE
C     BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD
C     PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE
C     FEDERAL COBOL COMPILER TESTING SERVICE.  THE FORTRAN COMPILER
C     VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED
C     DATA, AND AN EXECUTIVE SYSTEM.  EACH AUDIT ROUTINE IS A FORTRAN
C     PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC
C     LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT
C     OF EXECUTING THESE TESTS.
C
C         THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES
C     FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978.
C
C         SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO -
C
C                  DEPARTMENT OF THE NAVY
C                  FEDERAL COBOL COMPILER TESTING SERVICE
C                  WASHINGTON, D.C.  20376
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 REPLACED 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 REPLACED 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 PAGE HEADERS
      WRITE (I02,90000)
      WRITE (I02,90001)
      WRITE (I02,90002)
      WRITE (I02, 90002)
      WRITE (I02,90003)
      WRITE (I02,90002)
      WRITE (I02,90004)
      WRITE (I02,90002)
      WRITE (I02,90011)
      WRITE (I02,90002)
      WRITE (I02,90002)
      WRITE (I02,90005)
      WRITE (I02,90006)
      WRITE (I02,90002)
C
C     TEST SECTION
C
C     EXTERNAL FUNCTION REFERENCE
C
C     EXTERNAL FUNCTION REFERENCE - ARGUMENT NAME SAME AS SUBPROGRAM
C              ARGUMENT NAME.
 6701 CONTINUE
      IVTNUM = 670
C
C     **** TEST 670 ****
C
      IF (ICZERO) 36700,6700,36700
 6700 CONTINUE
      IVON01 = 0
      IVCOMP = FF029(IVON01)
      GO TO 46700
36700 IVDELE = IVDELE + 1
      WRITE (I02,80003) IVTNUM
      IF (ICZERO) 46700,6711,46700
46700 IF (IVCOMP - 1) 26700,16700,26700
16700 IVPASS = IVPASS + 1
      WRITE (I02,80001) IVTNUM
      GO TO 6711
26700 IVFAIL = IVFAIL + 1
      IVCORR = 1
      WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR
 6711 CONTINUE
      IVTNUM = 671
C
C      ****  TEST 671  ****
C
C     EXTERNAL FUNCTION REFERENCE - ARGUMENT NAME SAME AS INTERNAL
C           VARIABLE IN FUNCTION SUBPROGRAM.
C
      IF (ICZERO) 36710,6710,36710
 6710 CONTINUE
      IVON02 = 2
      IVON01 = 5
      IVCOMP = FF029(IVON02)
      GO TO 46710
36710 IVDELE = IVDELE + 1
      WRITE (I02,80003) IVTNUM
      IF (ICZERO) 46710,6721,46710
46710 IF (IVCOMP - 3) 26710,16710,26710
16710 IVPASS = IVPASS + 1
      WRITE (I02,80001) IVTNUM
      GO TO 6721
26710 IVFAIL = IVFAIL + 1
      IVCORR = 3
      WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR
 6721 CONTINUE
      IVTNUM = 672
C
C     ****  TEST 672  ****
C
C     EXTERNAL FUNCTION REFERENCE - ARGUMENT NAME DIFFERENT FROM
C           FUNCTION SUBPROGRAM ARGUMENT AND INTERNAL VARIABLE.
C
      IF  (ICZERO) 36720,6720,36720
 6720 CONTINUE
      IVON01 = 7
      IVON03 = -12
      IVCOMP = FF029(IVON03)
      GO TO 46720
36720 IVDELE = IVDELE + 1
      WRITE (I02,80003) IVTNUM
      IF (ICZERO) 46720,6731,46720
46720 IF (IVCOMP + 11) 26720,16720,26720
16720 IVPASS = IVPASS + 1
      WRITE (I02,80001) IVTNUM
      GO TO 6731
26720 IVFAIL = IVFAIL + 1
      IVCORR = -11
      WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR
 6731 CONTINUE
      IVTNUM = 673
C
C      **** TEST 673  ****
C
C     REPEATED EXTERNAL FUNCTION REFERENCE IN A DO LOOP.
C
      IF (ICZERO) 36730,6730,36730
 6730 CONTINUE
      IVON01 = -7
      IVCOMP = 0
      DO 6732 IVON04 = 1,5
      IVCOMP = FF029(IVCOMP)
 6732 CONTINUE
      GO TO 46730
36730 IVDELE = IVDELE + 1
      WRITE (I02,80003) IVTNUM
      IF (ICZERO) 46730,6741,46730
46730 IF (IVCOMP - 5) 26730,16730,26730
16730 IVPASS = IVPASS + 1
      WRITE (I02,80001) IVTNUM
      GO TO 6741
26730 IVFAIL = IVFAIL + 1
      IVCORR = 5
      WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR
 6741 CONTINUE
C
C     WRITE PAGE FOOTINGS AND RUN SUMMARIES
99999 CONTINUE
      WRITE (I02,90002)
      WRITE (I02,90006)
      WRITE (I02,90002)
      WRITE (I02,90002)
      WRITE (I02,90007)
      WRITE (I02,90002)
      WRITE (I02,90008)  IVFAIL
      WRITE (I02,90009) IVPASS
      WRITE (I02,90010) IVDELE
C
C
C     TERMINATE ROUTINE EXECUTION
      STOP
C
C     FORMAT STATEMENTS FOR PAGE HEADERS
90000 FORMAT (1H1)
90002 FORMAT (1H )
90001 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM)
90003 FORMAT (1H ,21X,11HVERSION 1.0)
90004 FORMAT (1H ,10X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978)
90005 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL, 5X,8HCOMPUTED,8X,7HCORRECT)
90006 FORMAT (1H ,5X,46H----------------------------------------------)
90011 FORMAT (1H ,18X,17HSUBSET LEVEL TEST)
C
C     FORMAT STATEMENTS FOR RUN SUMMARIES
90008 FORMAT (1H ,15X,I5,19H ERRORS ENCOUNTERED)
90009 FORMAT (1H ,15X,I5,13H TESTS PASSED)
90010 FORMAT (1H ,15X,I5,14H TESTS DELETED)
C
C     FORMAT STATEMENTS FOR TEST RESULTS
80001 FORMAT (1H ,4X,I5,7X,4HPASS)
80002 FORMAT (1H ,4X,I5,7X,4HFAIL)
80003 FORMAT (1H ,4X,I5,7X,7HDELETED)
80004 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6)
80005 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5)
C
90007 FORMAT (1H ,20X,20HEND OF PROGRAM FM028)
      END
      INTEGER FUNCTION FF029(IVON01)
C
C     COMMENT SECTION
C     FF029
C
C         THIS FUNCTION SUBPROGRAM IS CALLED BY THE MAIN PROGRAM FM028.
C     THE FUNCTION ARGUMENT IS INCREMENTED BY 1 AND CONTROL RETURNED
C     TO THE CALLING PROGRAM.
C
C      REFERENCES
C        AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN,
C              X3.9-1978
C
C        SECTION 15.5.1, DEFINING FUNCTION SUBPROGRAMS AND FUNCTION
C                        STATEMENTS
C        SECTION 15.8, RETURN STATEMENT
C
C     TEST SECTION
C
C          FUNCTION SUBPROGRAM
C
C     INCREMENT ARGUMENT BY 1 AND RETURN TO CALLING PROGRAM.
C
      IVON02 = IVON01
      FF029  = IVON02 + 1
      IVON02 = 500
      RETURN
      END