gcc/testsuite/gfortran.dg/extended_char_comparison_1.f

   1 ! { dg-do run }
   2 ! PR 27715 - the front end and the library used to have different ideas
   3 ! about ordering for characters whose encoding is above 127.
   4
   5       program main
   6       character*1 c1, c2
   7       logical a1, a2
   8       c1 = 'ç';
   9       c2 = 'c';
  10       a1 = c1 > c2;
  11       call setval(c1, c2)
  12       a2 = c1 > c2
  13       if (a1 .neqv. a2) call abort
  14       end
  15
  16       subroutine setval(c1, c2)
  17       character*1 c1, c2
  18       c1 = 'ç';
  19       c2 = 'c';
  20       end