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

Rev 302	Rev 384
`! PR 25048`	`! PR 25048`
`! { dg-do compile }`	`! { dg-do compile }`
`! Originally contributed by Joost VandeVondele`	`! Originally contributed by Joost VandeVondele`
`INTEGER, POINTER :: I`	`INTEGER, POINTER :: I`
`CALL S1((I)) ! { dg-error "Actual argument for .i. must be a pointer" }`	`CALL S1((I)) ! { dg-error "Actual argument for .i. must be a pointer" }`
`CONTAINS`	`CONTAINS`
`SUBROUTINE S1(I)`	`SUBROUTINE S1(I)`
`INTEGER, POINTER ::I`	`INTEGER, POINTER ::I`
`END SUBROUTINE S1`	`END SUBROUTINE S1`
`END`	`END`