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

Rev 302	Rev 384
`! { dg-do run }`	`! { dg-do run }`
`program valueTests`	`program valueTests`
`integer :: myInt`	`integer :: myInt`
`interface`	`interface`
`subroutine mySub(myInt)`	`subroutine mySub(myInt)`
`integer, value :: myInt`	`integer, value :: myInt`
`end subroutine mySub`	`end subroutine mySub`
`end interface`	`end interface`

`myInt = 10`	`myInt = 10`

`call mySub(myInt)`	`call mySub(myInt)`
`! myInt should be unchanged since pass-by-value`	`! myInt should be unchanged since pass-by-value`
`if(myInt .ne. 10) then`	`if(myInt .ne. 10) then`
`call abort ()`	`call abort ()`
`endif`	`endif`
`end program valueTests`	`end program valueTests`

`subroutine mySub(myInt)`	`subroutine mySub(myInt)`
`integer, value :: myInt`	`integer, value :: myInt`
`myInt = 11`	`myInt = 11`
`end subroutine mySub`	`end subroutine mySub`