76 lines · plain
1!RUN: %flang_fc1 -emit-hlfir -fopenmp -fopenmp-version=60 %s -o - | FileCheck %s2 3subroutine f00(x, y)4 implicit none5 integer :: x, y6 7 !$omp atomic update8 x = ((x + 1) + y) + 29end10 11!CHECK-LABEL: func.func @_QPf0012!CHECK: %[[X:[0-9]+]]:2 = hlfir.declare %arg013!CHECK: %[[Y:[0-9]+]]:2 = hlfir.declare %arg114!CHECK: %c1_i32 = arith.constant 1 : i3215!CHECK: %[[LOAD_Y:[0-9]+]] = fir.load %[[Y]]#0 : !fir.ref<i32>16!CHECK: %[[Y_1:[0-9]+]] = arith.addi %c1_i32, %[[LOAD_Y]] : i3217!CHECK: %c2_i32 = arith.constant 2 : i3218!CHECK: %[[Y_1_2:[0-9]+]] = arith.addi %[[Y_1]], %c2_i32 : i3219!CHECK: omp.atomic.update memory_order(relaxed) %[[X]]#0 : !fir.ref<i32> {20!CHECK: ^bb0(%[[ARG:arg[0-9]+]]: i32):21!CHECK: %[[ARG_P:[0-9]+]] = arith.addi %[[ARG]], %[[Y_1_2]] : i3222!CHECK: omp.yield(%[[ARG_P]] : i32)23!CHECK: }24 25 26subroutine f01(x, y)27 implicit none28 real :: x29 integer :: y30 31 !$omp atomic update32 x = (int(x) + y) + 133end34 35!CHECK-LABEL: func.func @_QPf0136!CHECK: %[[X:[0-9]+]]:2 = hlfir.declare %arg037!CHECK: %[[Y:[0-9]+]]:2 = hlfir.declare %arg138!CHECK: %[[LOAD_Y:[0-9]+]] = fir.load %[[Y]]#0 : !fir.ref<i32>39!CHECK: %c1_i32 = arith.constant 1 : i3240!CHECK: %[[Y_1:[0-9]+]] = arith.addi %[[LOAD_Y]], %c1_i32 : i3241!CHECK: omp.atomic.update memory_order(relaxed) %[[X]]#0 : !fir.ref<f32> {42!CHECK: ^bb0(%[[ARG:arg[0-9]+]]: f32):43!CHECK: %[[ARG_I:[0-9]+]] = fir.convert %[[ARG]] : (f32) -> i3244!CHECK: %[[ARG_P:[0-9]+]] = arith.addi %[[ARG_I]], %[[Y_1]] : i3245!CHECK: %[[ARG_F:[0-9]+]] = fir.convert %[[ARG_P]] : (i32) -> f3246!CHECK: omp.yield(%[[ARG_F]] : f32)47!CHECK: }48 49 50subroutine f02(x, a, b, c)51 implicit none52 integer(kind=4) :: x53 integer(kind=8) :: a, b, c54 55 !$omp atomic update56 x = ((b + a) + x) + c57end58 59!CHECK-LABEL: func.func @_QPf0260!CHECK: %[[A:[0-9]+]]:2 = hlfir.declare %arg161!CHECK: %[[B:[0-9]+]]:2 = hlfir.declare %arg262!CHECK: %[[C:[0-9]+]]:2 = hlfir.declare %arg363!CHECK: %[[X:[0-9]+]]:2 = hlfir.declare %arg064!CHECK: %[[LOAD_B:[0-9]+]] = fir.load %[[B]]#0 : !fir.ref<i64>65!CHECK: %[[LOAD_A:[0-9]+]] = fir.load %[[A]]#0 : !fir.ref<i64>66!CHECK: %[[A_B:[0-9]+]] = arith.addi %[[LOAD_B]], %[[LOAD_A]] : i6467!CHECK: %[[LOAD_C:[0-9]+]] = fir.load %[[C]]#0 : !fir.ref<i64>68!CHECK: %[[A_B_C:[0-9]+]] = arith.addi %[[A_B]], %[[LOAD_C]] : i6469!CHECK: omp.atomic.update memory_order(relaxed) %[[X]]#0 : !fir.ref<i32> {70!CHECK: ^bb0(%[[ARG:arg[0-9]+]]: i32):71!CHECK: %[[ARG_8:[0-9]+]] = fir.convert %[[ARG]] : (i32) -> i6472!CHECK: %[[ARG_P:[0-9]+]] = arith.addi %[[ARG_8]], %[[A_B_C]] : i6473!CHECK: %[[ARG_4:[0-9]+]] = fir.convert %[[ARG_P]] : (i64) -> i3274!CHECK: omp.yield(%[[ARG_4]] : i32)75!CHECK: }76