1! { dg-do compile } 2! Test the patch for PR36374 in which the different 3! symbols for 'foobar' would be incorrectly flagged as 4! ambiguous in foo_mod. 5! 6! Contributed by Salvatore Filippone <sfilippone@uniroma2.it> 7! 8module s_foo_mod 9 type s_foo_type 10 real(kind(1.e0)) :: v 11 end type s_foo_type 12 interface foobar 13 subroutine s_foobar(x) 14 import 15 type(s_foo_type), intent (inout) :: x 16 end subroutine s_foobar 17 end interface 18end module s_foo_mod 19 20module d_foo_mod 21 type d_foo_type 22 real(kind(1.d0)) :: v 23 end type d_foo_type 24 interface foobar 25 subroutine d_foobar(x) 26 import 27 type(d_foo_type), intent (inout) :: x 28 end subroutine d_foobar 29 end interface 30end module d_foo_mod 31 32module foo_mod 33 use s_foo_mod 34 use d_foo_mod 35end module foo_mod 36 37subroutine s_foobar2(x) 38 use foo_mod 39end subroutine s_foobar2 40