flang/test/Semantics/OpenMP/declare-reduction-dupsym.f90

! RUN: not %flang_fc1 -fopenmp -fopenmp-version=50 %s 2>&1 | FileCheck %s

!! Check for duplicate symbol use.
subroutine dup_symbol()
  type :: loc
     integer :: x
     integer :: y
  end type loc

  integer :: my_red

!CHECK: error: Duplicate definition of 'my_red' in DECLARE REDUCTION
  !$omp declare reduction(my_red : loc :  omp_out%x = omp_out%x + omp_in%x) initializer(omp_priv%x = 0)

end subroutine dup_symbol