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 6subroutine 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 13end subroutine 14