gcc/testsuite/gfortran.dg/dependency_28.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

! { dg-do compile }
! { dg-options "-Warray-temporaries" }
module foobar
  type baz
     integer :: i
     integer :: j
     integer :: k
     integer :: m
  end type baz
contains
  subroutine foo(a,b,c,i)
    real, dimension(10) :: a,b
    type(baz) :: c
    integer, dimension(10) :: i
    a(i(1):i(2)) = a(i(1):i(2)) + b(i(1):i(2))
    a(i(1):i(2)) = a(i(3):i(5)) ! { dg-warning "Creating array temporary" }
    a(c%i:c%j) = a(c%i:c%j) + b(c%k:c%m)
    a(c%k:c%m) = a(c%i:c%j) + b(c%k:c%m) ! { dg-warning "Creating array temporary" }
  end subroutine foo
end module foobar
! { dg-final { cleanup-modules "foobar" } }