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))