flang/test/Semantics/OpenMP/dealloc.f90

   1 ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
   2
   3 ! Test to check that no errors are present when allocate statements
   4 ! are applied on privatised variables.
   5
   6 subroutine s
   7   implicit none
   8   double precision,allocatable,dimension(:) :: r
   9   !$omp parallel private(r)
  10   allocate(r(1))
  11   deallocate(r)
  12   !$omp end parallel
  13 end subroutine