// RUN: fir-opt %s -offload-livein-value-canonicalization -split-input-file | FileCheck %s

// -----

// Test fir.shape sinking
func.func private @use_box(!fir.box<!fir.heap<!fir.array<?xf32>>>) -> ()

func.func @test_firshape_sink() {
  %c10 = arith.constant 10 : index
  %shape = fir.shape %c10 : (index) -> !fir.shape<1>
  acc.serial {
    %zeroaddr = fir.zero_bits !fir.heap<!fir.array<?xf32>>
    %box = fir.embox %zeroaddr(%shape) : (!fir.heap<!fir.array<?xf32>>, !fir.shape<1>) -> !fir.box<!fir.heap<!fir.array<?xf32>>>
    fir.call @use_box(%box) : (!fir.box<!fir.heap<!fir.array<?xf32>>>) -> ()
    acc.yield
  }
  return
}

// CHECK-LABEL: @test_firshape_sink
// CHECK: acc.serial {
// CHECK:   %[[C10:.*]] = arith.constant 10 : index
// CHECK:   %[[SHAPE:.*]] = fir.shape %[[C10]]
// CHECK:   fir.embox {{.*}}(%[[SHAPE]])

// -----

// Test fir.shape rematerialization
func.func private @use_box(!fir.box<!fir.heap<!fir.array<?xf32>>>) -> ()

func.func @test_firshape_rematerialize() {
  %c10 = arith.constant 10 : index
  %shape = fir.shape %c10 : (index) -> !fir.shape<1>
  %zeroaddr = fir.zero_bits !fir.heap<!fir.array<?xf32>>
  %box = fir.embox %zeroaddr(%shape) : (!fir.heap<!fir.array<?xf32>>, !fir.shape<1>) -> !fir.box<!fir.heap<!fir.array<?xf32>>>
  fir.call @use_box(%box) : (!fir.box<!fir.heap<!fir.array<?xf32>>>) -> ()
  acc.serial {
    %addr = fir.box_addr %box : (!fir.box<!fir.heap<!fir.array<?xf32>>>) -> !fir.ref<!fir.array<?xf32>>
    %box2 = fir.embox %addr(%shape) : (!fir.ref<!fir.array<?xf32>>, !fir.shape<1>) -> !fir.box<!fir.heap<!fir.array<?xf32>>>
    fir.call @use_box(%box2) : (!fir.box<!fir.heap<!fir.array<?xf32>>>) -> ()
    acc.yield
  }
  return
}

// CHECK-LABEL: @test_firshape_rematerialize
// CHECK: %[[SHAPE_OUTER:.*]] = fir.shape
// CHECK: fir.embox {{.*}}(%[[SHAPE_OUTER]])
// CHECK: acc.serial {
// CHECK:   %[[SHAPE_INNER:.*]] = fir.shape
// CHECK:   fir.embox {{.*}}(%[[SHAPE_INNER]])

// -----

// Test fir.shape_shift sinking
func.func private @use_box(!fir.box<!fir.array<?xf32>>) -> ()

func.func @test_shapeshift_sink(%arg0: !fir.ref<!fir.array<?xf32>>) {
  %c1 = arith.constant 1 : index
  %c10 = arith.constant 10 : index
  %shapeshift = fir.shape_shift %c1, %c10 : (index, index) -> !fir.shapeshift<1>
  acc.serial {
    %box = fir.embox %arg0(%shapeshift) : (!fir.ref<!fir.array<?xf32>>, !fir.shapeshift<1>) -> !fir.box<!fir.array<?xf32>>
    fir.call @use_box(%box) : (!fir.box<!fir.array<?xf32>>) -> ()
    acc.yield
  }
  return
}

// CHECK-LABEL: @test_shapeshift_sink
// CHECK: acc.serial {
// CHECK:   fir.shape_shift
// CHECK:   fir.embox

// -----

// Test fir.field_index sinking
func.func private @use_ref(!fir.ref<f32>) -> ()

