14 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp2 3! Test to check that no errors are present when allocate statements4! are applied on privatised variables.5 6subroutine s7 implicit none8 double precision,allocatable,dimension(:) :: r9 !$omp parallel private(r)10 allocate(r(1))11 deallocate(r)12 !$omp end parallel13end subroutine14