libgomp/testsuite/libgomp.oacc-fortran/lib-5.f90

   1 ! { dg-do run }
   2
   3 program main
   4   use openacc
   5   implicit none
   6
   7   integer n
   8
   9   if (acc_get_num_devices (acc_device_nvidia) .ne. 0) then
  10
  11      call acc_init (acc_device_nvidia)
  12
  13      n = 0
  14
  15      call acc_set_device_num (n, acc_device_nvidia)
  16
  17      if (acc_get_device_num (acc_device_nvidia) .ne. 0) stop 11
  18
  19      if (acc_get_num_devices (acc_device_nvidia) .gt. 1) then
  20
  21         n = 1
  22
  23         call acc_set_device_num (n, acc_device_nvidia)
  24
  25         if (acc_get_device_num (acc_device_nvidia) .ne. 1) stop 12
  26
  27      end if
  28
  29      call acc_shutdown (acc_device_nvidia)
  30
  31   end if
  32
  33   if (acc_get_num_devices (acc_device_radeon) .ne. 0) then
  34
  35      call acc_init (acc_device_radeon)
  36
  37      n = 0
  38
  39      call acc_set_device_num (n, acc_device_radeon)
  40
  41      if (acc_get_device_num (acc_device_radeon) .ne. 0) stop 21
  42
  43      if (acc_get_num_devices (acc_device_radeon) .gt. 1) then
  44
  45         n = 1
  46
  47         call acc_set_device_num (n, acc_device_radeon)
  48
  49         if (acc_get_device_num (acc_device_radeon) .ne. 1) stop 22
  50
  51      end if
  52
  53      call acc_shutdown (acc_device_radeon)
  54
  55   end if
  56
  57 end program