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