1! { dg-do compile } 2! reduced testcase from PR 17535 3module FOO 4 interface BAR 5 6 subroutine BAR1(X) 7 integer :: X 8 end subroutine 9 10 subroutine BAR2(X) 11 real :: X 12 end subroutine 13 14 end interface 15end module 16 17subroutine BAZ(X) 18 use FOO 19end subroutine 20