22 lines · plain
1! Test do concurrent reduction2! RUN: bbc -emit-fir -hlfir=false -o - %s | FileCheck %s3 4! CHECK-LABEL: loop_test5subroutine loop_test6 integer(4) :: i, j, k, tmp, sum = 07 real :: m8 9 i = 10010 j = 20011 k = 30012 13 ! CHECK: %[[VAL_0:.*]] = fir.alloca f32 {bindc_name = "m", uniq_name = "_QFloop_testEm"}14 ! CHECK: %[[VAL_1:.*]] = fir.address_of(@_QFloop_testEsum) : !fir.ref<i32>15 ! CHECK: fir.do_concurrent.loop ({{.*}}) = ({{.*}}) to ({{.*}}) step ({{.*}}) reduce(@add_reduction_i32 #fir.reduce_attr<add> %[[VAL_1]] -> %{{.*}}, @other_reduction_f32 #fir.reduce_attr<max> %[[VAL_0]] -> %{{.*}} : {{.*}}) {16 do concurrent (i=1:5, j=1:5, k=1:5) local(tmp) reduce(+:sum) reduce(max:m)17 tmp = i + j + k18 sum = tmp + sum19 m = max(m, sum)20 enddo21end subroutine loop_test22