diff options
| author | Jerry DeLisle <jvdelisle@verizon.net> | 2005-10-31 01:05:09 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2005-10-31 01:05:09 +0000 |
| commit | 0d4b0351d2eff984544b8c39ffcba1096a1ab552 (patch) | |
| tree | d4978abdd330e7d46fbfb0fc18a30ce5ba5a42b8 /gcc | |
| parent | 2a81ce9bf2444d44f96e3a2c88cc4551092c416a (diff) | |
| download | gcc-0d4b0351d2eff984544b8c39ffcba1096a1ab552.zip gcc-0d4b0351d2eff984544b8c39ffcba1096a1ab552.tar.gz gcc-0d4b0351d2eff984544b8c39ffcba1096a1ab552.tar.bz2 | |
re PR libfortran/24584 (Segfault when reading empty string in namelist file)
2005-10-31 Jerry DeLisle <jvdelisle@verizon.net>
PR libgfortran/24584
* gfortran.dg/pr24584.f90: New test.
From-SVN: r106266
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr24584.f90 | 17 |
2 files changed, 22 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index da223ef..9489b6e 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -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 diff --git a/gcc/testsuite/gfortran.dg/pr24584.f90 b/gcc/testsuite/gfortran.dg/pr24584.f90 new file mode 100644 index 0000000..12e72ae --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr24584.f90 @@ -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 |