From: jvdelisle Date: Tue, 18 Mar 2008 04:30:37 +0000 (+0000) Subject: 2008-03-17 Jerry DeLisle X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=commitdiff_plain;h=b62c75da2604bf205404d311df427311df973a39;hp=7c407ad645aea77c8b27cc555f2952dae3d6375e 2008-03-17 Jerry DeLisle PR libfortran/35617 * gfortran.dg/namelist_45.f90: New test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@133303 138bc75d-0d04-0410-961f-82ee72b054a4 --- 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