llvm/flang/test/Semantics/OpenMP/parallel-shared05.f90

!RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5
! 2.15.3.2 parallel shared Clause
program omp_parallel_shared
  type derived
    integer :: field(2, 3)
  end type
  integer :: field(2)
  type(derived) :: y

  ! Check that derived type fields and variables with the same name
  ! don't cause errors.
  !$omp parallel
    y%field(2, 3) = 1
    field(1) = 1
  !$omp end parallel
end program omp_parallel_shared