URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [save_result.f90] - Diff between revs 154 and 816

Rev 154	Rev 816
`! { dg-do compile }`	`! { dg-do compile }`
`! PR20856 - A function result may not have SAVE attribute.`	`! PR20856 - A function result may not have SAVE attribute.`
`! Contributed by Joost VandeVondele`	`! Contributed by Joost VandeVondele`
`FUNCTION X() RESULT(Y)`	`FUNCTION X() RESULT(Y)`
`REAL, SAVE :: Y ! { dg-error "RESULT attribute conflicts with SAVE" }`	`REAL, SAVE :: Y ! { dg-error "RESULT attribute conflicts with SAVE" }`
`y = 1`	`y = 1`
`END FUNCTION X`	`END FUNCTION X`
`END`	`END`