func.func @test_fieldindex_sink() {
  %var = fir.alloca !fir.type<_QTmytype{field:f32}>
  %fieldidx = fir.field_index field, !fir.type<_QTmytype{field:f32}>
  acc.serial {
    %coor = fir.coordinate_of %var, %fieldidx : (!fir.ref<!fir.type<_QTmytype{field:f32}>>, !fir.field) -> !fir.ref<f32>
    fir.call @use_ref(%coor) : (!fir.ref<f32>) -> ()
    acc.yield
  }
  return
}

// CHECK-LABEL: @test_fieldindex_sink
// CHECK: acc.serial {
// CHECK:   %[[FIELD:.*]] = fir.field_index field
// CHECK:   fir.coordinate_of {{.*}}, %[[FIELD]]

// -----

// Test fir.address_of with acc.declare sinking
fir.global @global_with_declare {acc.declare = #acc.declare<dataClause = acc_copyin>} : f32 {
  %0 = arith.constant 0.0 : f32
  fir.has_value %0 : f32
}

func.func private @use_ref(!fir.ref<f32>) -> ()

func.func @test_address_of_with_declare_sink() {
  %addr = fir.address_of(@global_with_declare) : !fir.ref<f32>
  acc.serial {
    fir.call @use_ref(%addr) : (!fir.ref<f32>) -> ()
    acc.yield
  }
  return
}

// CHECK-LABEL: @test_address_of_with_declare_sink
// CHECK: acc.serial {
// CHECK:   %[[ADDR:.*]] = fir.address_of(@global_with_declare)
// CHECK:   fir.call @use_ref(%[[ADDR]])

// -----

// Test fir.address_of with constant global sinking
fir.global @global_constant constant : f32 {
  %0 = arith.constant 42.0 : f32
  fir.has_value %0 : f32
}

func.func private @use_ref(!fir.ref<f32>) -> ()

func.func @test_address_of_constant_global_sink() {
  %addr = fir.address_of(@global_constant) : !fir.ref<f32>
  acc.serial {
    fir.call @use_ref(%addr) : (!fir.ref<f32>) -> ()
    acc.yield
  }
  return
}

// CHECK-LABEL: @test_address_of_constant_global_sink
// CHECK: acc.serial {
// CHECK:   %[[ADDR:.*]] = fir.address_of(@global_constant)
// CHECK:   fir.call @use_ref(%[[ADDR]])

// -----

// Test fir.address_of with fir.convert tracing (ViewLikeOpInterface)
fir.global @global_for_convert {acc.declare = #acc.declare<dataClause = acc_copyin>} : f32 {
  %0 = arith.constant 0.0 : f32
  fir.has_value %0 : f32
}

func.func private @use_ptr(!fir.ptr<f32>) -> ()

func.func @test_address_of_with_convert_sink() {
  %addr = fir.address_of(@global_for_convert) : !fir.ref<f32>
  %converted = fir.convert %addr : (!fir.ref<f32>) -> !fir.ptr<f32>
  acc.serial {
    fir.call @use_ptr(%converted) : (!fir.ptr<f32>) -> ()
    acc.yield
  }
  return
}

// CHECK-LABEL: @test_address_of_with_convert_sink
// CHECK: acc.serial {
// CHECK:   fir.address_of(@global_for_convert)
// CHECK:   fir.convert

// -----

// Test fir.declare with PartialEntityAccessOpInterface tracing
fir.global @global_for_declare {acc.declare = #acc.declare<dataClause = acc_copyin>} : !fir.array<10xf32> {
  %0 = fir.zero_bits !fir.array<10xf32>
  fir.has_value %0 : !fir.array<10xf32>
}

func.func private @use_ref(!fir.ref<!fir.array<10xf32>>) -> ()

func.func @test_address_of_through_declare_sink() {
  %c10 = arith.constant 10 : index
  %addr = fir.address_of(@global_for_declare) : !fir.ref<!fir.array<10xf32>>
  %shape = fir.shape %c10 : (index) -> !fir.shape<1>
  %decl = fir.declare %addr(%shape) {uniq_name = "global"} : (!fir.ref<!fir.array<10xf32>>, !fir.shape<1>) -> !fir.ref<!fir.array<10xf32>>
  acc.serial {
    fir.call @use_ref(%decl) : (!fir.ref<!fir.array<10xf32>>) -> ()
    acc.yield
  }
  return
}

