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