libgomp/testsuite/libgomp.oacc-fortran/pr83920.f90

   1 ! { dg-do run }
   2
   3 subroutine foo (BETA, C)
   4   real ::  C(100,100)
   5   integer :: i, j, l
   6   real, parameter :: one = 1.0
   7   real :: beta
   8
   9   !$acc parallel copy(c(1:100,1:100)) num_gangs(2)
  10   !$acc loop gang
  11   do j = 1, 100
  12      if (beta /= one) then
  13         !$acc loop vector
  14         do i = 1, 100
  15            C(i,j) = 0.0
  16         end do
  17      end if
  18   end do
  19   !$acc end parallel
  20 end subroutine foo
  21
  22 program test_foo
  23   real :: c(100,100), beta
  24   beta = 0.0
  25   c(:,:) = 1.0
  26   call foo (beta, c)
  27   if (c(1,1) /= 0.0) call abort ()
  28 end program test_foo