! { dg-do compile } ! PR fortran/33945 ! ! MODULE PROCEDURE in the interface was wrongly accepted module modproc2 implicit none interface subroutine x end subroutine x end interface procedure(x) :: y interface bar module procedure y ! { dg-error "not a module procedure" } end interface bar end module modproc2 end