diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-09-28 03:04:57 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-09-28 03:04:57 +0000 |
| commit | 3e60eff0f3e4808393ced59da85219fb99d38220 (patch) | |
| tree | 78591c939cd834acc0644374c3b8209f15c353ec | |
| parent | 9a1e025540621bba8dd8d64085b58dbac118d48a (diff) | |
| download | gcc-3e60eff0f3e4808393ced59da85219fb99d38220.zip gcc-3e60eff0f3e4808393ced59da85219fb99d38220.tar.gz gcc-3e60eff0f3e4808393ced59da85219fb99d38220.tar.bz2 | |
namelist_38.f90: Delete test for revertion of r128057.
2007-09-27 Jerry DeLisle <jvdelisle@gcc.gnu.org>
* gfortran.dg/namelist_38.f90: Delete test for revertion of
r128057.
From-SVN: r128858
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/namelist_38.f90 | 36 |
2 files changed, 5 insertions, 36 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index fba4304..c863096 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-09-27 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + * gfortran.dg/namelist_38.f90: Delete test for revertion of + r128057. + 2007-09-27 Andrew Pinski <andrew_pinski@playstation.sony.com> PR middle-end/7003 diff --git a/gcc/testsuite/gfortran.dg/namelist_38.f90 b/gcc/testsuite/gfortran.dg/namelist_38.f90 deleted file mode 100644 index 5578654..0000000 --- a/gcc/testsuite/gfortran.dg/namelist_38.f90 +++ /dev/null @@ -1,36 +0,0 @@ -! { dg-do run } -! PR33253 namelist: reading back a string, also fixed writing with delimiters. -! Test case modified from that of the PR by -! Jerry DeLisle <jvdelisle@gcc.gnu.org> -program main - implicit none - character(len=3) :: a - namelist /foo/ a - - open(10, status="scratch", delim="quote") - a = 'a"a' - write(10,foo) - rewind 10 - a = "" - read (10,foo) ! This gave a runtime error before the patch. - if (a.ne.'a"a') call abort - close (10) - - open(10, status="scratch", delim="apostrophe") - a = "a'a" - write(10,foo) - rewind 10 - a = "" - read (10,foo) - if (a.ne."a'a") call abort - close (10) - - open(10, status="scratch", delim="none") - a = "a'a" - write(10,foo) - rewind 10 - a = "" - read (10,foo) - if (a.ne."a'a") call abort - close (10) -end program main |