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

Rev 302	Rev 384
`! { dg-do compile }`	`! { dg-do compile }`

`! PR fortran/35837`	`! PR fortran/35837`
`! We used do have a problem with resolving "save all" and nested namespaces.`	`! We used do have a problem with resolving "save all" and nested namespaces.`

`! Contributed by Tobias Burnus`	`! Contributed by Tobias Burnus`

`module g95bug`	`module g95bug`
`save`	`save`
`integer :: i=20`	`integer :: i=20`
`contains`	`contains`
`pure function tell_i() result (answer)`	`pure function tell_i() result (answer)`
`integer :: answer`	`integer :: answer`
`answer=i`	`answer=i`
`end function tell_i`	`end function tell_i`
`end module g95bug`	`end module g95bug`

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