2010-12-20 Tobias Burnus <burnus@net-b.de>

[official-gcc.git] / gcc / testsuite / gfortran.dg / gomp / pr36726.f90

! PR middle-end/36726
! { dg-do compile }
! { dg-options "-fopenmp" }

subroutine foo
  integer, allocatable :: vs(:)
  !$omp parallel private (vs)
  allocate (vs(10))
  vs = 2
  deallocate (vs)
  !$omp end parallel
end subroutine foo
subroutine bar
  integer, allocatable :: vs(:)
  !$omp parallel private (vs)
  allocate (vs(10))
  vs = 2
  deallocate (vs)
  !$omp end parallel
end subroutine bar