Subversion Repositories openrisc

! { dg-do run }

! Tests the fix for PR24558, which reported that module

! alternate function entries did not work.

!

! Contributed by Erik Edelmann  

!

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" } }