libgomp/testsuite/libgomp.oacc-fortran/acc_on_device-1-1.f90

   1 ! { dg-additional-options "-cpp" }
   2 ! TODO: Have to disable the acc_on_device builtin for we want to test the
   3 ! libgomp library function?  The command line option
   4 ! '-fno-builtin-acc_on_device' is valid for C/C++/ObjC/ObjC++ but not for
   5 ! Fortran.
   6
   7 use openacc
   8 implicit none
   9
  10 ! Host.
  11
  12 if (.not. acc_on_device (acc_device_none)) STOP 1
  13 if (.not. acc_on_device (acc_device_host)) STOP 2
  14 if (acc_on_device (acc_device_not_host)) STOP 3
  15 if (acc_on_device (acc_device_nvidia)) STOP 4
  16
  17
  18 ! Host via offloading fallback mode.
  19
  20 !$acc parallel if(.false.)
  21 if (.not. acc_on_device (acc_device_none)) STOP 5
  22 if (.not. acc_on_device (acc_device_host)) STOP 6
  23 if (acc_on_device (acc_device_not_host)) STOP 7
  24 if (acc_on_device (acc_device_nvidia)) STOP 8
  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)) STOP 9
  34 if (acc_on_device (acc_device_host)) STOP 10
  35 if (.not. acc_on_device (acc_device_not_host)) STOP 11
  36 #if ACC_DEVICE_TYPE_nvidia
  37 if (.not. acc_on_device (acc_device_nvidia)) STOP 12
  38 #else
  39 if (acc_on_device (acc_device_nvidia)) STOP 13
  40 #endif
  41 !$acc end parallel
  42
  43 #endif
  44
  45 end