match: Fix the `max<a,b>==0` pattern for pointers [PR117646]

[official-gcc.git] / gcc / testsuite / gfortran.dg / entry_21.f90

! { 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