! Test lowering of elemental character MIN/MAX to HLFIR
! RUN: bbc -emit-hlfir -o - %s | FileCheck %s

! Test elemental character MIN with two array arguments of the same length.
subroutine test_elemental_char_min(a, b, res)
  character(5) :: a(10), b(10), res(10)
  res = min(a, b)
end subroutine
! CHECK-LABEL:   func.func @_QPtest_elemental_char_min(
! CHECK:           %[[C5_A:.*]] = arith.constant 5 : index
! CHECK:           %[[A:.*]]:2 = hlfir.declare {{.*}}Ea"
! CHECK:           %[[C5_B:.*]] = arith.constant 5 : index
! CHECK:           %[[B:.*]]:2 = hlfir.declare {{.*}}Eb"
! CHECK:           %[[RES:.*]]:2 = hlfir.declare {{.*}}Eres"
! CHECK:           %[[CMP:.*]] = arith.cmpi sgt, %[[C5_B]], %[[C5_A]] : index
! CHECK:           %[[RESULT_LEN:.*]] = arith.select %[[CMP]], %[[C5_B]], %[[C5_A]] : index
! CHECK:           %[[ELEMENTAL:.*]] = hlfir.elemental %{{.*}} typeparams %[[RESULT_LEN]] unordered : (!fir.shape<1>, index) -> !hlfir.expr<10x!fir.char<1,?>> {
! CHECK:           ^bb0(%[[IDX:.*]]: index):
! CHECK:             %{{.*}} = hlfir.char_extremum min, %{{.*}}, %{{.*}} :
! CHECK:             hlfir.yield_element
! CHECK:           }

! Test elemental character MAX with two array arguments.
subroutine test_elemental_char_max(a, b, res)
  character(5) :: a(10), b(10), res(10)
  res = max(a, b)
end subroutine
! CHECK-LABEL:   func.func @_QPtest_elemental_char_max(
! CHECK:           %[[ELEMENTAL:.*]] = hlfir.elemental %{{.*}} typeparams %{{.*}} unordered : (!fir.shape<1>, index) -> !hlfir.expr<10x!fir.char<1,?>> {
! CHECK:           ^bb0(%[[IDX:.*]]: index):
! CHECK:             %{{.*}} = hlfir.char_extremum max, %{{.*}}, %{{.*}} :
! CHECK:             hlfir.yield_element
! CHECK:           }

! Test elemental character MIN with different argument lengths.
! The result length must be the maximum of the argument lengths.
subroutine test_elemental_char_min_diff_len(a, b, res)
  character(5) :: a(10)
  character(7) :: b(10), res(10)
  res = min(a, b)
end subroutine
! CHECK-LABEL:   func.func @_QPtest_elemental_char_min_diff_len(
! CHECK:           %[[C5:.*]] = arith.constant 5 : index
! CHECK:           %[[A:.*]]:2 = hlfir.declare {{.*}}Ea"
! CHECK:           %[[C7:.*]] = arith.constant 7 : index
! CHECK:           %[[B:.*]]:2 = hlfir.declare {{.*}}Eb"
! CHECK:           %[[CMP:.*]] = arith.cmpi sgt, %[[C7]], %[[C5]] : index
! CHECK:           %[[RESULT_LEN:.*]] = arith.select %[[CMP]], %[[C7]], %[[C5]] : index
! CHECK:           %[[ELEMENTAL:.*]] = hlfir.elemental %{{.*}} typeparams %[[RESULT_LEN]] unordered : (!fir.shape<1>, index) -> !hlfir.expr<10x!fir.char<1,?>> {

! Test elemental character MIN with three array arguments.
! The result length must be the maximum across all argument lengths.
subroutine test_elemental_char_min_three(a, b, c, res)
  character(5) :: a(10), b(10), c(10), res(10)
  res = min(a, b, c)
end subroutine
! CHECK-LABEL:   func.func @_QPtest_elemental_char_min_three(
! CHECK:           %[[C5_A:.*]] = arith.constant 5 : index
! CHECK:           %[[A:.*]]:2 = hlfir.declare {{.*}}Ea"
! CHECK:           %[[C5_B:.*]] = arith.constant 5 : index
! CHECK:           %[[B:.*]]:2 = hlfir.declare {{.*}}Eb"
! CHECK:           %[[C5_C:.*]] = arith.constant 5 : index
! CHECK:           %[[C:.*]]:2 = hlfir.declare {{.*}}Ec"
! CHECK:           %[[CMP1:.*]] = arith.cmpi sgt, %[[C5_B]], %[[C5_A]] : index
! CHECK:           %[[MAX1:.*]] = arith.select %[[CMP1]], %[[C5_B]], %[[C5_A]] : index
! CHECK:           %[[CMP2:.*]] = arith.cmpi sgt, %[[C5_C]], %[[MAX1]] : index
! CHECK:           %[[RESULT_LEN:.*]] = arith.select %[[CMP2]], %[[C5_C]], %[[MAX1]] : index
! CHECK:           %[[ELEMENTAL:.*]] = hlfir.elemental %{{.*}} typeparams %[[RESULT_LEN]] unordered : (!fir.shape<1>, index) -> !hlfir.expr<10x!fir.char<1,?>> {
! CHECK:           ^bb0(%[[IDX:.*]]: index):
! CHECK:             %{{.*}} = hlfir.char_extremum min, %{{.*}}, %{{.*}}, %{{.*}} :
! CHECK:             hlfir.yield_element
! CHECK:           }