1! { dg-do compile } 2! PR fortran/66044 3! 4! Original code from Gerhard Steinmetz 5! <gerhard dot steinmetz dot fortran at t-online dot de> 6subroutine p 7end subroutine p 8 9entry e ! { dg-error "Unexpected ENTRY statement" } 10end 11 12module m 13 type t 14 contains 15 entry e ! { dg-error "Unexpected ENTRY statement" } 16 end type 17end module m 18