// CHECK-LABEL: @test_address_of_through_declare_sink
// CHECK: acc.serial {
// CHECK-DAG:   fir.address_of(@global_for_declare)
// CHECK-DAG:   fir.shape
// CHECK:   fir.declare

// -----

// Test 2D shape sinking for array operations
func.func @test_2d_shape_sink() {
  %c3 = arith.constant 3 : index
  %c32 = arith.constant 32 : index
  %c1 = arith.constant 1 : index
  %0 = fir.alloca !fir.array<3x32xf32>
  %shape = fir.shape %c3, %c32 : (index, index) -> !fir.shape<2>
  %decl = fir.declare %0(%shape) {uniq_name = "_QFEa"} : (!fir.ref<!fir.array<3x32xf32>>, !fir.shape<2>) -> !fir.ref<!fir.array<3x32xf32>>
  acc.serial {
    %coor = fir.array_coor %decl(%shape) %c1, %c1 : (!fir.ref<!fir.array<3x32xf32>>, !fir.shape<2>, index, index) -> !fir.ref<f32>
    acc.yield
  }
  return
}

// CHECK-LABEL: @test_2d_shape_sink
// CHECK: acc.serial {
// CHECK:   fir.shape
// CHECK:   fir.array_coor

// -----

// Test acc.bounds sinking with FIR types
func.func @test_accbounds_sink_fir() {
  %c1 = arith.constant 1 : index
  %bounds = acc.bounds upperbound(%c1 : index)
  acc.serial {
    %local = fir.alloca i32
    %priv = acc.private varPtr(%local : !fir.ref<i32>) bounds(%bounds) -> !fir.ref<i32>
    acc.yield
  }
  return
}

// CHECK-LABEL: @test_accbounds_sink_fir
// CHECK: acc.serial {
// CHECK:   acc.bounds

// -----

// Test acc.bounds rematerialization with FIR types
func.func @test_accbounds_rematerialize_fir() {
  %c1 = arith.constant 1 : index
  %bounds = acc.bounds upperbound(%c1 : index)
  %local = fir.alloca i32
  %priv = acc.private varPtr(%local : !fir.ref<i32>) bounds(%bounds) -> !fir.ref<i32>
  acc.serial {
    %priv2 = acc.private varPtr(%local : !fir.ref<i32>) bounds(%bounds) -> !fir.ref<i32>
    acc.yield
  }
  return
}

// CHECK-LABEL: @test_accbounds_rematerialize_fir
// CHECK: acc.bounds
// CHECK: acc.serial {
// CHECK:   acc.bounds

// -----

// Test fir.convert rematerialization (ViewLikeOpInterface +
// OutlineRematerializationOpInterface).
func.func private @use_i64(i64) -> ()

func.func @test_convert_rematerialize(%arg0: !fir.ref<i32>) {
  %0 = fir.convert %arg0 : (!fir.ref<i32>) -> i64
  fir.call @use_i64(%0) : (i64) -> ()
  acc.parallel {
    fir.call @use_i64(%0) : (i64) -> ()
    acc.yield
  }
  return
}

// CHECK-LABEL: @test_convert_rematerialize
// CHECK: %[[CVT_OUTER:.*]] = fir.convert
// CHECK: fir.call @use_i64(%[[CVT_OUTER]])
// CHECK: acc.parallel {
// CHECK:   %[[CVT_INNER:.*]] = fir.convert
// CHECK:   fir.call @use_i64(%[[CVT_INNER]])

// -----

// Test fir.convert sinking (only used inside region).
func.func private @use_i64(i64) -> ()

func.func @test_convert_sink(%arg0: !fir.ref<i32>) {
  %0 = fir.convert %arg0 : (!fir.ref<i32>) -> i64
  acc.parallel {
    fir.call @use_i64(%0) : (i64) -> ()
    acc.yield
  }
  return
}

// CHECK-LABEL: @test_convert_sink
// CHECK: acc.parallel {
// CHECK:   %[[CVT:.*]] = fir.convert
// CHECK:   fir.call @use_i64(%[[CVT]])

// -----

// Test fir.convert sinking when input is fir.alloca (not a block argument).
func.func private @use_i64(i64) -> ()

