Break circular dependency between FIR dialect and utilities
[llvm-project.git] / flang / test / Semantics / OpenMP / parallel-private01.f90
blob0f7ffcabda6bbafea1e38050f6f3126c5413c8df
1 !RUN: %python %S/../test_errors.py %s %flang -fopenmp
2 ! OpenMP Version 4.5
3 ! 2.15.3.3 parallel private Clause
4 program 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
11 type(my_type) :: my_var
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
20 end program omp_parallel_private