Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/pr43505.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
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