diff options
Diffstat (limited to 'libgomp/testsuite/libgomp.oacc-fortran/lib-4.f90')
| -rw-r--r-- | libgomp/testsuite/libgomp.oacc-fortran/lib-4.f90 | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/lib-4.f90 b/libgomp/testsuite/libgomp.oacc-fortran/lib-4.f90 index 3a2b661..d03f4ac 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/lib-4.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/lib-4.f90 @@ -6,25 +6,25 @@ program main integer n - if (acc_get_num_devices (acc_device_host) .ne. 1) call abort + if (acc_get_num_devices (acc_device_host) .ne. 1) STOP 1 - if (acc_get_num_devices (acc_device_none) .ne. 0) call abort + if (acc_get_num_devices (acc_device_none) .ne. 0) STOP 2 call acc_init (acc_device_host) - if (acc_get_device_type () .ne. acc_device_host) call abort + if (acc_get_device_type () .ne. acc_device_host) STOP 3 call acc_set_device_type (acc_device_host) - if (acc_get_device_type () .ne. acc_device_host) call abort + if (acc_get_device_type () .ne. acc_device_host) STOP 4 n = 0 call acc_set_device_num (n, acc_device_host) - if (acc_get_device_num (acc_device_host) .ne. 0) call abort + if (acc_get_device_num (acc_device_host) .ne. 0) STOP 5 - if (.NOT. acc_async_test (n) ) call abort + if (.NOT. acc_async_test (n) ) STOP 6 call acc_wait (n) |