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/] [parameter_2.f90] - Diff between revs 303 and 338

Rev 303	Rev 338
`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`