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

Rev 302	Rev 384
`! { dg-do compile }`	`! { dg-do compile }`
`! PR33162 INTRINSIC functions as ACTUAL argument`	`! PR33162 INTRINSIC functions as ACTUAL argument`
`! Test case adapted from PR by Jerry DeLisle`	`! Test case adapted from PR by Jerry DeLisle`
`module m`	`module m`
`implicit none`	`implicit none`
`contains`	`contains`
`subroutine sub(a)`	`subroutine sub(a)`
`interface`	`interface`
`function a()`	`function a()`
`real :: a`	`real :: a`
`end function a`	`end function a`
`end interface`	`end interface`
`print *, a()`	`print *, a()`
`end subroutine sub`	`end subroutine sub`
`end module m`	`end module m`
`use m`	`use m`
`implicit none`	`implicit none`
`intrinsic cos`	`intrinsic cos`
`call sub(cos) ! { dg-error "wrong number of arguments" }`	`call sub(cos) ! { dg-error "wrong number of arguments" }`
`end`	`end`
`! { dg-final { cleanup-modules "m" } }`	`! { dg-final { cleanup-modules "m" } }`