50 lines · plain
1// RUN: fir-opt --pass-pipeline="builtin.module(func.func(opt-bufferization))" %s | FileCheck %s2 3// Ensure optimized bufferization preserves the semantics of volatile arrays4func.func @minimal_volatile_test() {5 %c1 = arith.constant 1 : index6 %c200 = arith.constant 200 : index7 8 // Create a volatile array9 %1 = fir.address_of(@_QMtestEarray) : !fir.ref<!fir.array<200xf32>>10 %2 = fir.shape %c200 : (index) -> !fir.shape<1>11 %3 = fir.volatile_cast %1 : (!fir.ref<!fir.array<200xf32>>) -> !fir.ref<!fir.array<200xf32>, volatile>12 %4:2 = hlfir.declare %3(%2) {fortran_attrs = #fir.var_attrs<volatile>, uniq_name = "_QMtestEarray"} : (!fir.ref<!fir.array<200xf32>, volatile>, !fir.shape<1>) -> (!fir.ref<!fir.array<200xf32>, volatile>, !fir.ref<!fir.array<200xf32>, volatile>)13 14 // Create an elemental operation that negates each element15 %5 = hlfir.elemental %2 unordered : (!fir.shape<1>) -> !hlfir.expr<200xf32> {16 ^bb0(%arg1: index):17 %6 = hlfir.designate %4#0 (%arg1) : (!fir.ref<!fir.array<200xf32>, volatile>, index) -> !fir.ref<f32, volatile>18 %7 = fir.load %6 : !fir.ref<f32, volatile>19 %8 = arith.negf %7 : f3220 hlfir.yield_element %8 : f3221 }22 23 // Assign the result back to the volatile array24 hlfir.assign %5 to %4#0 : !hlfir.expr<200xf32>, !fir.ref<!fir.array<200xf32>, volatile>25 hlfir.destroy %5 : !hlfir.expr<200xf32>26 27 return28}29 30fir.global @_QMtestEarray : !fir.array<200xf32> 31 32// CHECK-LABEL: func.func @minimal_volatile_test() {33// CHECK: %[[VAL_0:.*]] = arith.constant 200 : index34// CHECK: %[[VAL_1:.*]] = fir.address_of(@_QMtestEarray) : !fir.ref<!fir.array<200xf32>>35// CHECK: %[[VAL_2:.*]] = fir.shape %[[VAL_0]] : (index) -> !fir.shape<1>36// CHECK: %[[VAL_3:.*]] = fir.volatile_cast %[[VAL_1]] : (!fir.ref<!fir.array<200xf32>>) -> !fir.ref<!fir.array<200xf32>, volatile>37// CHECK: %[[VAL_4:.*]]:2 = hlfir.declare %[[VAL_3]](%[[VAL_2]]) {fortran_attrs = #fir.var_attrs<volatile>, uniq_name = "_QMtestEarray"} : (!fir.ref<!fir.array<200xf32>, volatile>, !fir.shape<1>) -> (!fir.ref<!fir.array<200xf32>, volatile>, !fir.ref<!fir.array<200xf32>, volatile>)38// CHECK: %[[VAL_5:.*]] = hlfir.elemental %[[VAL_2]] unordered : (!fir.shape<1>) -> !hlfir.expr<200xf32> {39// CHECK: ^bb0(%[[VAL_6:.*]]: index):40// CHECK: %[[VAL_7:.*]] = hlfir.designate %[[VAL_4]]#0 (%[[VAL_6]]) : (!fir.ref<!fir.array<200xf32>, volatile>, index) -> !fir.ref<f32, volatile>41// CHECK: %[[VAL_8:.*]] = fir.load %[[VAL_7]] : !fir.ref<f32, volatile>42// CHECK: %[[VAL_9:.*]] = arith.negf %[[VAL_8]] : f3243// CHECK: hlfir.yield_element %[[VAL_9]] : f3244// CHECK: }45// CHECK: hlfir.assign %[[VAL_5]] to %[[VAL_4]]#0 : !hlfir.expr<200xf32>, !fir.ref<!fir.array<200xf32>, volatile>46// CHECK: hlfir.destroy %[[VAL_5]] : !hlfir.expr<200xf32>47// CHECK: return48// CHECK: }49// CHECK: fir.global @_QMtestEarray : !fir.array<200xf32>50