URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [pr43505.f90] - Rev 327
Go to most recent revision | Compare with Previous | Blame | View Log
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
Go to most recent revision | Compare with Previous | Blame | View Log