gcc/testsuite/gfortran.dg/pr94030_1.f90

   1 ! { dg-do compile }
   2 !
   3
   4 subroutine f(n)
   5   integer :: n
   6   integer :: arr(n)
   7   integer :: i
   8   equivalence (i, arr(1))
   9 end
  10
  11 ! { dg-error "Array 'arr' at .1. with non-constant bounds cannot be an EQUIVALENCE object" " " { target *-*-* } 8 }