flang/test/Lower/Intrinsics/lge_lgt_lle_llt.f90

   1 ! RUN: bbc -emit-fir %s -o - | FileCheck %s
   2
   3 subroutine lge_test
   4     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: BeginExternalListOutput
   9     ! CHECK: fir.do_loop
  10     ! CHECK: CharacterCompareScalar1
  11     ! CHECK: OutputDescriptor
  12     ! CHECK: EndIoStatement
  13     print*, lge(c1, c2)
  14     ! CHECK: BeginExternalListOutput
  15     ! CHECK: fir.do_loop
  16     ! CHECK: CharacterCompareScalar1
  17     ! CHECK: OutputDescriptor
  18     ! CHECK: EndIoStatement
  19     print*, lgt(c1, c2)
  20     ! CHECK: BeginExternalListOutput
  21     ! CHECK: fir.do_loop
  22     ! CHECK: CharacterCompareScalar1
  23     ! CHECK: OutputDescriptor
  24     ! CHECK: EndIoStatement
  25     print*, lle(c1, c2)
  26     ! CHECK: BeginExternalListOutput
  27     ! CHECK: fir.do_loop
  28     ! CHECK: CharacterCompareScalar1
  29     ! CHECK: OutputDescriptor
  30     ! CHECK: EndIoStatement
  31     print*, llt(c1, c2)
  32   end
  33