brintos

brintos / llvm-project-archived public Read only

0
0
Text · 301 B · c9a006c Raw
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