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/] [assumed_len.f90] - Diff between revs 149 and 154

Rev 149	Rev 154
`! { dg-do compile }`	`! { dg-do compile }`
`! Test of the patch for PR29941, in which LEN threw an error with`	`! Test of the patch for PR29941, in which LEN threw an error with`
`! an assumed size argument.`	`! an assumed size argument.`
`!`	`!`
`! Contributed by William Mitchell`	`! Contributed by William Mitchell`
`!`	`!`
`subroutine whatever(str)`	`subroutine whatever(str)`
`character(len=), dimension() :: str`	`character(len=), dimension() :: str`
`integer :: i`	`integer :: i`
`i = len(str)`	`i = len(str)`
`end subroutine whatever`	`end subroutine whatever`