URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [implicit_10.f90] - Rev 165
Go to most recent revision | Compare with Previous | Blame | View Log
! { dg-do run }
! Check fix for PR24783 where we did try to resolve the implicit type
! from the wrong namespace thus rejecting valid code.
MODULE mod1
IMPLICIT NONE
CONTAINS
SUBROUTINE sub(vec, ny)
IMPLICIT REAL (a-h,o-z)
IMPLICIT INTEGER (i-n)
DIMENSION vec(ny)
ny = fun(vec(ny),1,1)
RETURN
END SUBROUTINE sub
REAL FUNCTION fun(r1, i1, i2)
IMPLICIT REAL (r,f)
IMPLICIT INTEGER (i)
DIMENSION r1(i1:i2)
r1(i1) = i1 + 1
r1(i2) = i2 + 1
fun = r1(i1) + r1(i2)
END FUNCTION fun
END MODULE mod1
use mod1
IMPLICIT REAL (d)
INTEGER i
dimension di(5)
i = 1
if (fun(di(i),1,2).NE.5) call abort()
call sub(di(i),i)
if (i.NE.4) call abort()
end
! { dg-final { cleanup-modules "mod1" } }
Go to most recent revision | Compare with Previous | Blame | View Log