namelist_50.f90: New test.
2008-06-28 Jerry DeLisle <jvdelisle@gcc.gnu.org> * gfortran.dg/namelist_50.f90: New test. From-SVN: r137239
This commit is contained in:
parent
d9be9bb3c6
commit
23b1e6acf3
|
@ -1,3 +1,7 @@
|
||||||
|
2008-06-28 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
||||||
|
|
||||||
|
* gfortran.dg/namelist_50.f90: New test.
|
||||||
|
|
||||||
2008-06-28 Joseph Myers <joseph@codesourcery.com>
|
2008-06-28 Joseph Myers <joseph@codesourcery.com>
|
||||||
|
|
||||||
* gcc.c-torture/compile/20080628-1.c: New test.
|
* gcc.c-torture/compile/20080628-1.c: New test.
|
||||||
|
|
|
@ -0,0 +1,16 @@
|
||||||
|
! { dg-do run }
|
||||||
|
! PR36657 Namelist string constant immediately followed by comment
|
||||||
|
program gfcbug79
|
||||||
|
implicit none
|
||||||
|
integer, parameter :: nnml = 10
|
||||||
|
character(len=8) :: model = ""
|
||||||
|
namelist /NML/ model
|
||||||
|
open (nnml, status="scratch")
|
||||||
|
write(nnml,*) "&nml! This is a just comment"
|
||||||
|
write(nnml,*) " model='foo'! This is a just comment"
|
||||||
|
write(nnml,*) "/"
|
||||||
|
rewind(nnml)
|
||||||
|
read (nnml, nml=NML)
|
||||||
|
if (model /= 'foo') call abort
|
||||||
|
close(nnml)
|
||||||
|
end program gfcbug79
|
Loading…
Reference in New Issue