2 ! Test the fix for PR41062, in which an ICE would ensue because
3 ! of confusion between the two 'one's in the creation of module
6 ! Reported by Norman S. Clerman <clerman@fuse.net>
7 ! Reduced testcase by Tobias Burnus <burnus@gcc.gnu.org>
10 interface one ! GENERIC "one"
20 use m1, only : one ! USE generic "one"
23 call one() ! Call internal "one"
25 subroutine one() ! Internal "one"
34 ! { dg-final { cleanup-modules "m1 m2" } }