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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [random_init.f90] - Diff between revs 303 and 338

Rev 303	Rev 338
`! pr 15149`	`! pr 15149`
`! verify the random number generator is functional`	`! verify the random number generator is functional`
`program test_random`	`program test_random`
`implicit none`	`implicit none`
`real :: r(5) = 0.0`	`real :: r(5) = 0.0`

`call random_number(r)`	`call random_number(r)`
`if (all (r .eq. 0)) call abort`	`if (all (r .eq. 0)) call abort`
`end program`	`end program`