summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/entry_6.f90
blob: 103392606b990bd6b0b6aff7cd7dc463f2e461d0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
! { 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" } }