ffbdd78a4a
* testsuite/libgomp.oacc-fortran/abort-1.f90: Add 'dg-do run'.
* testsuite/libgomp.oacc-fortran/abort-2.f90: Ditto.
* testsuite/libgomp.oacc-fortran/acc_on_device-1-1.f90: Ditto.
* testsuite/libgomp.oacc-fortran/acc_on_device-1-2.f90: Ditto.
* testsuite/libgomp.oacc-fortran/acc_on_device-1-3.f90: Ditto.
* testsuite/libgomp.oacc-fortran/lib-1.f90: Ditto.
* testsuite/libgomp.oacc-fortran/common-block-1.f90:
Use 'stop' not abort().
* testsuite/libgomp.oacc-fortran/common-block-2.f90: Ditto.
* testsuite/libgomp.oacc-fortran/common-block-3.f90: Ditto.
* testsuite/libgomp.oacc-fortran/data-1.f90: Ditto.
* testsuite/libgomp.oacc-fortran/data-2.f90: Ditto.
* testsuite/libgomp.oacc-fortran/data-5.f90: Ditto.
* testsuite/libgomp.oacc-fortran/dummy-array.f90: Ditto.
* testsuite/libgomp.oacc-fortran/gemm-2.f90: Ditto.
* testsuite/libgomp.oacc-fortran/gemm.f90: Ditto.
* testsuite/libgomp.oacc-fortran/host_data-2.f90: Ditto.
* testsuite/libgomp.oacc-fortran/host_data-3.f90: Ditto.
* testsuite/libgomp.oacc-fortran/host_data-4.f90: Ditto.
* testsuite/libgomp.oacc-fortran/kernels-collapse-3.f90: Ditto.
* testsuite/libgomp.oacc-fortran/kernels-collapse-4.f90: Ditto.
* testsuite/libgomp.oacc-fortran/kernels-independent.f90: Ditto.
* testsuite/libgomp.oacc-fortran/kernels-loop-1.f90: Ditto.
* testsuite/libgomp.oacc-fortran/kernels-map-1.f90: Ditto.
* testsuite/libgomp.oacc-fortran/kernels-parallel-loop-data-enter-exit.f95:
Ditto.
* testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-gang-1.f90:
Ditto.
* testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-gang-2.f90:
Ditto.
* testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-gang-3.f90:
Ditto.
* testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-gang-6.f90:
Ditto.
* testsuite/libgomp.oacc-fortran/kernels-private-vars-vector-1.f90:
Ditto.
* testsuite/libgomp.oacc-fortran/kernels-private-vars-vector-2.f90:
Ditto.
* testsuite/libgomp.oacc-fortran/kernels-private-vars-worker-1.f90:
Ditto.
* testsuite/libgomp.oacc-fortran/kernels-private-vars-worker-2.f90:
Ditto.
* testsuite/libgomp.oacc-fortran/kernels-private-vars-worker-3.f90:
Ditto.
* testsuite/libgomp.oacc-fortran/kernels-private-vars-worker-4.f90:
Ditto.
* testsuite/libgomp.oacc-fortran/kernels-private-vars-worker-5.f90:
Ditto.
* testsuite/libgomp.oacc-fortran/kernels-private-vars-worker-6.f90:
Ditto.
* testsuite/libgomp.oacc-fortran/kernels-private-vars-worker-7.f90:
Ditto.
* testsuite/libgomp.oacc-fortran/kernels-reduction-1.f90: Ditto.
* testsuite/libgomp.oacc-fortran/lib-12.f90: Ditto.
* testsuite/libgomp.oacc-fortran/lib-13.f90: Ditto.
* testsuite/libgomp.oacc-fortran/lib-14.f90: Ditto.
* testsuite/libgomp.oacc-fortran/kernels-acc-loop-reduction-2.f90:
Likewise and also add 'dg-do run'.
* testsuite/libgomp.oacc-fortran/kernels-acc-loop-reduction.f90:
Ditto.
From-SVN: r277503
213 lines
3.6 KiB
Fortran
213 lines
3.6 KiB
Fortran
! { dg-do run }
|
|
! { dg-additional-options "-cpp" }
|
|
|
|
function is_mapped (n) result (rc)
|
|
use openacc
|
|
|
|
integer, intent (in) :: n
|
|
logical rc
|
|
|
|
#if ACC_MEM_SHARED
|
|
integer i
|
|
|
|
rc = .TRUE.
|
|
i = n
|
|
#else
|
|
rc = acc_is_present (n, sizeof (n))
|
|
#endif
|
|
|
|
end function is_mapped
|
|
|
|
program main
|
|
integer i, j
|
|
logical is_mapped
|
|
|
|
i = -1
|
|
j = -2
|
|
|
|
!$acc data copyin (i, j)
|
|
if (is_mapped (i) .eqv. .FALSE.) stop 1
|
|
if (is_mapped (j) .eqv. .FALSE.) stop 2
|
|
|
|
if (i .ne. -1 .or. j .ne. -2) stop 3
|
|
|
|
i = 2
|
|
j = 1
|
|
|
|
if (i .ne. 2 .or. j .ne. 1) stop 4
|
|
!$acc end data
|
|
|
|
if (i .ne. 2 .or. j .ne. 1) stop 5
|
|
|
|
i = -1
|
|
j = -2
|
|
|
|
!$acc data copyout (i, j)
|
|
if (is_mapped (i) .eqv. .FALSE.) stop 6
|
|
if (is_mapped (j) .eqv. .FALSE.) stop 7
|
|
|
|
if (i .ne. -1 .or. j .ne. -2) stop 8
|
|
|
|
i = 2
|
|
j = 1
|
|
|
|
if (i .ne. 2 .or. j .ne. 1) stop 9
|
|
|
|
!$acc parallel present (i, j)
|
|
i = 4
|
|
j = 2
|
|
!$acc end parallel
|
|
!$acc end data
|
|
|
|
if (i .ne. 4 .or. j .ne. 2) stop 10
|
|
|
|
i = -1
|
|
j = -2
|
|
|
|
!$acc data create (i, j)
|
|
if (is_mapped (i) .eqv. .FALSE.) stop 11
|
|
if (is_mapped (j) .eqv. .FALSE.) stop 12
|
|
|
|
if (i .ne. -1 .or. j .ne. -2) stop 13
|
|
|
|
i = 2
|
|
j = 1
|
|
|
|
if (i .ne. 2 .or. j .ne. 1) stop 14
|
|
!$acc end data
|
|
|
|
if (i .ne. 2 .or. j .ne. 1) stop 15
|
|
|
|
i = -1
|
|
j = -2
|
|
|
|
!$acc data present_or_copyin (i, j)
|
|
if (is_mapped (i) .eqv. .FALSE.) stop 16
|
|
if (is_mapped (j) .eqv. .FALSE.) stop 17
|
|
|
|
if (i .ne. -1 .or. j .ne. -2) stop 18
|
|
|
|
i = 2
|
|
j = 1
|
|
|
|
if (i .ne. 2 .or. j .ne. 1) stop 19
|
|
!$acc end data
|
|
|
|
if (i .ne. 2 .or. j .ne. 1) stop 20
|
|
|
|
i = -1
|
|
j = -2
|
|
|
|
!$acc data present_or_copyout (i, j)
|
|
if (is_mapped (i) .eqv. .FALSE.) stop 21
|
|
if (is_mapped (j) .eqv. .FALSE.) stop 22
|
|
|
|
if (i .ne. -1 .or. j .ne. -2) stop 23
|
|
|
|
i = 2
|
|
j = 1
|
|
|
|
if (i .ne. 2 .or. j .ne. 1) stop 24
|
|
|
|
!$acc parallel present (i, j)
|
|
i = 4
|
|
j = 2
|
|
!$acc end parallel
|
|
!$acc end data
|
|
|
|
if (i .ne. 4 .or. j .ne. 2) stop 25
|
|
|
|
i = -1
|
|
j = -2
|
|
|
|
!$acc data present_or_copy (i, j)
|
|
if (is_mapped (i) .eqv. .FALSE.) stop 26
|
|
if (is_mapped (j) .eqv. .FALSE.) stop 27
|
|
|
|
if (i .ne. -1 .or. j .ne. -2) stop 28
|
|
|
|
i = 2
|
|
j = 1
|
|
|
|
if (i .ne. 2 .or. j .ne. 1) stop 29
|
|
!$acc end data
|
|
|
|
#if ACC_MEM_SHARED
|
|
if (i .ne. 2 .or. j .ne. 1) stop 30
|
|
#else
|
|
if (i .ne. -1 .or. j .ne. -2) stop 31
|
|
#endif
|
|
|
|
i = -1
|
|
j = -2
|
|
|
|
!$acc data present_or_create (i, j)
|
|
if (is_mapped (i) .eqv. .FALSE.) stop 32
|
|
if (is_mapped (j) .eqv. .FALSE.) stop 33
|
|
|
|
i = 2
|
|
j = 1
|
|
|
|
if (i .ne. 2 .or. j .ne. 1) stop 34
|
|
!$acc end data
|
|
|
|
if (i .ne. 2 .or. j .ne. 1) stop 35
|
|
|
|
i = -1
|
|
j = -2
|
|
|
|
!$acc data copyin (i, j)
|
|
!$acc data present (i, j)
|
|
if (is_mapped (i) .eqv. .FALSE.) stop 36
|
|
if (is_mapped (j) .eqv. .FALSE.) stop 37
|
|
|
|
if (i .ne. -1 .or. j .ne. -2) stop 38
|
|
|
|
i = 2
|
|
j = 1
|
|
|
|
if (i .ne. 2 .or. j .ne. 1) stop 39
|
|
!$acc end data
|
|
!$acc end data
|
|
|
|
if (i .ne. 2 .or. j .ne. 1) stop 40
|
|
|
|
i = -1
|
|
j = -2
|
|
|
|
!$acc data copyin (i, j)
|
|
!$acc data present (i, j)
|
|
if (is_mapped (i) .eqv. .FALSE.) stop 41
|
|
if (is_mapped (j) .eqv. .FALSE.) stop 42
|
|
|
|
if (i .ne. -1 .or. j .ne. -2) stop 43
|
|
|
|
i = 2
|
|
j = 1
|
|
|
|
if (i .ne. 2 .or. j .ne. 1) stop 44
|
|
!$acc end data
|
|
!$acc end data
|
|
|
|
if (i .ne. 2 .or. j .ne. 1) stop 45
|
|
|
|
i = -1
|
|
j = -2
|
|
|
|
!$acc data
|
|
#if !ACC_MEM_SHARED
|
|
if (is_mapped (i) .eqv. .TRUE.) stop 46
|
|
if (is_mapped (j) .eqv. .TRUE.) stop 47
|
|
#endif
|
|
if (i .ne. -1 .or. j .ne. -2) stop 48
|
|
|
|
i = 2
|
|
j = 1
|
|
|
|
if (i .ne. 2 .or. j .ne. 1) stop 49
|
|
!$acc end data
|
|
|
|
if (i .ne. 2 .or. j .ne. 1) stop 50
|
|
|
|
end program main
|