1!RUN: %S/test_errors.sh %s %t %flang -fopenmp 2!REQUIRES: shell 3! OpenMP Version 4.5 4! 2.15.3.3 parallel private Clause 5program omp_parallel_private 6 integer :: i, j, a(10), b(10), c(10) 7 integer :: k = 10 8 type my_type 9 integer :: array(10) 10 end type my_type 11 12 type(my_type) :: my_var 13 14 real :: arr(10) 15 integer :: intx = 10 16 17 do i = 1, 10 18 arr(i) = 0.0 19 end do 20 21 !ERROR: A variable that is part of another variable (as an array or structure element) cannot appear in a PRIVATE or SHARED clause or on the ALLOCATE directive. 22 !$omp parallel private(arr,intx,my_var%array(1)) 23 do i = 1, 10 24 c(i) = a(i) + b(i) + k 25 my_var%array(i) = k+intx 26 arr(i) = k 27 end do 28 !$omp end parallel 29end program omp_parallel_private 30