1! { dg-do compile }
2! { dg-options "-Warray-temporaries" }
3! PR 36928 - optimize array interleaving array temporaries
4program 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
15end program main
16