1f46f5a01STom Eccles! Check that for parallel do, reduction is only processed for the loop 2f46f5a01STom Eccles 3f46f5a01STom Eccles! RUN: bbc -fopenmp --force-byref-reduction -emit-hlfir %s -o - | FileCheck %s 406eb10daSBrad Richardson! RUN: flang -fc1 -fopenmp -mmlir --force-byref-reduction -emit-hlfir %s -o - | FileCheck %s 5f46f5a01STom Eccles 6f46f5a01STom Eccles! CHECK: omp.parallel { 7*937cbce1SKareem Ergawy! CHECK: omp.wsloop reduction(byref @add_reduction_byref_i32 8f46f5a01STom Ecclessubroutine sb 9f46f5a01STom Eccles integer :: x 10f46f5a01STom Eccles x = 0 11f46f5a01STom Eccles !$omp parallel do reduction(+:x) 12f46f5a01STom Eccles do i=1,100 13f46f5a01STom Eccles x = x + 1 14f46f5a01STom Eccles end do 15f46f5a01STom Eccles !$omp end parallel do 16f46f5a01STom Ecclesend subroutine 17