OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR libfortran/24584 (Segfault when reading empty string in namelist file)

Browse Source 
2005-10-31  Jerry DeLisle  <jvdelisle@verizon.net>

        PR libgfortran/24584
        * gfortran.dg/pr24584.f90: New test.

From-SVN: r106266
This commit is contained in:
Jerry DeLisle 2005-10-31 01:05:09 +00:00 committed by Jerry DeLisle
parent 2a81ce9bf2
commit 0d4b0351d2
2 changed files with 22 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 @@
2005-10-31 Jerry DeLisle <jvdelisle@verizon.net>
PR libgfortran/24584
* gfortran.dg/pr24584.f90: New test.
2005-10-28 Erik Edelmann <eedelman@gcc.gnu.org>
PR fortran/18883

17
gcc/testsuite/gfortran.dg/pr24584.f90 Normal file
View File

@ -0,0 +1,17 @@
! pr24584, segfault on namelist reading an empty string
! Contributed by Jerry DeLisle <jvdelisle@verizon.net>
implicit none
character*20 temp
character(len=10) var
namelist /input/ var
var = 'Howdy'
open(unit=7, status="scratch")
temp = ' var=''''' ! var='' in the file
write(7,'(A6)') '&INPUT'
write(7,'(A10)') temp
write(7,'(A1)') '/'
rewind(7)
read(7,NML=input)
close(7)
if (var.ne.'') call abort
end