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

Subversion Repositories openrisc

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

Rev 149	Rev 154
`! { dg-do compile }`	`! { dg-do compile }`
`! Tests fix for PR25090 in which references in specification`	`! Tests fix for PR25090 in which references in specification`
`! expressions to variables that were not entry formal arguments`	`! expressions to variables that were not entry formal arguments`
`! would be missed.`	`! would be missed.`
`!`	`!`
`! Contributed by Joost VandeVondele`	`! Contributed by Joost VandeVondele`
`!`	`!`
`SUBROUTINE S1(I)`	`SUBROUTINE S1(I)`
`CHARACTER(LEN=I+J) :: a`	`CHARACTER(LEN=I+J) :: a`
`real :: x(i:j), z`	`real :: x(i:j), z`
`a = "" ! { dg-error "before the ENTRY statement in which it is a parameter" }`	`a = "" ! { dg-error "before the ENTRY statement in which it is a parameter" }`
`x = 0.0 ! { dg-error "before the ENTRY statement in which it is a parameter" }`	`x = 0.0 ! { dg-error "before the ENTRY statement in which it is a parameter" }`
`ENTRY E1(J)`	`ENTRY E1(J)`
`END SUBROUTINE S1`	`END SUBROUTINE S1`
`END`	`END`