diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2009-09-08 01:18:48 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2009-09-08 01:18:48 +0000 |
| commit | c89c07c2c7522eba67c258db28dd3d3ea6be4c85 (patch) | |
| tree | 44dc66847ec248c39e3e2682583e6ba989a30dcd | |
| parent | 951b8fbe45130419d9c2056ba7ce6c385d5cbbb1 (diff) | |
| download | gcc-c89c07c2c7522eba67c258db28dd3d3ea6be4c85.zip gcc-c89c07c2c7522eba67c258db28dd3d3ea6be4c85.tar.gz gcc-c89c07c2c7522eba67c258db28dd3d3ea6be4c85.tar.bz2 | |
re PR fortran/41192 (NAMELIST input with just a comment ("&NAME ! comment \") fails)
2009-09-07 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/41192
* gfortran.dg/namelist_59.f90: New test.
From-SVN: r151496
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/namelist_59.f90 | 26 |
2 files changed, 31 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 27bb3c8..1c00a6b 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2009-09-07 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR libgfortran/41192 + * gfortran.dg/namelist_59.f90: New test. + 2009-09-07 Bernd Schmidt <bernd.schmidt@analog.com> From Mike Frysinger <michael.frysinger@analog.com> diff --git a/gcc/testsuite/gfortran.dg/namelist_59.f90 b/gcc/testsuite/gfortran.dg/namelist_59.f90 new file mode 100644 index 0000000..bb68b9b --- /dev/null +++ b/gcc/testsuite/gfortran.dg/namelist_59.f90 @@ -0,0 +1,26 @@ +! { dg-do run } +! PR41192 NAMELIST input with just a comment ("&NAME ! comment \") error +program cmdline +! comment by itself causes error in gfortran + call process(' ') + call process('i=10 , j=20 k=30 ! change all three values') + call process(' ') + call process('! change no values')! before patch this failed. +end program cmdline + +subroutine process(string) + implicit none + character(len=*) :: string + character(len=132) :: lines(3) + character(len=255) :: message + integer :: i=1,j=2,k=3 + integer ios + namelist /cmd/ i,j,k + save cmd + lines(1)='&cmd' + lines(2)=string + lines(3)='/' + + read(lines,nml=cmd,iostat=ios,iomsg=message) + if (ios.ne.0) call abort +end subroutine process |