aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/goacc/array-with-dt-2.f90
blob: 560e5351323be251764a899ef0de4ddc7b063383 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
! { dg-additional-options -Wuninitialized }

type t
   integer, allocatable :: A(:,:)
end type t

type(t), allocatable :: b(:)
! { dg-note {'b' declared here} {} { target *-*-* } .-1 }

!$acc update host(b(::2))
! { dg-warning {'b\.span' is used uninitialized} {} { target *-*-* } .-1 }
! { dg-warning {'b\.dim\[0\]\.ubound' is used uninitialized} {} { target *-*-* } .-2 }
! { dg-warning {'b\.dim\[0\]\.lbound' is used uninitialized} {} { target *-*-* } .-3 }
!$acc update host(b(1)%A(::3,::4))
end