libgomp/testsuite/libgomp.oacc-fortran/shutdown-1.f90

! { dg-do run }
!
! Test the OpenACC shutdown directive at run time.

use openacc

implicit none

logical :: l
integer :: n

if (acc_get_num_devices (acc_device_host) .ne. 1) stop 1

!$acc init device_type(host)

if (acc_get_device_type () .ne. acc_device_host) stop 2
if (acc_get_device_num (acc_device_host) .ne. 0) stop 3

!$acc shutdown device_type(host)

!$acc init device_type(host) device_num(0)

!$acc shutdown device_type(host) device_num(0)

l = .true.
!$acc init if (l) device_type(host)

if (acc_get_device_type () .ne. acc_device_host) stop 4

!$acc shutdown if (l) device_type(host)

n = acc_get_num_devices (acc_device_default)
!$acc shutdown if (.false.) device_num(n)

if (acc_get_num_devices (acc_device_nvidia) .ne. 0) then
  l = .true.
  !$acc init if (l) device_type(nvidia)
  if (acc_get_device_type () .ne. acc_device_nvidia) stop 5
  l = .false.
  !$acc shutdown if (l) device_type(host)
  !$acc shutdown device_type(nvidia)
end if

if (acc_get_num_devices (acc_device_radeon) .ne. 0) then
  l = .true.
  !$acc init if (l) device_type(radeon)
  if (acc_get_device_type () .ne. acc_device_radeon) stop 6
  l = .false.
  !$acc shutdown if (l) device_type(host)
  !$acc shutdown device_type(radeon)
end if

end