| ! { 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 |