URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

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

Rev 149	Rev 154
`! { dg-do compile }`	`! { dg-do compile }`
`! Tests the fix for 20861, in which internal procedures were permitted to`	`! Tests the fix for 20861, in which internal procedures were permitted to`
`! be dummy arguments.`	`! be dummy arguments.`
`!`	`!`
`! Contributed by Joost VandeVondele`	`! Contributed by Joost VandeVondele`
`!`	`!`
`CALL DD(TT) ! { dg-error "is not allowed as an actual argument" }`	`CALL DD(TT) ! { dg-error "is not allowed as an actual argument" }`
`CONTAINS`	`CONTAINS`
`SUBROUTINE DD(F)`	`SUBROUTINE DD(F)`
`INTERFACE`	`INTERFACE`
`SUBROUTINE F(X)`	`SUBROUTINE F(X)`
`REAL :: X`	`REAL :: X`
`END SUBROUTINE F`	`END SUBROUTINE F`
`END INTERFACE`	`END INTERFACE`
`END SUBROUTINE DD`	`END SUBROUTINE DD`
`SUBROUTINE TT(X)`	`SUBROUTINE TT(X)`
`REAL :: X`	`REAL :: X`
`END SUBROUTINE`	`END SUBROUTINE`
`END`	`END`