URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [extended_char_comparison_1.f] - Blame information for rev 154

Details | Compare with Previous | View Log


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

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

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [extended_char_comparison_1.f] - Blame information for rev 154