29 lines · plain
1!RUN: %python %S/../test_errors.py %s %flang -fopenmp2! OpenMP Version 4.53! 2.15.3.3 parallel private Clause4program omp_parallel_private5 integer :: i, j, a(10), b(10), c(10)6 integer :: k = 107 type my_type8 integer :: array(10)9 end type my_type10 11 type(my_type) :: my_var12 13 real :: arr(10)14 integer :: intx = 1015 16 do i = 1, 1017 arr(i) = 0.018 end do19 20 !ERROR: A variable that is part of another variable (as an array or structure element) cannot appear in a PRIVATE clause21 !$omp parallel private(arr,intx,my_var%array(1))22 do i = 1, 1023 c(i) = a(i) + b(i) + k24 my_var%array(i) = k+intx25 arr(i) = k26 end do27 !$omp end parallel28end program omp_parallel_private29