Subversion Repositories openrisc

 MODULE MAIN1

      INTEGER , PARAMETER :: MXGLVL = 87

      CHARACTER(8) :: SRCTYP

      REAL :: GRIDWS(MXGLVL)

      REAL :: ZI, HS

    END MODULE MAIN1

    PROGRAM TEST

      USE MAIN1

      IF (HS >= ZI) THEN

      ELSEIF (      SRCTYP == 'AREA'     &

               .OR. SRCTYP == 'AREAPOLY' &

               .OR. SRCTYP == 'AREACIRC' &

               .OR. SRCTYP == 'OPENPIT'   ) THEN

         CALL ANYAVG (MXGLVL, GRIDWS)

         CALL ANYAVG (MXGLVL, GRIDWS)

      ELSE

         IF ( HS > 0.0 ) THEN

            CALL ANYAVG (MXGLVL, GRIDWS)

            CALL ANYAVG (MXGLVL, GRIDWS)

            CALL ANYAVG (MXGLVL, GRIDWS)

         ENDIF

      ENDIF

      IF (HS.LT.ZI) THEN

         ZI = HS

      ENDIF

    contains

      SUBROUTINE ANYAVG(NLVLS,HTS)

        INTEGER NLVLS

        REAL HTS(NLVLS)

        IF (5.LT.NLVLS) THEN

           CALL GINTRP (HTS(5),HTS(5+1))

        ENDIF

        CALL GINTRP (HTS(5-1), HTS(5))

      END SUBROUTINE ANYAVG

      subroutine gintrp (x1, x2)

        print *, x1, x2

      end subroutine

    END PROGRAM TEST

! { dg-final { cleanup-modules "main1" } }