4 ! The static resolution of A%GET used to be incorrectly simplified to MOD2's
5 ! MY_GET instead of the original MOD1's MY_GET, depending on the order in which
6 ! MOD1 and MOD2 were use-associated.
8 ! Original testcase by Salvator Filippone <sfilippone@uniroma2.it>
9 ! Reduced by Janus Weil <janus@gcc.gnu.org>
14 procedure, nopass :: get => my_get
24 subroutine my_get(i) ! must have the same name as the function in mod1
40 if (j /= 2) call abort
48 if (j /= 2) call abort