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

Rev 302	Rev 384
`! { dg-do compile }`	`! { dg-do compile }`
`!`	`!`
`! PR fortran/33231`	`! PR fortran/33231`
`!`	`!`
`! Elemental function:`	`! Elemental function:`
`! Intent OUT/INOUT dummy: Actual needs to be an array`	`! Intent OUT/INOUT dummy: Actual needs to be an array`
`! if any actual is an array`	`! if any actual is an array`
`!`	`!`
`program prog`	`program prog`
`implicit none`	`implicit none`
`integer :: i, j(2)`	`integer :: i, j(2)`
`call sub(i,1,2) ! OK, only scalar`	`call sub(i,1,2) ! OK, only scalar`
`call sub(j,1,2) ! OK, scalar IN, array OUT`	`call sub(j,1,2) ! OK, scalar IN, array OUT`
`call sub(j,[1,2],3) ! OK, scalar & array IN, array OUT`	`call sub(j,[1,2],3) ! OK, scalar & array IN, array OUT`
`call sub(j,[1,2],[1,2]) ! OK, all arrays`	`call sub(j,[1,2],[1,2]) ! OK, all arrays`

`call sub(i,1,2) ! OK, only scalar`	`call sub(i,1,2) ! OK, only scalar`
`call sub(i,[1,2],3) ! { dg-error "is a scalar" }`	`call sub(i,[1,2],3) ! { dg-error "is a scalar" }`
`call sub(i,[1,2],[1,2]) ! { dg-error "is a scalar" }`	`call sub(i,[1,2],[1,2]) ! { dg-error "is a scalar" }`
`contains`	`contains`
`elemental subroutine sub(a,b,c)`	`elemental subroutine sub(a,b,c)`
`integer :: func, a, b, c`	`integer :: func, a, b, c`
`intent(in) :: b,c`	`intent(in) :: b,c`
`intent(out) :: a`	`intent(out) :: a`
`a = b +c`	`a = b +c`
`end subroutine sub`	`end subroutine sub`
`end program prog`	`end program prog`