! 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 |