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