blob: 64fc59046f48a5a2db4c1bf527b004949153891d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
! { dg-do compile }
! { dg-options "-Warray-temporaries" }
subroutine bar(a)
real, dimension(2) :: a
end
program main
integer, parameter :: n=3
integer :: i
real, dimension(n) :: a, b
a = 0.2
i = 2
a(i:i+1) = a(1:2) ! { dg-warning "Creating array temporary" }
a = cshift(a,1) ! { dg-warning "Creating array temporary" }
b = cshift(a,1)
call bar(a(1:3:2)) ! { dg-warning "Creating array temporary" }
end program main
|
