| ! { dg-do run } |
| ! |
| ! Port of lib-5.f90 using !$acc init instead of call acc_init. |
| |
| program main |
| use openacc |
| implicit none |
| |
| integer n |
| |
| if (acc_get_num_devices (acc_device_nvidia) .ne. 0) then |
| |
| !$acc init device_type(nvidia) |
| |
| n = 0 |
| |
| call acc_set_device_num (n, acc_device_nvidia) |
| |
| if (acc_get_device_num (acc_device_nvidia) .ne. 0) stop 11 |
| |
| if (acc_get_num_devices (acc_device_nvidia) .gt. 1) then |
| |
| n = 1 |
| |
| call acc_set_device_num (n, acc_device_nvidia) |
| |
| if (acc_get_device_num (acc_device_nvidia) .ne. 1) stop 12 |
| |
| end if |
| |
| call acc_shutdown (acc_device_nvidia) |
| |
| end if |
| |
| if (acc_get_num_devices (acc_device_radeon) .ne. 0) then |
| |
| !$acc init device_type(radeon) |
| |
| n = 0 |
| |
| call acc_set_device_num (n, acc_device_radeon) |
| |
| if (acc_get_device_num (acc_device_radeon) .ne. 0) stop 21 |
| |
| if (acc_get_num_devices (acc_device_radeon) .gt. 1) then |
| |
| n = 1 |
| |
| call acc_set_device_num (n, acc_device_radeon) |
| |
| if (acc_get_device_num (acc_device_radeon) .ne. 1) stop 22 |
| |
| end if |
| |
| call acc_shutdown (acc_device_radeon) |
| |
| end if |
| |
| end program |
