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

Rev 302	Rev 384
`! { dg-do compile }`	`! { dg-do compile }`
`! One of two tests for the fix of PR23152 - An ICE would`	`! One of two tests for the fix of PR23152 - An ICE would`
`! ensue from assumed shape arrays in namelists.`	`! ensue from assumed shape arrays in namelists.`
`!`	`!`
`! Conributed by Paul Thomas`	`! Conributed by Paul Thomas`
`!`	`!`
`program assumed_size_nml`	`program assumed_size_nml`
`real, dimension (10) :: z`	`real, dimension (10) :: z`
`z = 42.0`	`z = 42.0`
`call foo (z)`	`call foo (z)`
`contains`	`contains`
`subroutine foo (y)`	`subroutine foo (y)`
`real, DIMENSION (*) :: y`	`real, DIMENSION (*) :: y`
`namelist /mynml/ y ! { dg-error "is not allowed" }`	`namelist /mynml/ y ! { dg-error "is not allowed" }`
`write (6, mynml)`	`write (6, mynml)`
`end subroutine foo`	`end subroutine foo`