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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [character_passing.f90] - Diff between revs 303 and 338

Rev 303	Rev 338
`! PR middle-end/20030`	`! PR middle-end/20030`
`! we were messing up the access in LSAME for`	`! we were messing up the access in LSAME for`
`! the character arguments.`	`! the character arguments.`
`program foo`	`program foo`
`character*1 a1, a2, b`	`character*1 a1, a2, b`
`logical LSAME, x`	`logical LSAME, x`
`a1='A'`	`a1='A'`
`a2='A'`	`a2='A'`
`b='B'`	`b='B'`
`x = LSAME(a1,a2)`	`x = LSAME(a1,a2)`
`if ( .not. x ) then`	`if ( .not. x ) then`
`call abort ();`	`call abort ();`
`endif`	`endif`
`end`	`end`

`logical function LSAME( CA, CB )`	`logical function LSAME( CA, CB )`
`character CA, CB`	`character CA, CB`
`integer INTA, INTB`	`integer INTA, INTB`
`INTA = ICHAR( CA )`	`INTA = ICHAR( CA )`
`INTB = ICHAR( CB )`	`INTB = ICHAR( CB )`
`LSAME = INTA.EQ.INTB`	`LSAME = INTA.EQ.INTB`
`end`	`end`