URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [namelist_print_1.f] - Rev 694
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.00000000 ,(\n|\r\n|\r) /(\n|\r\n|\r)" } end