flang/test/Semantics/OpenMP/threadprivate07.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp

! Check Threadprivate Directive with local variable of a BLOCK construct.

program main
  call sub1()
  print *, 'pass'
end program main

subroutine sub1()
  BLOCK
    integer, save :: a
    !$omp threadprivate(a)
  END BLOCK
end subroutine