libgomp/testsuite/libgomp.oacc-fortran/declare-4.f90

   1 ! { dg-do run }
   2
   3 module vars
   4   implicit none
   5   real b
   6  !$acc declare create (b)
   7 end module vars
   8
   9 program test
  10   use vars
  11   use openacc
  12   implicit none
  13   real a
  14
  15   if (acc_is_present (b) .neqv. .true.) call abort
  16
  17   a = 2.0
  18
  19   !$acc parallel copy (a)
  20     b = a
  21     a = 1.0
  22     a = a + b
  23    !$acc end parallel
  24
  25   if (acc_is_present (b) .neqv. .true.) call abort
  26
  27   if (a .ne. 3.0) call abort
  28
  29 end program test