diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-03-18 04:30:37 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-03-18 04:30:37 +0000 |
| commit | 12da5c8ad10a28f760880f2b7d72ccc03fc03d29 (patch) | |
| tree | b49fcf1e044a53d153a8ffb16fd1c1e06272f2c0 | |
| parent | 5a79ae8432f7142dc6028fafdcc748941c16c7db (diff) | |
| download | gcc-12da5c8ad10a28f760880f2b7d72ccc03fc03d29.zip gcc-12da5c8ad10a28f760880f2b7d72ccc03fc03d29.tar.gz gcc-12da5c8ad10a28f760880f2b7d72ccc03fc03d29.tar.bz2 | |
re PR fortran/35617 (read namelist error)
2008-03-17 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/35617
* gfortran.dg/namelist_45.f90: New test.
From-SVN: r133303
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/namelist_45.f90 | 18 |
2 files changed, 23 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 954f011..964e62f 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2008-03-17 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR libfortran/35617 + * gfortran.dg/namelist_45.f90: New test. + 2008-03-17 James E. Wilson <wilson@tuliptree.org> PR testsuite/35512 diff --git a/gcc/testsuite/gfortran.dg/namelist_45.f90 b/gcc/testsuite/gfortran.dg/namelist_45.f90 new file mode 100644 index 0000000..3512d08 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/namelist_45.f90 @@ -0,0 +1,18 @@ +! { dg-do run } +! PR35617 read namelist error with '!' +program test + character(len=128) :: mhdpath + namelist /nbdrive_naml/ mhdpath + open(10, file='test.nml') + + write(10,'(a)') "&nbdrive_naml" + write(10,'(a)') + write(10,'(a)') "!nstep_stop = 2 ! uncomment to bar" + write(10,'(a)') "!nstep_start = 2 ! uncomment to foo" + write(10,'(a)') " mhdpath = 'mypath.dat'" + write(10,'(a)') "/" + + rewind(10) + read(10, nbdrive_naml) + close(10,status="delete") +end program test |