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

Subversion Repositories openrisc

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

Rev 302	Rev 384
`C { dg-do compile }`	`C { dg-do compile }`
`C Tests the fix for PR30888, in which the dummy procedure would`	`C Tests the fix for PR30888, in which the dummy procedure would`
`C generate an error with the %VAL argument, even though it is`	`C generate an error with the %VAL argument, even though it is`
`C declared EXTERNAL.`	`C declared EXTERNAL.`
`C`	`C`
`C Contributed by Peter W. Draper <p.w.draper@durham.ac.uk>`	`C Contributed by Peter W. Draper <p.w.draper@durham.ac.uk>`
`C`	`C`
`SUBROUTINE VALTEST( DOIT )`	`SUBROUTINE VALTEST( DOIT )`
`EXTERNAL DOIT`	`EXTERNAL DOIT`
`INTEGER P`	`INTEGER P`
`INTEGER I`	`INTEGER I`
`I = 0`	`I = 0`
`P = 0`	`P = 0`
`CALL DOIT( %VAL( P ) ) ! { dg-warning "Extension: argument list function" }`	`CALL DOIT( %VAL( P ) ) ! { dg-warning "Extension: argument list function" }`
`CALL DOIT( I )`	`CALL DOIT( I )`
`CALL DOIT( %VAL( P ) ) ! { dg-warning "Extension: argument list function" }`	`CALL DOIT( %VAL( P ) ) ! { dg-warning "Extension: argument list function" }`
`END`	`END`