Subversion Repositories openrisc

! { dg-do run }

! { dg-options "-std=legacy" }

!

! 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