34 lines · plain
1! RUN: bbc -emit-fir -hlfir=false %s -o - | FileCheck %s2 3subroutine lge_test4 character*3 :: c1(3)5 character*7 :: c2(3)6 ! c1(1) = 'a'; c1(2) = 'B'; c1(3) = 'c';7 ! c2(1) = 'A'; c2(2) = 'b'; c2(3) = 'c';8 ! CHECK: BeginExternalListOutput9 ! CHECK: fir.do_loop10 ! CHECK: CharacterCompareScalar111 ! CHECK: OutputDescriptor12 ! CHECK: EndIoStatement13 print*, lge(c1, c2)14 ! CHECK: BeginExternalListOutput15 ! CHECK: fir.do_loop16 ! CHECK: CharacterCompareScalar117 ! CHECK: OutputDescriptor18 ! CHECK: EndIoStatement19 print*, lgt(c1, c2)20 ! CHECK: BeginExternalListOutput21 ! CHECK: fir.do_loop22 ! CHECK: CharacterCompareScalar123 ! CHECK: OutputDescriptor24 ! CHECK: EndIoStatement25 print*, lle(c1, c2)26 ! CHECK: BeginExternalListOutput27 ! CHECK: fir.do_loop28 ! CHECK: CharacterCompareScalar129 ! CHECK: OutputDescriptor30 ! CHECK: EndIoStatement31 print*, llt(c1, c2)32 end33 34