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 /gcc/testsuite/gfortran.dg | |
| 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
Diffstat (limited to 'gcc/testsuite/gfortran.dg')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/namelist_45.f90 | 18 |
1 files changed, 18 insertions, 0 deletions
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 |