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