gcc/testsuite/gfortran.dg/dependency_27.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-Warray-temporaries" }
   3 ! PR 36928 - optimize array interleaving array temporaries
   4 program main
   5   real, dimension(20) :: a
   6   read (10) a
   7   a(2:10:2) = a (1:9:2)
   8   write (11) a
   9   read (10) a
  10   a(2:10:4) = a(1:5:2)
  11   write (11) a
  12   read (10) a
  13   a(2:10:4) = a(5:1:-2)
  14   write (11) a
  15 end program main