procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR fortran/41192 (NAMELIST input with just a comment ("&NAME ! comment \") fails)

Browse source 
2009-09-07  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/41192
	* gfortran.dg/namelist_59.f90: New test.

From-SVN: r151496
This commit is contained in:
Jerry DeLisle 2009-09-08 01:18:48 +00:00
parent 951b8fbe45
commit c89c07c2c7
2 changed files with 31 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View file

@ -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>

26
gcc/testsuite/gfortran.dg/namelist_59.f90 Normal file
View file

@ -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