31 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp2! OpenMP Version 5.13! Check OpenMP construct validity for the following directives:4! 2.21.2 Threadprivate Directive5 6program main7 call sub1()8 print *, 'pass'9end program main10 11subroutine sub1()12 common /c/ a13 !$omp threadprivate(/c/)14 integer :: a15 16 a = 10017 call sub2()18 if (a .ne. 101) print *, 'err'19 20contains21 subroutine sub2()22 common /c/ a23 !$omp threadprivate(/c/)24 integer :: a25 26 !$omp parallel copyin(/c/)27 a = a + 128 !$omp end parallel29 end subroutine30end subroutine31