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

Rev 149	Rev 154
`! { dg-do compile }`	`! { dg-do compile }`
`! Tests the fix for PR24557 in which the return of a`	`! Tests the fix for PR24557 in which the return of a`
`! temporary character(*) array would cause an ICE.`	`! temporary character(*) array would cause an ICE.`
`!`	`!`
`! Test case provided by Erik Edelmann`	`! Test case provided by Erik Edelmann`
`!`	`!`
`character(4) :: a(2)`	`character(4) :: a(2)`
`print *, fun (a)`	`print *, fun (a)`
`contains`	`contains`
`function fun (arg)`	`function fun (arg)`
`character (*) :: arg (10)`	`character (*) :: arg (10)`
`integer :: fun(size(arg))`	`integer :: fun(size(arg))`
`fun = 1`	`fun = 1`
`end function fun`	`end function fun`
`end`	`end`