2 ! { dg-options "-Warray-temporaries" }
5 real, dimension(2) :: a
9 integer, parameter :: n=3
11 real, dimension(n) :: a, b
15 a(i:i+1) = a(1:2) ! { dg-warning "Creating array temporary" }
16 a = cshift(a,1) ! { dg-warning "Creating array temporary" }
18 call bar(a(1:3:2)) ! { dg-warning "Creating array temporary" }