! RUN: %flang_fc1 -fdebug-dump-symbols -fopenmp -fopenmp-version=50 %s | FileCheck %s
module mod
  type t
     integer::i=0
  end type t
!$omp declare reduction (+:t:omp_out%i=omp_out%i+omp_in%i) &
!$omp         initializer(omp_priv%i=0)
end module mod

!CHECK: Module scope: mod
!CHECK: op.+, PUBLIC: UserReductionDetails TYPE(t)
!CHECK: t, PUBLIC: DerivedType components: i

program main
  use mod
  integer::i
  type(t)::x1
  x1%i=0
!$omp parallel do reduction(+:x1)
  do i=1,10
     x1%i=x1%i+1
  end do
!$omp end parallel do
  print *,'pass'
end program main

!CHECK: MainProgram scope: MAIN
!CHECK: op.+: Use from op.+ in mod
!CHECK: t: Use from t in mod
!CHECK: x1 size=4 offset=4: ObjectEntity type: TYPE(t)