937cbce14c
This seems to have caused some regressions in Fujitsu's test-suite: https://linaro.atlassian.net/browse/LLVM-1521 This reverts commit 6f82408bb53f57a859953d8f1114f1634a5d3ee9.
21 lines
427 B
Fortran
21 lines
427 B
Fortran
! 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.wsloop reduction(@max_i32
|
|
! CHECK: arith.cmpi sgt
|
|
! CHECK: arith.select
|
|
|
|
module m1
|
|
intrinsic max
|
|
end module m1
|
|
program main
|
|
use m1, ren=>max
|
|
n=0
|
|
!$omp parallel do reduction(ren:n)
|
|
do i=1,100
|
|
n=max(n,i)
|
|
end do
|
|
if (n/=100) print *,101
|
|
print *,'pass'
|
|
end program main
|