gcc/testsuite/gfortran.dg/gomp/pr36726.f90

   1 ! PR middle-end/36726
   2 ! { dg-do compile }
   3 ! { dg-options "-fopenmp" }
   4
   5 subroutine foo
   6   integer, allocatable :: vs(:)
   7   !$omp parallel private (vs)
   8   allocate (vs(10))
   9   vs = 2
  10   deallocate (vs)
  11   !$omp end parallel
  12 end subroutine foo
  13 subroutine bar
  14   integer, allocatable :: vs(:)
  15   !$omp parallel private (vs)
  16   allocate (vs(10))
  17   vs = 2
  18   deallocate (vs)
  19   !$omp end parallel
  20 end subroutine bar