blob: 999f2bdd1ce9dbfc358b395fad9b2ff5a2ce7b39 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
! { 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
|