gcc/testsuite/gfortran.dg/character_comparison_9.f90

   1 ! { dg-do run }
   2 ! { dg-options "-fdump-tree-original" }
   3 program main
   4   character (len=2) :: a, b
   5   character (kind=4,len=4) :: c,d
   6   a = 'ab'
   7   b = 'aa'
   8   if (a < b) call abort
   9   c = 4_"aaaa"
  10   d = 4_"aaab"
  11   if (c == d) call abort
  12   if (c > d) call abort
  13 end program main
  14 ! { dg-final { scan-tree-dump-times "_gfortran_compare_string_char4" 1 "original" } }
  15 ! { dg-final { scan-tree-dump-times "__builtin_memcmp" 2 "original" } }