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