yggdrasil/gcc
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add 'acc_device_radeon' testing to 'libgomp.oacc-*/acc_on_device-*'

Browse Source 
libgomp/
	* testsuite/libgomp.oacc-c-c++-common/acc_on_device-1.c: Add
	'acc_device_radeon' testing.
	* testsuite/libgomp.oacc-fortran/acc_on_device-1-1.f90: Likewise.
	* testsuite/libgomp.oacc-fortran/acc_on_device-1-2.f: Likewise.
	* testsuite/libgomp.oacc-fortran/acc_on_device-1-3.f: Likewise.
This commit is contained in:
Thomas Schwinge
2021-06-04 15:29:54 +02:00
parent 89c1a427a1
commit 97a040e987
4 changed files with 32 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
libgomp/testsuite/libgomp.oacc-c-c++-common/acc_on_device-1.c
+11
View File
@@ -19,6 +19,8 @@ main (int argc, char *argv[])
abort ();
if (acc_on_device (acc_device_nvidia))
abort ();
if (acc_on_device (acc_device_radeon))
abort ();
}
@@ -34,6 +36,8 @@ main (int argc, char *argv[])
abort ();
if (acc_on_device (acc_device_nvidia))
abort ();
if (acc_on_device (acc_device_radeon))
abort ();
}
@@ -55,6 +59,13 @@ main (int argc, char *argv[])
#else
if (acc_on_device (acc_device_nvidia))
abort ();
#endif
#if ACC_DEVICE_TYPE_radeon
if (!acc_on_device (acc_device_radeon))
abort ();
#else
if (acc_on_device (acc_device_radeon))
abort ();
#endif
}
libgomp/testsuite/libgomp.oacc-fortran/acc_on_device-1-1.f90
+7
View File
@@ -21,6 +21,7 @@ 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
if (acc_on_device (acc_device_radeon)) STOP 4
! Host via offloading fallback mode.
@@ -32,6 +33,7 @@ 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
if (acc_on_device (acc_device_radeon)) STOP 8
!$acc end parallel
@@ -49,6 +51,11 @@ if (.not. acc_on_device (acc_device_nvidia)) STOP 12
#else
if (acc_on_device (acc_device_nvidia)) STOP 13
#endif
#if ACC_DEVICE_TYPE_radeon
if (.not. acc_on_device (acc_device_radeon)) STOP 14
#else
if (acc_on_device (acc_device_radeon)) STOP 15
#endif
!$acc end parallel
#endif
libgomp/testsuite/libgomp.oacc-fortran/acc_on_device-1-2.f
+7
View File
@@ -21,6 +21,7 @@
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
IF (ACC_ON_DEVICE (ACC_DEVICE_RADEON)) STOP 4
!Host via offloading fallback mode.
@@ -32,6 +33,7 @@
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
IF (ACC_ON_DEVICE (ACC_DEVICE_RADEON)) STOP 8
!$ACC END PARALLEL
@@ -49,6 +51,11 @@
#else
IF (ACC_ON_DEVICE (ACC_DEVICE_NVIDIA)) STOP 13
#endif
#if ACC_DEVICE_TYPE_radeon
IF (.NOT. ACC_ON_DEVICE (ACC_DEVICE_RADEON)) STOP 14
#else
IF (ACC_ON_DEVICE (ACC_DEVICE_RADEON)) STOP 15
#endif
!$ACC END PARALLEL
#endif
libgomp/testsuite/libgomp.oacc-fortran/acc_on_device-1-3.f
+7
View File
@@ -21,6 +21,7 @@
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
IF (ACC_ON_DEVICE (ACC_DEVICE_RADEON)) STOP 4
!Host via offloading fallback mode.
@@ -32,6 +33,7 @@
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
IF (ACC_ON_DEVICE (ACC_DEVICE_RADEON)) STOP 8
!$ACC END PARALLEL
@@ -49,6 +51,11 @@
#else
IF (ACC_ON_DEVICE (ACC_DEVICE_NVIDIA)) STOP 13
#endif
#if ACC_DEVICE_TYPE_radeon
IF (.NOT. ACC_ON_DEVICE (ACC_DEVICE_RADEON)) STOP 14
#else
IF (ACC_ON_DEVICE (ACC_DEVICE_RADEON)) STOP 15
#endif
!$ACC END PARALLEL
#endif