repo.or.cz
/
llvm-project.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Break circular dependency between FIR dialect and utilities
[llvm-project.git]
/
flang
/
test
/
Lower
/
character-compare.f90
blob
e3587cdf11e0262906ea4ff5b6457c369ebb9711
1
! RUN: bbc %s -o - | FileCheck %s
2
3
! CHECK-LABEL: compare
4
subroutine
compare
(
x
,
c1
,
c2
)
5
character
(
len
=
4
)
c1
,
c2
6
logical
x
7
! CHECK: %[[RES:.*]] = fir.call @_FortranACharacterCompareScalar1
8
! CHECK: cmpi slt, %[[RES]],
9
x
=
c1
<
c2
10
end subroutine
compare