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