mirror of
https://github.com/llvm/llvm-project.git
synced 2025-04-17 16:46:39 +00:00
c1e7296354
This patch some lowering tests for characters related operations. This patch is part of the upstreaming effort from fir-dev branch. Reviewed By: PeteSteinfeld Differential Revision: https://reviews.llvm.org/D122310 Co-authored-by: Jean Perier <jperier@nvidia.com> Co-authored-by: Eric Schweitz <eschweitz@nvidia.com> Co-authored-by: V Donaldson <vdonaldson@nvidia.com>
11 lines
262 B
Fortran
11 lines
262 B
Fortran
! RUN: bbc %s -o - | FileCheck %s
|
|
|
|
! CHECK-LABEL: compare
|
|
subroutine compare(x, c1, c2)
|
|
character(len=4) c1, c2
|
|
logical x
|
|
! CHECK: %[[RES:.*]] = fir.call @_FortranACharacterCompareScalar1
|
|
! CHECK: cmpi slt, %[[RES]],
|
|
x = c1 < c2
|
|
end subroutine compare
|