1! { dg-do compile } 2! { dg-options "-O2 -fdump-tree-original" } 3subroutine foo(a,i,j,k) 4 integer, dimension (10) :: a 5 integer :: i, j, k 6 7 a(1:5:2) = a(8:6:-1) 8 9 a(1:8) = a(2:9) 10 11 a(4:7) = a(4:1:-1) 12 13 a(i:i+2) = a(i+4:i+6) 14 15 a(j:1:-1) = a(j:5) 16 17 a(k:k+2) = a(k+1:k+3) 18end subroutine 19! { dg-final { scan-tree-dump-times "malloc" 0 "original" } } 20! { dg-final { cleanup-tree-dump "original" } } 21