29 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang -fopenmp2!3! OpenMP 5.2: 5.2 threadprivate directive restriction4 5subroutine task_untied01()6 integer, save :: var_01, var_02(2)7 real :: var_038 common /c/ var_039 10 !$omp threadprivate(var_01, var_02)11 !$omp threadprivate(/c/)12 13 !$omp task untied14 !ERROR: A THREADPRIVATE variable `var_01` cannot appear in an UNTIED TASK region15 var_01 = 1016 !ERROR: A THREADPRIVATE variable `var_02` cannot appear in an UNTIED TASK region17 !ERROR: A THREADPRIVATE variable `var_01` cannot appear in an UNTIED TASK region18 var_02(1) = sum([var_01, 20])19 !$omp end task20 21 !$omp task untied22 !ERROR: A THREADPRIVATE variable `var_02` cannot appear in an UNTIED TASK region23 !ERROR: A THREADPRIVATE variable `var_02` cannot appear in an UNTIED TASK region24 var_02(2) = product(var_02)25 !ERROR: A THREADPRIVATE variable `var_03` cannot appear in an UNTIED TASK region26 var_03 = 3.1427 !$omp end task28end subroutine task_untied0129