diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-09-03 19:27:48 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-09-03 19:27:48 +0000 |
| commit | ae6cd761c47334e4f79c7e248da8c691c6ec1775 (patch) | |
| tree | 844fc04d042c0bd9058a70634c84c8954ae1450f /gcc | |
| parent | 8d5c5e35a72c061d00cb4c1fba3b7e1ddcaf822f (diff) | |
| download | gcc-ae6cd761c47334e4f79c7e248da8c691c6ec1775.zip gcc-ae6cd761c47334e4f79c7e248da8c691c6ec1775.tar.gz gcc-ae6cd761c47334e4f79c7e248da8c691c6ec1775.tar.bz2 | |
re PR libfortran/33253 (namelist: reading back a string with apostrophe)
2007-09-03 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/33253
* gfortran.dg/namelist_15.f90: Update test.
* gfortran.dg/namelist_24.f90: Update test.
* gfortran.dg/namelist_38.f90: New test.
From-SVN: r128056
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/namelist_15.f90 | 2 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/namelist_24.f90 | 2 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/namelist_38.f90 | 17 |
4 files changed, 26 insertions, 2 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 4d35334d..e98ef34 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,10 @@ +2007-09-03 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR fortran/33253 + * gfortran.dg/namelist_15.f90: Update test. + * gfortran.dg/namelist_24.f90: Update test. + * gfortran.dg/namelist_38.f90: New test. + 2007-09-03 H.J. Lu <hongjiu.lu@intel.com> * gcc.dg/vect/no-tree-scev-cprop-vect-iv-1.c: Restored. Moved diff --git a/gcc/testsuite/gfortran.dg/namelist_15.f90 b/gcc/testsuite/gfortran.dg/namelist_15.f90 index 7bfe931..233cf22 100644 --- a/gcc/testsuite/gfortran.dg/namelist_15.f90 +++ b/gcc/testsuite/gfortran.dg/namelist_15.f90 @@ -20,7 +20,7 @@ program namelist_15 namelist /mynml/ x - open (10, status = "scratch") + open (10, status = "scratch", delim='apostrophe') write (10, '(A)') "&MYNML" write (10, '(A)') " x = 3, 4, 'dd', 'ee', 'ff', 'gg'," write (10, '(A)') " 4, 5, 'hh', 'ii', 'jj', 'kk'," diff --git a/gcc/testsuite/gfortran.dg/namelist_24.f90 b/gcc/testsuite/gfortran.dg/namelist_24.f90 index 4e60269..11cd2d0 100644 --- a/gcc/testsuite/gfortran.dg/namelist_24.f90 +++ b/gcc/testsuite/gfortran.dg/namelist_24.f90 @@ -11,7 +11,7 @@ character*(8) names2(nd,nd) character*(8) names3(nd,nd) namelist / mynml / names, names2, names3 - open(unit=20,status='scratch') + open(unit=20,status='scratch', delim='apostrophe') write (20, '(a)') "&MYNML" write (20, '(a)') "NAMES = 25*'0'" write (20, '(a)') "NAMES2 = 25*'0'" diff --git a/gcc/testsuite/gfortran.dg/namelist_38.f90 b/gcc/testsuite/gfortran.dg/namelist_38.f90 new file mode 100644 index 0000000..1fdb9cd --- /dev/null +++ b/gcc/testsuite/gfortran.dg/namelist_38.f90 @@ -0,0 +1,17 @@ +! { dg-do run } +! PR33253 namelist: reading back a string +! Test case modified from that of the PR by +! Jerry DeLisle <jvdelisle@gcc.gnu.org> +program main + implicit none + character(len=8) :: a + namelist /foo/ a + open(10, status="scratch") + 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) +end program main |