19 lines · plain
1! RUN: %flang_fc1 -fopenmp -fsyntax-only %s2 3subroutine s4 integer, pointer :: p5 integer, target :: t6 real(4), allocatable :: arr7 8 !$omp parallel private(p)9 p=>t10 !$omp end parallel11 12 allocate(arr)13 !$omp parallel private(arr)14 if (.not. allocated(arr)) then15 print *, 'not allocated'16 endif17 !$omp end parallel18end subroutine19