mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-10 22:21:23 +08:00
Code Issues Packages Projects Releases Wiki Activity

namelist_38.f90: Delete test for revertion of r128057.

Browse Source 
2007-09-27  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	* gfortran.dg/namelist_38.f90: Delete test for revertion of
	r128057.

From-SVN: r128858
This commit is contained in:
Jerry DeLisle 2007-09-28 03:04:57 +00:00
parent 9a1e025540
commit 3e60eff0f3
2 changed files with 5 additions and 36 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 @@
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

36
gcc/testsuite/gfortran.dg/namelist_38.f90
View File

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