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/] [function_types_1.f90] - Diff between revs 302 and 384

Rev 302	Rev 384
`! { dg-do compile }`	`! { dg-do compile }`
`! Tests the fix for PR34431 in which function TYPEs that were`	`! Tests the fix for PR34431 in which function TYPEs that were`
`! USE associated would cause an error.`	`! USE associated would cause an error.`
`!`	`!`
`! Contributed by Tobias Burnus`	`! Contributed by Tobias Burnus`
`!`	`!`
`module bar`	`module bar`
`contains`	`contains`
`type(non_exist) function func2() ! { dg-error "not accessible" }`	`type(non_exist) function func2() ! { dg-error "not accessible" }`
`end function func2`	`end function func2`
`end module bar`	`end module bar`
`! { dg-final { cleanup-modules "bar" } }`	`! { dg-final { cleanup-modules "bar" } }`