From 3e60eff0f3e4808393ced59da85219fb99d38220 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Fri, 28 Sep 2007 03:04:57 +0000 Subject: [PATCH] namelist_38.f90: Delete test for revertion of r128057. 2007-09-27 Jerry DeLisle * gfortran.dg/namelist_38.f90: Delete test for revertion of r128057. From-SVN: r128858 --- gcc/testsuite/ChangeLog | 5 ++++ gcc/testsuite/gfortran.dg/namelist_38.f90 | 36 ----------------------- 2 files changed, 5 insertions(+), 36 deletions(-) delete mode 100644 gcc/testsuite/gfortran.dg/namelist_38.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index fba430413ec..c863096826c 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-09-27 Jerry DeLisle + + * gfortran.dg/namelist_38.f90: Delete test for revertion of + r128057. + 2007-09-27 Andrew Pinski 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 5578654eea4..00000000000 --- 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 -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 -- 2.30.2