16 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp2 3! Check Threadprivate Directive with local variable of a BLOCK construct.4 5program main6 call sub1()7 print *, 'pass'8end program main9 10subroutine sub1()11 BLOCK12 integer, save :: a13 !$omp threadprivate(a)14 END BLOCK15end subroutine16