123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960 |
- ! { dg-do run }
- ! { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } }
- ! { dg-additional-options -Wuninitialized }
- program refcount_test
- use openacc
- integer, allocatable :: h(:)
- integer i, N
- N = 256
- allocate (h(N))
- do i = 1, N
- h(i) = i
- end do
- !$acc enter data create (h(1:N))
- !$acc enter data copyin (h(1:N))
- !$acc enter data copyin (h(1:N))
- !$acc enter data copyin (h(1:N))
- call acc_update_self (h)
- do i = 1, N
- if (h(i) .eq. i) c = c + 1
- ! { dg-warning {'c' may be used uninitialized} {} { target __OPTIMIZE__ } .-1 }
- ! { dg-note {'c' was declared here} {} { target __OPTIMIZE__ } .-2 }
- end do
- ! h[] should be filled with uninitialized device values,
- ! 'stop' if it's not.
- if (c .eq. N) stop 1
- h(:) = 0
- !$acc parallel present (h(1:N))
- do i = 1, N
- h(i) = 111
- end do
- !$acc end parallel
- ! No actual copyout should happen.
- call acc_copyout (h)
- do i = 1, N
- if (h(i) .ne. 0) stop 2
- end do
- !$acc exit data delete (h(1:N))
- ! This should not actually be deleted yet.
- if (acc_is_present (h) .eqv. .FALSE.) stop 3
- !$acc exit data copyout (h(1:N)) finalize
- do i = 1, N
- if (h(i) .ne. 111) stop 4
- end do
- if (acc_is_present (h) .eqv. .TRUE.) stop 5
- end program refcount_test
|