2 ! Tests the fix for PR38765 in which the use associated symbol
3 ! 'fun' was confused with the contained function in 'mod_b'
4 ! because the real name was being used instead of the 'use'
7 ! Contributed by Paul Thomas <pault@gcc.gnu.org>
8 ! from a report by Marco Restelli.
15 pure
function fun(x
) result(mu
)
16 real, intent(in
) :: x(:,:)
17 real :: mu(2,2,size(x
,2))
28 pure
function fun(x
) result(mu
)
29 real, intent(in
) :: x(:,:)
30 real :: mu(2,2,size(x
,2))