forked from OSchip/llvm-project
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
|