gcc/testsuite/gfortran.dg/pr94030_1.f90 - gcc - Git at Google

 ! { dg-do compile }
 !

 subroutine f(n)
   integer :: n
   integer :: arr(n)
   integer :: i
   equivalence (i, arr(1))
 end

 ! { dg-error "Array 'arr' at .1. with non-constant bounds cannot be an EQUIVALENCE object" " " { target *-*-* } 8 }
	! { dg-do compile }
	!

	subroutine f(n)
	integer :: n
	integer :: arr(n)
	integer :: i
	equivalence (i, arr(1))
	end

	! { dg-error "Array 'arr' at .1. with non-constant bounds cannot be an EQUIVALENCE object" " " { target --* } 8 }