URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [func_derived_5.f90] - Diff between revs 302 and 384

Rev 302	Rev 384
`! { dg-do "compile" }`	`! { dg-do "compile" }`
`! PR fortran/41369 - rejected empty type in function return values`	`! PR fortran/41369 - rejected empty type in function return values`

`module m`	`module m`
`type t`	`type t`
`end type t`	`end type t`
`end module`	`end module`

`type(t) function foo()`	`type(t) function foo()`
`use m`	`use m`
`foo = t()`	`foo = t()`
`end function foo`	`end function foo`

`! { dg-final { cleanup-modules "m" } }`	`! { dg-final { cleanup-modules "m" } }`