URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [namelist_print_1.f] - Rev 826
Compare with Previous | Blame | View Log
! Test Non standard PRINT namelist - PR21432 ! ! Contributor Paul Thomas <pault@gcc.gnu.org> ! ! { dg-do run } ! { dg-options "-std=gnu" } real x namelist /mynml/ x x = 1 ! ( dg-output "^" } print mynml ! { dg-output "&MYNML(\n|\r\n|\r) X= 1.0000000 ,(\n|\r\n|\r) /(\n|\r\n|\r)" } end