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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [namelist_print_2.f] - Diff between revs 154 and 816

Rev 154	Rev 816
`! Test Non standard PRINT namelist - PR21432 is`	`! Test Non standard PRINT namelist - PR21432 is`
`! not accepted by -std=f95`	`! not accepted by -std=f95`
`!`	`!`
`! Contributor Paul Thomas <pault@gcc.gnu.org>`	`! Contributor Paul Thomas <pault@gcc.gnu.org>`
`!`	`!`
`! { dg-do compile }`	`! { dg-do compile }`
`! { dg-options "-std=f95" }`	`! { dg-options "-std=f95" }`
`!`	`!`
`real x`	`real x`
`namelist /mynml/ x`	`namelist /mynml/ x`
`x = 1`	`x = 1`
`print mynml ! { dg-error "PRINT namelist.*extension" "" }`	`print mynml ! { dg-error "PRINT namelist.*extension" "" }`
`end`	`end`