17 lines · plain
1! Check that for parallel do, reduction is only processed for the loop2 3! RUN: bbc -fopenmp -emit-hlfir %s -o - | FileCheck %s4! RUN: %flang_fc1 -fopenmp -emit-hlfir %s -o - | FileCheck %s5 6! CHECK: omp.parallel {7! CHECK: omp.wsloop private({{.*}}) reduction(@add_reduction_i328subroutine sb9 integer :: x10 x = 011 !$omp parallel do reduction(+:x)12 do i=1,10013 x = x + 114 end do15 !$omp end parallel do16end subroutine17