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.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [pr15140.f90] - Diff between revs 302 and 384

Rev 302	Rev 384
`! { dg-do run }`	`! { dg-do run }`
`! PR 15140: we used to fail an assertion, because we don't use the`	`! PR 15140: we used to fail an assertion, because we don't use the`
`! argument of the subroutine directly, but instead use a copy of it.`	`! argument of the subroutine directly, but instead use a copy of it.`
`function M(NAMES)`	`function M(NAMES)`
`CHARACTER() NAMES(*)`	`CHARACTER() NAMES(*)`
`if (any(names(1:2).ne."asdfg")) call abort`	`if (any(names(1:2).ne."asdfg")) call abort`
`m = LEN(NAMES(1))`	`m = LEN(NAMES(1))`
`END function M`	`END function M`

`character(5) :: c(2)`	`character(5) :: c(2)`
`c = "asdfg"`	`c = "asdfg"`
`if(m(c).ne.5) call abort()`	`if(m(c).ne.5) call abort()`
`end`	`end`