| 1234567891011121314151617181920212223242526272829303132 |
- ! { dg-do run }
- program main
- use openacc
- implicit none
- integer n
- if (acc_get_num_devices (acc_device_nvidia) .eq. 0) call exit
- call acc_init (acc_device_nvidia)
- n = 0
- call acc_set_device_num (n, acc_device_nvidia)
- if (acc_get_device_num (acc_device_nvidia) .ne. 0) call abort
- 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) call abort
- end if
- call acc_shutdown (acc_device_nvidia)
- end program
|
