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