| ! 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 |