From c89c07c2c7522eba67c258db28dd3d3ea6be4c85 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Tue, 8 Sep 2009 01:18:48 +0000 Subject: [PATCH] re PR fortran/41192 (NAMELIST input with just a comment ("&NAME ! comment \") fails) 2009-09-07 Jerry DeLisle PR libgfortran/41192 * gfortran.dg/namelist_59.f90: New test. From-SVN: r151496 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/namelist_59.f90 | 26 +++++++++++++++++++++++ 2 files changed, 31 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/namelist_59.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 27bb3c804913..1c00a6bdb7a2 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2009-09-07 Jerry DeLisle + + PR libgfortran/41192 + * gfortran.dg/namelist_59.f90: New test. + 2009-09-07 Bernd Schmidt From Mike Frysinger diff --git a/gcc/testsuite/gfortran.dg/namelist_59.f90 b/gcc/testsuite/gfortran.dg/namelist_59.f90 new file mode 100644 index 000000000000..bb68b9bebe93 --- /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 -- 2.47.2