diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2011-02-24 21:13:57 +0100 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2011-02-24 21:13:57 +0100 |
| commit | ae01ced508fd6d5e9d624a6e225bef0741ebb736 (patch) | |
| tree | 70db0376a7fb8a2f0f1238edba4f17781f849d1a /gcc | |
| parent | 01bd5703f577e2c3331c27c623d7a37c85ca2ffa (diff) | |
| download | gcc-ae01ced508fd6d5e9d624a6e225bef0741ebb736.zip gcc-ae01ced508fd6d5e9d624a6e225bef0741ebb736.tar.gz gcc-ae01ced508fd6d5e9d624a6e225bef0741ebb736.tar.bz2 | |
re PR fortran/47878 (187.facerec miscompares)
PR fortran/47878
* io/transfer.c (read_sf): Call fbuf_getptr only at the end,
and subtract n, dtp->u.p.sf_seen_eor and seen_comma from it.
* gfortran.dg/pr47878.f90: New test.
From-SVN: r170476
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr47878.f90 | 10 |
2 files changed, 15 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 23648c9..5f8cd96 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2011-02-24 Jakub Jelinek <jakub@redhat.com> + + PR fortran/47878 + * gfortran.dg/pr47878.f90: New test. + 2011-02-24 Richard Guenther <rguenther@suse.de> PR testsuite/47801 diff --git a/gcc/testsuite/gfortran.dg/pr47878.f90 b/gcc/testsuite/gfortran.dg/pr47878.f90 new file mode 100644 index 0000000..9cc4a08 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr47878.f90 @@ -0,0 +1,10 @@ +! PR fortran/47878 +! { dg-do run } + integer :: a(5) + open (99, recl = 40) + write (99, '(5i3)') 1, 2, 3 + rewind (99) + read (99, '(5i3)') a + if (any (a.ne.(/1, 2, 3, 0, 0/))) call abort + close (99, status = 'delete') +end |