func.func @test_convert_alloca_sink() {
  %0 = fir.alloca i32
  %1 = fir.convert %0 : (!fir.ref<i32>) -> i64
  acc.parallel {
    fir.call @use_i64(%1) : (i64) -> ()
    acc.yield
  }
  return
}

// CHECK-LABEL: @test_convert_alloca_sink
// CHECK: %[[ALLOCA:.*]] = fir.alloca i32
// CHECK: acc.parallel {
// CHECK:   %[[CVT:.*]] = fir.convert %[[ALLOCA]]
// CHECK:   fir.call @use_i64(%[[CVT]])

// -----

// Test fir.convert rematerialization when input is fir.alloca.
func.func private @use_i64(i64) -> ()

func.func @test_convert_alloca_remat() {
  %0 = fir.alloca i32
  %1 = fir.convert %0 : (!fir.ref<i32>) -> i64
  fir.call @use_i64(%1) : (i64) -> ()
  acc.parallel {
    fir.call @use_i64(%1) : (i64) -> ()
    acc.yield
  }
  return
}

// CHECK-LABEL: @test_convert_alloca_remat
// CHECK: %[[ALLOCA:.*]] = fir.alloca i32
// CHECK: %[[CVT_OUTER:.*]] = fir.convert %[[ALLOCA]]
// CHECK: fir.call @use_i64(%[[CVT_OUTER]])
// CHECK: acc.parallel {
// CHECK:   %[[CVT_INNER:.*]] = fir.convert %[[ALLOCA]]
// CHECK:   fir.call @use_i64(%[[CVT_INNER]])

// -----

// Integer-to-integer fir.convert is not an outline rematerialization candidate.
func.func private @use_i64(i64) -> ()

func.func @test_convert_integer_widen_no_remat(%arg0: !fir.ref<i32>) {
  %0 = fir.load %arg0 : !fir.ref<i32>
  %1 = fir.convert %0 : (i32) -> i64
  fir.call @use_i64(%1) : (i64) -> ()
  acc.parallel {
    fir.call @use_i64(%1) : (i64) -> ()
    acc.yield
  }
  return
}

// CHECK-LABEL: @test_convert_integer_widen_no_remat
// CHECK: fir.load
// CHECK: %[[CVT:.*]] = fir.convert
// CHECK: fir.call @use_i64(%[[CVT]])
// CHECK: acc.parallel {
// CHECK-NEXT: fir.call @use_i64(%[[CVT]])

// -----

// Pointer-to-pointer fir.convert is not a rematerialization candidate.
func.func private @use_ref_f32(!fir.ref<f32>) -> ()

func.func @test_convert_ptr_to_ptr_no_remat(%arg0: !fir.ref<i32>) {
  %0 = fir.convert %arg0 : (!fir.ref<i32>) -> !fir.ref<f32>
  fir.call @use_ref_f32(%0) : (!fir.ref<f32>) -> ()
  acc.parallel {
    fir.call @use_ref_f32(%0) : (!fir.ref<f32>) -> ()
    acc.yield
  }
  return
}

// CHECK-LABEL: @test_convert_ptr_to_ptr_no_remat
// CHECK: %[[CVT:.*]] = fir.convert %arg0
// CHECK: fir.call @use_ref_f32(%[[CVT]])
// CHECK: acc.parallel {
// CHECK-NEXT: fir.call @use_ref_f32(%[[CVT]])

// -----

// Test that an intermediate fir.convert in a trace chain
// (declare -> convert -> unboxchar) does not get rematerialized,
// while a direct ptr-to-int fir.convert is correctly sunk.
func.func private @use_i64(i64) -> ()
func.func private @use_ref(!fir.ref<!fir.char<1,10>>) -> ()

