1!RUN: %S/test_errors.sh %s %t %f18 -fopenmp 2! OpenMP Version 4.5 3! 2.15.3.3 parallel private Clause 4program omp_parallel_private 5 integer :: i, j, a(10), b(10), c(10) 6 integer :: k = 10 7 type my_type 8 integer :: array(10) 9 end type my_type 10 11 type(my_type) :: my_var 12 13 !ERROR: A variable that is part of another variable (as an array or structure element) cannot appear in a PRIVATE or SHARED clause. 14 !$omp parallel private(my_var%array) 15 do i = 1, 10 16 c(i) = a(i) + b(i) + k 17 my_var%array(i) = k 18 end do 19 !$omp end parallel 20end program omp_parallel_private 21