gcc/testsuite/gfortran.dg/dependency_13.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-O2 -fdump-tree-original" }
   3    integer :: i(5)
   4    real(4) :: x(5)
   5    equivalence(x,i)
   6
   7    i = (/ 1, 0, 3, 5, 0 /)
   8    where (i(1:4) .ne. 0)
   9      x(2:5) = -42.
  10    end where
  11    end
  12 ! { dg-final { scan-tree-dump-times "temp" 3 "original" } }