! { 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