gcc/testsuite/gfortran.dg/char_comparison_1.f

   1 C { dg-do run }
   2 C     PR 30525 - comparisons with padded spaces were done
   3 C     signed.
   4       program main
   5       character*2 c2
   6       character*1 c1, c3, c4
   7 C
   8 C  Comparison between char(255) and space padding
   9 C
  10       c2 = 'a' // char(255)
  11       c1 = 'a'
  12       if (.not. (c2 .gt. c1)) call abort
  13 C
  14 C  Comparison between char(255) and space
  15 C
  16       c3 = ' '
  17       c4 = char(255)
  18       if (.not. (c4 .gt. c3)) call abort
  19
  20 C
  21 C  Check constant folding
  22 C
  23       if (.not. ('a' // char(255) .gt. 'a')) call abort
  24
  25       if (.not. (char(255) .gt. 'a')) call abort
  26       end