2 ! Tests fix for PR25090 in which references in specification
3 ! expressions to variables that were not entry formal arguments
6 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
9 CHARACTER(LEN=I+J) :: a
11 a = "" ! { dg-error "before the ENTRY statement in which it is a parameter" }
12 x = 0.0 ! { dg-error "before the ENTRY statement in which it is a parameter" }