OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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:
Jerry DeLisle 2008-06-28 23:11:53 +00:00
parent d9be9bb3c6
commit 23b1e6acf3
2 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/testsuite/ChangeLog
View File

@ -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>
* gcc.c-torture/compile/20080628-1.c: New test.

16
gcc/testsuite/gfortran.dg/namelist_50.f90 Normal file
View File

@ -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