extended_char_comparison_1.f

来自「用于进行gcc测试」· F 代码 · 共 8 行

! { 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 = '