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