forked from OSchip/llvm-project
33 lines
937 B
Fortran
33 lines
937 B
Fortran
! 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
|
|
|