libgomp/testsuite/libgomp.oacc-fortran/acc_on_device-1-2.f

   1 ! { dg-additional-options "-cpp" }
   2 ! TODO: Have to disable the acc_on_device builtin for we want to test
   3 ! the libgomp library function?  The command line option
   4 ! '-fno-builtin-acc_on_device' is valid for C/C++/ObjC/ObjC++ but not
   5 ! for Fortran.
   6
   7       USE OPENACC
   8       IMPLICIT NONE
   9
  10 !Host.
  11
  12       IF (.NOT. ACC_ON_DEVICE (ACC_DEVICE_NONE)) CALL ABORT
  13       IF (.NOT. ACC_ON_DEVICE (ACC_DEVICE_HOST)) CALL ABORT
  14       IF (ACC_ON_DEVICE (ACC_DEVICE_NOT_HOST)) CALL ABORT
  15       IF (ACC_ON_DEVICE (ACC_DEVICE_NVIDIA)) CALL ABORT
  16
  17
  18 !Host via offloading fallback mode.
  19
  20 !$ACC PARALLEL IF(.FALSE.)
  21       IF (.NOT. ACC_ON_DEVICE (ACC_DEVICE_NONE)) CALL ABORT
  22       IF (.NOT. ACC_ON_DEVICE (ACC_DEVICE_HOST)) CALL ABORT
  23       IF (ACC_ON_DEVICE (ACC_DEVICE_NOT_HOST)) CALL ABORT
  24       IF (ACC_ON_DEVICE (ACC_DEVICE_NVIDIA)) CALL ABORT
  25 !$ACC END PARALLEL
  26
  27
  28 #if !ACC_DEVICE_TYPE_host
  29
  30 ! Offloaded.
  31
  32 !$ACC PARALLEL
  33       IF (ACC_ON_DEVICE (ACC_DEVICE_NONE)) CALL ABORT
  34       IF (ACC_ON_DEVICE (ACC_DEVICE_HOST)) CALL ABORT
  35       IF (.NOT. ACC_ON_DEVICE (ACC_DEVICE_NOT_HOST)) CALL ABORT
  36 #if ACC_DEVICE_TYPE_nvidia
  37       IF (.NOT. ACC_ON_DEVICE (ACC_DEVICE_NVIDIA)) CALL ABORT
  38 #else
  39       IF (ACC_ON_DEVICE (ACC_DEVICE_NVIDIA)) CALL ABORT
  40 #endif
  41 !$ACC END PARALLEL
  42
  43 #endif
  44
  45       END