1! { dg-do compile }
2!
3! PR fortran/48858
4! PR fortran/55465
5!
6! Was rejected before but it perfectly valid
7!
8module m
9  interface
10    subroutine f() bind(C, name="func")
11    end subroutine
12  end interface
13contains
14  subroutine sub()
15     call f()
16  end subroutine
17end module m
18
19module m2
20  interface
21    subroutine g() bind(C, name="func")
22    end subroutine
23  end interface
24contains
25  subroutine sub2()
26     call g()
27  end subroutine
28end module m2
29