1! { dg-do compile }
2! Tests fix for PR25090 in which references in specification
3! expressions to variables that were not entry formal arguments
4! would be missed.
5!
6! Contributed by Joost VandeVondele  <jv244@cam.ac.uk>
7!
8   SUBROUTINE S1(I)
9   CHARACTER(LEN=I+J) :: a
10   real :: x(i:j), z
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" }
13   ENTRY E1(J)
14   END SUBROUTINE S1
15   END
16