16 lines
301 B
Fortran
16 lines
301 B
Fortran
! 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
|