1! { dg-do compile }
2! PR fortran/33945
3!
4! MODULE PROCEDURE in the interface was wrongly accepted
5module modproc2
6  implicit none
7  interface
8    subroutine x
9    end subroutine x
10  end interface
11  procedure(x) :: y
12  interface bar
13    module procedure y ! { dg-error "not a module procedure" }
14  end interface bar
15end module modproc2
16
17end
18