! RUN: bbc -emit-fir %s -o - | FileCheck %s
subroutine lge_test
character*3 :: c1(3)
character*7 :: c2(3)
! c1(1) = 'a'; c1(2) = 'B'; c1(3) = 'c';
! c2(1) = 'A'; c2(2) = 'b'; c2(3) = 'c';
! CHECK: BeginExternalListOutput
! CHECK: fir.do_loop
! CHECK: CharacterCompareScalar1
! CHECK: OutputDescriptor
! CHECK: EndIoStatement
print*, lge(c1, c2)
! CHECK: BeginExternalListOutput
! CHECK: fir.do_loop
! CHECK: CharacterCompareScalar1
! CHECK: OutputDescriptor
! CHECK: EndIoStatement
print*, lgt(c1, c2)
! CHECK: BeginExternalListOutput
! CHECK: fir.do_loop
! CHECK: CharacterCompareScalar1
! CHECK: OutputDescriptor
! CHECK: EndIoStatement
print*, lle(c1, c2)
! CHECK: BeginExternalListOutput
! CHECK: fir.do_loop
! CHECK: CharacterCompareScalar1
! CHECK: OutputDescriptor
! CHECK: EndIoStatement
print*, llt(c1, c2)
end