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