11 lines · plain
1! RUN: bbc -emit-fir -hlfir=false %s -o - | FileCheck %s2 3! CHECK-LABEL: compare4subroutine compare(x, c1, c2)5 character(len=4) c1, c26 logical x7 ! CHECK: %[[RES:.*]] = fir.call @_FortranACharacterCompareScalar18 ! CHECK: cmpi slt, %[[RES]],9 x = c1 < c210end subroutine compare11