13323a4bdSKiran Chandramohan!RUN: %python %S/../test_errors.py %s %flang -fopenmp 23323a4bdSKiran Chandramohan! OpenMP Version 4.5 33323a4bdSKiran Chandramohan! 2.15.3.3 parallel private Clause 43323a4bdSKiran Chandramohanprogram omp_parallel_private 53323a4bdSKiran Chandramohan integer :: i, j, a(10), b(10), c(10) 63323a4bdSKiran Chandramohan integer :: k = 10 73323a4bdSKiran Chandramohan integer :: array(10) 83323a4bdSKiran Chandramohan 93323a4bdSKiran Chandramohan do i = 1, 10 103323a4bdSKiran Chandramohan array(i) = i 113323a4bdSKiran Chandramohan end do 123323a4bdSKiran Chandramohan 13*0661af89SKiran Chandramohan !ERROR: A variable that is part of another variable (as an array or structure element) cannot appear in a PRIVATE clause 143323a4bdSKiran Chandramohan !$omp parallel private(array(i)) 153323a4bdSKiran Chandramohan do i = 1, 10 163323a4bdSKiran Chandramohan c(i) = a(i) + b(i) + k 173323a4bdSKiran Chandramohan array(i) = k 183323a4bdSKiran Chandramohan end do 193323a4bdSKiran Chandramohan !$omp end parallel 203323a4bdSKiran Chandramohanend program omp_parallel_private 21