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

Rev 302	Rev 384
`! { dg-do compile }`	`! { dg-do compile }`
`! This checks the fix for PR34910, in which the invalid reference`	`! This checks the fix for PR34910, in which the invalid reference`
`! below caused an ICE.`	`! below caused an ICE.`
`!`	`!`
`! Contributed by Daniel Franke`	`! Contributed by Daniel Franke`
`!`	`!`
`MODULE foo`	`MODULE foo`
`CONTAINS`	`CONTAINS`
`INTEGER FUNCTION f()`	`INTEGER FUNCTION f()`
`f = 42`	`f = 42`
`CONTAINS`	`CONTAINS`
`LOGICAL FUNCTION f1()`	`LOGICAL FUNCTION f1()`
`f1 = .TRUE.`	`f1 = .TRUE.`
`END FUNCTION`	`END FUNCTION`

`LOGICAL FUNCTION f2()`	`LOGICAL FUNCTION f2()`
`f1 = .FALSE. ! { dg-error "is not a variable" }`	`f1 = .FALSE. ! { dg-error "is not a variable" }`
`END FUNCTION`	`END FUNCTION`
`END FUNCTION`	`END FUNCTION`
`END MODULE`	`END MODULE`
`! { dg-final { cleanup-modules "foo" } }`	`! { dg-final { cleanup-modules "foo" } }`