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