From: Jerry DeLisle Date: Tue, 18 Mar 2008 04:30:37 +0000 (+0000) Subject: re PR fortran/35617 (read namelist error) X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=12da5c8ad10a28f760880f2b7d72ccc03fc03d29;p=gcc.git re PR fortran/35617 (read namelist error) 2008-03-17 Jerry DeLisle PR libfortran/35617 * gfortran.dg/namelist_45.f90: New test. From-SVN: r133303 --- diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 954f011d72a..964e62f7347 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2008-03-17 Jerry DeLisle + + PR libfortran/35617 + * gfortran.dg/namelist_45.f90: New test. + 2008-03-17 James E. Wilson 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 00000000000..3512d08b7cc --- /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