! Test non-declared allocatable scalars in OpenACC data clauses.

! { dg-do run }

program main
  implicit none
  integer, parameter :: n = 100
  integer, allocatable :: a, c
  integer :: i, b(n)

  allocate (a)

  a = 50

  !$acc parallel loop
  do i = 1, n;
     b(i) = a
  end do

  do i = 1, n
     if (b(i) /= a) stop 1
  end do

  allocate (c)

  !$acc parallel copyout(c) num_gangs(1)
  c = a
  !$acc end parallel

  if (c /= a) stop 2

  deallocate (a, c)
end program main