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
48 lines
1.2 KiB
Fortran
48 lines
1.2 KiB
Fortran
! { dg-do run }
|
|
! { dg-additional-options "-cpp" }
|
|
!
|
|
! TODO: Have to disable the acc_on_device builtin for we want to test
|
|
! the libgomp library function? The command line option
|
|
! '-fno-builtin-acc_on_device' is valid for C/C++/ObjC/ObjC++ but not
|
|
! for Fortran.
|
|
|
|
USE OPENACC
|
|
IMPLICIT NONE
|
|
|
|
!Host.
|
|
|
|
IF (.NOT. ACC_ON_DEVICE (ACC_DEVICE_NONE)) STOP 1
|
|
IF (.NOT. ACC_ON_DEVICE (ACC_DEVICE_HOST)) STOP 2
|
|
IF (ACC_ON_DEVICE (ACC_DEVICE_NOT_HOST)) STOP 3
|
|
IF (ACC_ON_DEVICE (ACC_DEVICE_NVIDIA)) STOP 4
|
|
|
|
|
|
!Host via offloading fallback mode.
|
|
|
|
!$ACC PARALLEL IF(.FALSE.)
|
|
IF (.NOT. ACC_ON_DEVICE (ACC_DEVICE_NONE)) STOP 5
|
|
IF (.NOT. ACC_ON_DEVICE (ACC_DEVICE_HOST)) STOP 6
|
|
IF (ACC_ON_DEVICE (ACC_DEVICE_NOT_HOST)) STOP 7
|
|
IF (ACC_ON_DEVICE (ACC_DEVICE_NVIDIA)) STOP 8
|
|
!$ACC END PARALLEL
|
|
|
|
|
|
#if !ACC_DEVICE_TYPE_host
|
|
|
|
! Offloaded.
|
|
|
|
!$ACC PARALLEL
|
|
IF (ACC_ON_DEVICE (ACC_DEVICE_NONE)) STOP 9
|
|
IF (ACC_ON_DEVICE (ACC_DEVICE_HOST)) STOP 10
|
|
IF (.NOT. ACC_ON_DEVICE (ACC_DEVICE_NOT_HOST)) STOP 11
|
|
#if ACC_DEVICE_TYPE_nvidia
|
|
IF (.NOT. ACC_ON_DEVICE (ACC_DEVICE_NVIDIA)) STOP 12
|
|
#else
|
|
IF (ACC_ON_DEVICE (ACC_DEVICE_NVIDIA)) STOP 13
|
|
#endif
|
|
!$ACC END PARALLEL
|
|
|
|
#endif
|
|
|
|
END
|