2 ! Test the patch for PR36374 in which the different
3 ! symbols for 'foobar' would be incorrectly flagged as
4 ! ambiguous in foo_mod.
6 ! Contributed by Salvatore Filippone <sfilippone@uniroma2.it>
10 real(kind(1.e0)) :: v
\r
13 subroutine s_foobar(x)
\r
15 type(s_foo_type), intent (inout) :: x
\r
16 end subroutine s_foobar
\r
18 end module s_foo_mod
\r
22 real(kind(1.d0)) :: v
\r
25 subroutine d_foobar(x)
\r
27 type(d_foo_type), intent (inout) :: x
\r
28 end subroutine d_foobar
\r
30 end module d_foo_mod
\r
37 subroutine s_foobar2(x)
\r
39 end subroutine s_foobar2
\r