! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp

! Test to check that no errors are present when allocate statements
! are applied on privatised variables.

subroutine s
  implicit none
  double precision,allocatable,dimension(:) :: r
  !$omp parallel private(r)
  allocate(r(1))
  deallocate(r)
  !$omp end parallel
end subroutine