PR c++/86342 - -Wdeprecated-copy and system headers.
[official-gcc.git] / libgomp / testsuite / libgomp.oacc-fortran / acc_on_device-1-3.f
blob908d185f40c75efba7c4e88ce082b394ac81c869
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.
7 IMPLICIT NONE
8 INCLUDE "openacc_lib.h"
10 !Host.
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
18 !Host via offloading fallback mode.
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
28 #if !ACC_DEVICE_TYPE_host
30 ! Offloaded.
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
43 #endif
45 END