1! { dg-do run } 2 3subroutine 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 20end subroutine foo 21 22program 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) STOP 1 28end program test_foo 29