diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-10-03 00:39:58 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-10-03 00:39:58 +0000 |
| commit | 855ea443d876111d365ceb58789d10874508a135 (patch) | |
| tree | df9a2e16f5b6a762b5df8c713c96a62cc56a7200 | |
| parent | f5ad31630d0c4912080793a30092202792ca7c4a (diff) | |
| download | gcc-855ea443d876111d365ceb58789d10874508a135.zip gcc-855ea443d876111d365ceb58789d10874508a135.tar.gz gcc-855ea443d876111d365ceb58789d10874508a135.tar.bz2 | |
re PR libfortran/33253 (namelist: reading back a string with apostrophe)
2007-10-03 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/33253
* gfortran.dg/namelist_38.f90: New test.
* gfortran.dg/namelist_39.f90: New test.
From-SVN: r128975
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/namelist_38.f90 | 36 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/namelist_39.f90 | 25 |
3 files changed, 67 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index adab396..0f2e06f 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2007-10-03 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR libfortran/33253 + * gfortran.dg/namelist_38.f90: New test. + * gfortran.dg/namelist_39.f90: New test. + 2007-10-03 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> PR libfortran/33469 diff --git a/gcc/testsuite/gfortran.dg/namelist_38.f90 b/gcc/testsuite/gfortran.dg/namelist_38.f90 new file mode 100644 index 0000000..5578654 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/namelist_38.f90 @@ -0,0 +1,36 @@ +! { 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 diff --git a/gcc/testsuite/gfortran.dg/namelist_39.f90 b/gcc/testsuite/gfortran.dg/namelist_39.f90 new file mode 100644 index 0000000..758b2de --- /dev/null +++ b/gcc/testsuite/gfortran.dg/namelist_39.f90 @@ -0,0 +1,25 @@ +! { dg-do run } +! PR33421 and PR33253 Weird quotation of namelist output of character arrays +! Test case from Toon Moene, adapted by Jerry DeLisle <jvdelisle@gcc.gnu.org> + +program test +implicit none +character(len=45) :: b(3) +namelist /nam/ b +b = 'x' +open(99, status="scratch") +write(99,'(4(a,/),a)') "&NAM", & + " b(1)=' AAP NOOT MIES WIM ZUS JET',", & + " b(2)='SURF.PRESSURE',", & + " b(3)='APEKOOL',", & + " /" +rewind(99) +read(99,nml=nam) +close(99) + +if (b(1).ne." AAP NOOT MIES WIM ZUS JET ") call abort +if (b(2).ne."SURF.PRESSURE ") call abort +if (b(3).ne."APEKOOL ") call abort + +end program test + |