! Test declare create with allocatable scalars.

! { dg-do run }

program main
  use openacc
  implicit none
  integer, parameter :: n = 100
  integer, allocatable :: a, c
  integer :: i, b(n)
  !$acc declare create (c)

  allocate (a)

  a = 50

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

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

  allocate (c)
  a = 100

  if (.not.acc_is_present(c)) stop 2

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

  !$acc update host(c)
  if (c /= a) stop 3

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

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

  deallocate (a, c)
end program main