diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-06-28 23:11:53 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-06-28 23:11:53 +0000 |
| commit | 23b1e6acf3cf91077c83d803423ddfb7f521aaaf (patch) | |
| tree | eaef3158b829cf25f351ea7a45e53f328bec37f1 /gcc | |
| parent | d9be9bb3c62116967a4d4739e476cc7777ea4525 (diff) | |
| download | gcc-23b1e6acf3cf91077c83d803423ddfb7f521aaaf.zip gcc-23b1e6acf3cf91077c83d803423ddfb7f521aaaf.tar.gz gcc-23b1e6acf3cf91077c83d803423ddfb7f521aaaf.tar.bz2 | |
namelist_50.f90: New test.
2008-06-28 Jerry DeLisle <jvdelisle@gcc.gnu.org>
* gfortran.dg/namelist_50.f90: New test.
From-SVN: r137239
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/namelist_50.f90 | 16 |
2 files changed, 20 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index b56104c..c78a7ca 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -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. diff --git a/gcc/testsuite/gfortran.dg/namelist_50.f90 b/gcc/testsuite/gfortran.dg/namelist_50.f90 new file mode 100644 index 0000000..57e93fc --- /dev/null +++ b/gcc/testsuite/gfortran.dg/namelist_50.f90 @@ -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 |