06eb10dadf
This does a global rename from `flang-new` to `flang`. I also removed/changed any TODOs that I found related to making this change. --------- Co-authored-by: H. Vetinari <h.vetinari@gmx.com> Co-authored-by: Andrzej Warzynski <andrzej.warzynski@arm.com>
17 lines
410 B
Fortran
17 lines
410 B
Fortran
! Check that for parallel do, reduction is only processed for the loop
|
|
|
|
! RUN: bbc -fopenmp -emit-hlfir %s -o - | FileCheck %s
|
|
! RUN: flang -fc1 -fopenmp -emit-hlfir %s -o - | FileCheck %s
|
|
|
|
! CHECK: omp.parallel {
|
|
! CHECK: omp.wsloop reduction(@add_reduction_i32
|
|
subroutine sb
|
|
integer :: x
|
|
x = 0
|
|
!$omp parallel do reduction(+:x)
|
|
do i=1,100
|
|
x = x + 1
|
|
end do
|
|
!$omp end parallel do
|
|
end subroutine
|