gcc/testsuite/gfortran.dg/entry_dummy_ref_1.f90

   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