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

   1 use openacc
   2
   3 if (acc_get_num_devices (acc_device_host) .ne. 1) call abort
   4 call acc_set_device_type (acc_device_host)
   5 if (acc_get_device_type () .ne. acc_device_host) call abort
   6 call acc_set_device_num (0, acc_device_host)
   7 if (acc_get_device_num (acc_device_host) .ne. 0) call abort
   8 call acc_shutdown (acc_device_host)
   9
  10 call acc_init (acc_device_host)
  11 call acc_shutdown (acc_device_host)
  12
  13 end