URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [namelist_print_1.f] - Diff between revs 149 and 154

Rev 149	Rev 154
`! Test Non standard PRINT namelist - PR21432`	`! Test Non standard PRINT namelist - PR21432`
`!`	`!`
`! Contributor Paul Thomas <pault@gcc.gnu.org>`	`! Contributor Paul Thomas <pault@gcc.gnu.org>`
`!`	`!`
`! { dg-do run }`	`! { dg-do run }`
`! { dg-options "-std=gnu" }`	`! { dg-options "-std=gnu" }`

`real x`	`real x`
`namelist /mynml/ x`	`namelist /mynml/ x`
`x = 1`	`x = 1`
`! ( dg-output "^" }`	`! ( dg-output "^" }`
`print mynml ! { dg-output "&MYNML(\n\|\r\n\|\r) X= 1.000000 , /(\n\|\r\n\|\r)" }`	`print mynml ! { dg-output "&MYNML(\n\|\r\n\|\r) X= 1.000000 , /(\n\|\r\n\|\r)" }`
`end`	`end`