2 ! Tests the fix for PR24558, which reported that module
3 ! alternate function entries did not work.
5 ! Contributed by Erik Edelmann <eedelman@gcc.gnu.org>
10 integer :: n1, n2, a, b
21 complex :: z1, z2, u, v
30 n3 = n2(d) * n1(d) ! Check sibling references.
34 character(4) :: c1, c2, a, b
36 if (a .eq. "abcd") c1 = "ABCD"
40 if (b .eq. "wxyz") c2 = "WXYZ"
45 if (n1(9) .ne. 729) call abort ()
46 if (n2(2) .ne. 324) call abort ()
47 if (n3(19) .ne. 200564019) call abort ()
48 if (c1("lmno") .ne. "lmno") call abort ()
49 if (c1("abcd") .ne. "ABCD") call abort ()
50 if (c2("lmno") .ne. "lmno") call abort ()
51 if (c2("wxyz") .ne. "WXYZ") call abort ()
52 if (z1((3,4)) .ne. (-5, 10)) call abort ()
53 if (z2((5,6)) .ne. (-9, 38)) call abort ()