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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [named_args_2.f90] - Diff between revs 149 and 154

Rev 149	Rev 154
`! this is the reduced testcase from pr13372`	`! this is the reduced testcase from pr13372`
`! we wrongly add a symbol "P" to the module`	`! we wrongly add a symbol "P" to the module`
`! Currently (2004/06/09) a workaround is in place`	`! Currently (2004/06/09) a workaround is in place`
`! PR 15481 tracks any steps towards a real fix.`	`! PR 15481 tracks any steps towards a real fix.`
`module typeSizes`	`module typeSizes`
`implicit none`	`implicit none`
`integer, parameter :: FourByteReal = selected_real_kind(P = 6, R = 37)`	`integer, parameter :: FourByteReal = selected_real_kind(P = 6, R = 37)`
`end module typeSizes`	`end module typeSizes`