| ! { dg-do compile } |
| ! Test the patch for PR36374 in which the different |
| ! symbols for 'foobar' would be incorrectly flagged as |
| ! ambiguous in foo_mod. |
| ! |
| ! Contributed by Salvatore Filippone <sfilippone@uniroma2.it> |
| ! |
| module s_foo_mod |
| type s_foo_type |
| real(kind(1.e0)) :: v |
| end type s_foo_type |
| interface foobar |
| subroutine s_foobar(x) |
| import |
| type(s_foo_type), intent (inout) :: x |
| end subroutine s_foobar |
| end interface |
| end module s_foo_mod |
| |
| module d_foo_mod |
| type d_foo_type |
| real(kind(1.d0)) :: v |
| end type d_foo_type |
| interface foobar |
| subroutine d_foobar(x) |
| import |
| type(d_foo_type), intent (inout) :: x |
| end subroutine d_foobar |
| end interface |
| end module d_foo_mod |
| |
| module foo_mod |
| use s_foo_mod |
| use d_foo_mod |
| end module foo_mod |
| |
| subroutine s_foobar2(x) |
| use foo_mod |
| end subroutine s_foobar2 |