21 lines · plain
1! RUN: bbc -emit-hlfir -fopenmp -o - %s 2>&1 | FileCheck %s2! RUN: %flang_fc1 -emit-hlfir -fopenmp -o - %s 2>&1 | FileCheck %s3 4! CHECK: omp.wsloop private({{.*}}) reduction(@max_i325! CHECK: arith.cmpi sgt6! CHECK: arith.select7 8module m19 intrinsic max10end module m111program main12 use m1, ren=>max13 n=014 !$omp parallel do reduction(ren:n)15 do i=1,10016 n=max(n,i)17 end do18 if (n/=100) print *,10119 print *,'pass'20end program main21