! RUN: bbc -emit-hlfir -fopenmp -o - %s 2>&1 | FileCheck %s
! RUN: %flang_fc1 -emit-hlfir -fopenmp -o - %s 2>&1 | FileCheck %s

! CHECK: omp.declare_reduction @[[RED:.*]] : i32 init {

! CHECK: func.func @_QPreduction_teams() {
subroutine reduction_teams()
  integer :: i
  i = 0

  ! CHECK: omp.teams reduction(@[[RED]] %{{.*}}#0 -> %[[PRIV_I:.*]] : !fir.ref<i32>) {
  !$omp teams reduction(+:i)
    ! CHECK: %[[DECL_I:.*]]:2 = hlfir.declare %[[PRIV_I]]
    ! CHECK: %{{.*}} = fir.load %[[DECL_I]]#0 : !fir.ref<i32>
    ! CHECK: hlfir.assign %{{.*}} to %[[DECL_I]]#0 : i32, !fir.ref<i32>
    i = i + 1
  !$omp end teams
end subroutine reduction_teams