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