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