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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [namelist_50.f90] - Diff between revs 302 and 384

Rev 302	Rev 384
`! { dg-do run }`	`! { dg-do run }`
`! PR36657 Namelist string constant immediately followed by comment`	`! PR36657 Namelist string constant immediately followed by comment`
`program gfcbug79`	`program gfcbug79`
`implicit none`	`implicit none`
`integer, parameter :: nnml = 10`	`integer, parameter :: nnml = 10`
`character(len=8) :: model = ""`	`character(len=8) :: model = ""`
`namelist /NML/ model`	`namelist /NML/ model`
`open (nnml, status="scratch")`	`open (nnml, status="scratch")`
`write(nnml,*) "&nml! This is a just comment"`	`write(nnml,*) "&nml! This is a just comment"`
`write(nnml,*) " model='foo'! This is a just comment"`	`write(nnml,*) " model='foo'! This is a just comment"`
`write(nnml,*) "/"`	`write(nnml,*) "/"`
`rewind(nnml)`	`rewind(nnml)`
`read (nnml, nml=NML)`	`read (nnml, nml=NML)`
`if (model /= 'foo') call abort`	`if (model /= 'foo') call abort`
`close(nnml)`	`close(nnml)`
`end program gfcbug79`	`end program gfcbug79`