diff options
| author | Bud Davis <bdavis9659@comcast.net> | 2004-06-09 00:55:04 +0000 |
|---|---|---|
| committer | Bud Davis <bdavis@gcc.gnu.org> | 2004-06-09 00:55:04 +0000 |
| commit | 31b6f11ab0530374184676979781ba81b06ae38f (patch) | |
| tree | 6ee69cd51c4ece62f5cbf212485224ba89c72c04 /libgfortran/io/backspace.c | |
| parent | 0760c3805d97a3c1554d95e982d86d096952e873 (diff) | |
| download | gcc-31b6f11ab0530374184676979781ba81b06ae38f.zip gcc-31b6f11ab0530374184676979781ba81b06ae38f.tar.gz gcc-31b6f11ab0530374184676979781ba81b06ae38f.tar.bz2 | |
re PR libfortran/15755 (gfortran: backspace call causes bus error)
2004-06-08 Bud Davis <bdavis9659@comcast.net>
PR gfortran/15755
* gfortran.fortran-torture/execute/backspace.c : New test.
* io/backspace.c(st_backspace): call correct routine for
formatted and un-formatted units.
From-SVN: r82806
Diffstat (limited to 'libgfortran/io/backspace.c')
| -rw-r--r-- | libgfortran/io/backspace.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/io/backspace.c b/libgfortran/io/backspace.c index aff4c5e..c40e506 100644 --- a/libgfortran/io/backspace.c +++ b/libgfortran/io/backspace.c @@ -149,7 +149,7 @@ st_backspace (void) if (file_position (u->s) == 0) goto done; /* Common special case */ - if (u->flags.form == FORM_UNFORMATTED) + if (u->flags.form == FORM_FORMATTED) formatted_backspace (); else unformatted_backspace (); |