5 ! Test-case based on a contribution of Vittorio Zecca.
7 ! The used subroutine was not the use-associated but the host associated one!
8 ! The use-associated function/variable were already working properly.
13 integer function fun()
25 ! All procedures/variables below refer to the ones in module "m"
26 ! and not to the siblings in this module "m2".
28 if (fun() /= 42) STOP 1
33 integer function fun()