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

Subversion Repositories openrisc

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

Rev 154	Rev 816
`! { dg-do compile }`	`! { dg-do compile }`
`! PR fortran/20865`	`! PR fortran/20865`
`subroutine tt(j)`	`subroutine tt(j)`
`integer :: j`	`integer :: j`
`end subroutine`	`end subroutine`

`integer :: i, st`	`integer :: i, st`
`st(i) = (i*i+2)`	`st(i) = (i*i+2)`
`call tt(st) ! { dg-error "Statement function .* is not allowed as an actual argument" }`	`call tt(st) ! { dg-error "Statement function .* is not allowed as an actual argument" }`
`end`	`end`