! { dg-do run }

program main
  implicit none
  include "openacc_lib.h"

  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 1

     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 2

     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 1

     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 2

     end if

     call acc_shutdown (acc_device_radeon)

  end if

end program