| // Test hlfir.destroy code generation and hlfir.yield_element "implicit |
| // hlfir.destroy" aspect. |
| |
| // RUN: fir-opt %s -bufferize-hlfir | FileCheck %s |
| |
| func.func @test_move_with_cleanup(%arg0 : !fir.ref<!fir.array<100xi32>>) { |
| %must_free = arith.constant true |
| %expr = hlfir.as_expr %arg0 move %must_free: (!fir.ref<!fir.array<100xi32>>, i1) -> !hlfir.expr<100xi32> |
| hlfir.destroy %expr : !hlfir.expr<100xi32> |
| return |
| } |
| // CHECK-LABEL: func.func @test_move_with_cleanup( |
| // CHECK-SAME: %[[VAL_0:.*]]: !fir.ref<!fir.array<100xi32>>) { |
| // CHECK: %[[VAL_5:.*]] = fir.convert %[[VAL_0]] : (!fir.ref<!fir.array<100xi32>>) -> !fir.heap<!fir.array<100xi32>> |
| // CHECK: fir.freemem %[[VAL_5]] : !fir.heap<!fir.array<100xi32>> |
| |
| func.func @test_move_no_cleanup(%arg0 : !fir.ref<!fir.array<100xi32>>) { |
| %must_free = arith.constant false |
| %expr = hlfir.as_expr %arg0 move %must_free: (!fir.ref<!fir.array<100xi32>>, i1) -> !hlfir.expr<100xi32> |
| hlfir.destroy %expr : !hlfir.expr<100xi32> |
| return |
| } |
| // CHECK-LABEL: func.func @test_move_no_cleanup( |
| // CHECK-NOT: fir.freemem |
| // CHECK: return |
| |
| func.func @test_elemental() { |
| %c100 = arith.constant 100 : index |
| %c20 = arith.constant 20 : index |
| %0 = fir.shape %c100 : (index) -> !fir.shape<1> |
| %3 = hlfir.elemental %0 typeparams %c20 : (!fir.shape<1>, index) -> !hlfir.expr<100x!fir.char<1,20>> { |
| ^bb0(%i: index): |
| %buffer = fir.allocmem !fir.char<1,20> |
| %must_free = arith.constant true |
| %expr = hlfir.as_expr %buffer move %must_free: (!fir.heap<!fir.char<1,20>>, i1) -> !hlfir.expr<!fir.char<1,20>> |
| hlfir.yield_element %expr : !hlfir.expr<!fir.char<1,20>> |
| } |
| return |
| } |
| // CHECK-LABEL: func.func @test_elemental( |
| // CHECK: fir.do_loop |
| // CHECK: %[[VAL_9:.*]] = fir.allocmem !fir.char<1,20> |
| // CHECK: hlfir.assign %[[VAL_9]] to %{{.*}} : !fir.heap<!fir.char<1,20>>, !fir.ref<!fir.char<1,20>> |
| // CHECK: fir.freemem %[[VAL_9]] : !fir.heap<!fir.char<1,20>> |
| // CHECK: } |
| // CHECK: return |
| |
| func.func @test_elemental_expr_created_outside_of_loops() { |
| %buffer = fir.allocmem !fir.char<1,20> |
| %must_free = arith.constant true |
| %expr = hlfir.as_expr %buffer move %must_free: (!fir.heap<!fir.char<1,20>>, i1) -> !hlfir.expr<!fir.char<1,20>> |
| %c100 = arith.constant 100 : index |
| %c20 = arith.constant 20 : index |
| %0 = fir.shape %c100 : (index) -> !fir.shape<1> |
| %3 = hlfir.elemental %0 typeparams %c20 : (!fir.shape<1>, index) -> !hlfir.expr<100x!fir.char<1,20>> { |
| ^bb0(%i: index): |
| // No freemem should be inserted inside the loops. |
| hlfir.yield_element %expr : !hlfir.expr<!fir.char<1,20>> |
| } |
| hlfir.destroy %expr : !hlfir.expr<!fir.char<1,20>> |
| return |
| } |
| // CHECK-LABEL: func.func @test_elemental_expr_created_outside_of_loops() { |
| // CHECK: %[[VAL_9:.*]] = fir.allocmem !fir.char<1,20> |
| // CHECK: fir.do_loop |
| // CHECK: hlfir.assign %[[VAL_9]] to %{{.*}} : !fir.heap<!fir.char<1,20>>, !fir.ref<!fir.char<1,20>> |
| // CHECK-NOT: fir.freemem |
| // CHECK: } |
| // CHECK: fir.freemem %[[VAL_9]] : !fir.heap<!fir.char<1,20>> |
| // CHECK: return |