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


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

! 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