gcc/testsuite/gfortran.dg/entry_21.f90


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