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/] [entry_6.f90] - Rev 165
Go to most recent revision | Compare with Previous | Blame | View Log
! { dg-do run }
! Tests the fix for PR24558, which reported that module
! alternate function entries did not work.
!
! Contributed by Erik Edelmann <eedelman@gcc.gnu.org>
!
module foo
contains
function n1 (a)
integer :: n1, n2, a, b
integer, save :: c
c = a
n1 = c**3
return
entry n2 (b)
n2 = c * b
n2 = n2**2
return
end function n1
function z1 (u)
complex :: z1, z2, u, v
z1 = (1.0, 2.0) * u
return
entry z2 (v)
z2 = (3, 4) * v
return
end function z1
function n3 (d)
integer :: n3, d
n3 = n2(d) * n1(d) ! Check sibling references.
return
end function n3
function c1 (a)
character(4) :: c1, c2, a, b
c1 = a
if (a .eq. "abcd") c1 = "ABCD"
return
entry c2 (b)
c2 = b
if (b .eq. "wxyz") c2 = "WXYZ"
return
end function c1
end module foo
use foo
if (n1(9) .ne. 729) call abort ()
if (n2(2) .ne. 324) call abort ()
if (n3(19) .ne. 200564019) call abort ()
if (c1("lmno") .ne. "lmno") call abort ()
if (c1("abcd") .ne. "ABCD") call abort ()
if (c2("lmno") .ne. "lmno") call abort ()
if (c2("wxyz") .ne. "WXYZ") call abort ()
if (z1((3,4)) .ne. (-5, 10)) call abort ()
if (z2((5,6)) .ne. (-9, 38)) call abort ()
end
! { dg-final { cleanup-modules "foo" } }
Go to most recent revision | Compare with Previous | Blame | View Log