1! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp 2 3! Check Threadprivate Directive with local variable of a BLOCK construct. 4 5program main 6 call sub1() 7 print *, 'pass' 8end program main 9 10subroutine sub1() 11 BLOCK 12 integer, save :: a 13 !$omp threadprivate(a) 14 END BLOCK 15end subroutine 16