gcc/testsuite/gfortran.dg/entry_5.f90

   1 ! { dg-do compile }
   2 ! PR 24008
   3 ! an argument list to the entry is required
   4 REAL FUNCTION funct()
   5   funct = 0.0
   6   RETURN
   7 !
   8   ENTRY enter RESULT (answer)  ! { dg-error "Unclassifiable statement" }
   9   answer = 1.0
  10   RETURN
  11 END FUNCTION funct