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.fortran-torture/] [execute/] [parameter_2.f90] - Diff between revs 303 and 384

Rev 303	Rev 384
`module m`	`module m`
`parameter (p = -1.) ! negative numbers used to get output incorrectly`	`parameter (p = -1.) ! negative numbers used to get output incorrectly`
`end module m`	`end module m`

`use m`	`use m`
`if (p .ne. -1.) CALL abort()`	`if (p .ne. -1.) CALL abort()`
`end`	`end`