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