| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657 |
- ! { dg-do run }
- program main
- use openacc
- implicit none
- integer n
- if (acc_get_num_devices (acc_device_nvidia) .ne. 0) then
- 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) 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
- call acc_init (acc_device_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
|
