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