! { dg-do compile } ! PR fortran/66044 ! ! Original code from Gerhard Steinmetz ! <gerhard dot steinmetz dot fortran at t-online dot de> subroutine p end subroutine p entry e ! { dg-error "Unexpected ENTRY statement" } end module m type t contains entry e ! { dg-error "Unexpected ENTRY statement" } end type end module m