! { dg-do run } | |
! PR 27715 - the front end and the library used to have different ideas | |
! about ordering for characters whose encoding is above 127. | |
program main | |
character*1 c1, c2 | |
logical a1, a2 | |
c1 = 'ç'; | |
c2 = 'c'; | |
a1 = c1 > c2; | |
call setval(c1, c2) | |
a2 = c1 > c2 | |
if (a1 .neqv. a2) call abort | |
end | |
subroutine setval(c1, c2) | |
character*1 c1, c2 | |
c1 = 'ç'; | |
c2 = 'c'; | |
end |