func.func @test_convert_chain_and_direct(%arg0: !fir.boxchar<1>, %arg1: !fir.ref<i32>) {
  %c10 = arith.constant 10 : index
  %0:2 = fir.unboxchar %arg0 : (!fir.boxchar<1>) -> (!fir.ref<!fir.char<1,?>>, index)
  %1 = fir.convert %0#0 : (!fir.ref<!fir.char<1,?>>) -> !fir.ref<!fir.char<1,10>>
  %2 = fir.declare %1 typeparams %c10 {uniq_name = "scalar"} : (!fir.ref<!fir.char<1,10>>, index) -> !fir.ref<!fir.char<1,10>>
  %3 = fir.convert %arg1 : (!fir.ref<i32>) -> i64
  acc.parallel {
    fir.call @use_ref(%2) : (!fir.ref<!fir.char<1,10>>) -> ()
    fir.call @use_i64(%3) : (i64) -> ()
    acc.yield
  }
  return
}

// CHECK-LABEL: @test_convert_chain_and_direct
// CHECK: %[[UNBOX:.*]]:2 = fir.unboxchar %arg0
// CHECK: %[[CVT_REF:.*]] = fir.convert %[[UNBOX]]#0
// CHECK: %[[DECL:.*]] = fir.declare %[[CVT_REF]]
// CHECK: acc.parallel {
// CHECK:   %[[CVT_INT:.*]] = fir.convert %arg1
// CHECK:   fir.call @use_ref(%[[DECL]])
// CHECK:   fir.call @use_i64(%[[CVT_INT]])

// -----

// Test fir.undefined sinking into offload region.
// fir.undefined is used in fir.slice to mark collapsed dimensions.
// After gpu-kernel-outlining, function arguments lose their defining op,
// so SliceOp::getOutputRank() can no longer identify collapsed dims.
// The pass must sink fir.undefined to preserve this information.

func.func @test_undef_slice_sink(%arg0: !fir.box<!fir.array<?x?xf32>>) {
  %c1 = arith.constant 1 : index
  %c10 = arith.constant 10 : index
  %undef = fir.undefined index
  %slice = fir.slice %c1, %c10, %c1, %c1, %undef, %undef : (index, index, index, index, index, index) -> !fir.slice<2>
  acc.serial {
    %rebox = fir.rebox %arg0 [%slice] : (!fir.box<!fir.array<?x?xf32>>, !fir.slice<2>) -> !fir.box<!fir.array<?xf32>>
    acc.yield
  }
  return
}

// CHECK-LABEL: @test_undef_slice_sink
// CHECK: acc.serial {
// CHECK:   %[[UNDEF:.*]] = fir.undefined index
// CHECK:   %[[SLICE:.*]] = fir.slice {{.*}}, %[[UNDEF]], %[[UNDEF]]
// CHECK:   fir.rebox %arg0 [%[[SLICE]]]

// -----

// Test fir.undefined rematerialization (used both inside and outside region).

func.func @test_undef_slice_rematerialize(%arg0: !fir.box<!fir.array<?x?xf32>>) {
  %c1 = arith.constant 1 : index
  %c10 = arith.constant 10 : index
  %undef = fir.undefined index
  %slice = fir.slice %c1, %c10, %c1, %c1, %undef, %undef : (index, index, index, index, index, index) -> !fir.slice<2>
  %rebox_outer = fir.rebox %arg0 [%slice] : (!fir.box<!fir.array<?x?xf32>>, !fir.slice<2>) -> !fir.box<!fir.array<?xf32>>
  acc.serial {
    %rebox_inner = fir.rebox %arg0 [%slice] : (!fir.box<!fir.array<?x?xf32>>, !fir.slice<2>) -> !fir.box<!fir.array<?xf32>>
    acc.yield
  }
  return
}

// CHECK-LABEL: @test_undef_slice_rematerialize
// CHECK: %[[UNDEF_OUTER:.*]] = fir.undefined index
// CHECK: %[[SLICE_OUTER:.*]] = fir.slice {{.*}}, %[[UNDEF_OUTER]], %[[UNDEF_OUTER]]
// CHECK: fir.rebox %arg0 [%[[SLICE_OUTER]]]
// CHECK: acc.serial {
// CHECK:   %[[UNDEF_INNER:.*]] = fir.undefined index
// CHECK:   %[[SLICE_INNER:.*]] = fir.slice {{.*}}, %[[UNDEF_INNER]], %[[UNDEF_INNER]]
// CHECK:   fir.rebox %arg0 [%[[SLICE_INNER]]]