flang/test/Semantics/OpenMP/threadprivate07.f90

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