diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2005-09-03 20:54:55 +0200 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2005-09-03 20:54:55 +0200 |
| commit | 36dd4221c5479fca196cea27bbf5b34eae4e4b3c (patch) | |
| tree | 1c6c7c5354ccc52e6cffdee4b059b9730f9ad16c /libgfortran/io/read.c | |
| parent | 7a6b7528533ea6d23a5b1a5624b4f68faf079a38 (diff) | |
| download | gcc-36dd4221c5479fca196cea27bbf5b34eae4e4b3c.zip gcc-36dd4221c5479fca196cea27bbf5b34eae4e4b3c.tar.gz gcc-36dd4221c5479fca196cea27bbf5b34eae4e4b3c.tar.bz2 | |
read.c (read_x): Take int argument instead of fnode * and digging the N from F->u.n.
* io/read.c (read_x): Take int argument instead of fnode * and
digging the N from F->u.n.
* io/io.h (read_x): Adjust prototype.
* io/transfer.c (formatted_transfer): Adjust callers. Don't clobber
f->u.n for FMT_T.
* gfortran.dg/fmt_t_1.f90: New test.
From-SVN: r103811
Diffstat (limited to 'libgfortran/io/read.c')
| -rw-r--r-- | libgfortran/io/read.c | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/libgfortran/io/read.c b/libgfortran/io/read.c index 64231b9..ec6077c 100644 --- a/libgfortran/io/read.c +++ b/libgfortran/io/read.c @@ -831,12 +831,8 @@ read_f (fnode * f, char *dest, int length) * and never look at it. */ void -read_x (fnode * f) +read_x (int n) { - int n; - - n = f->u.n; - if ((current_unit->flags.pad == PAD_NO || is_internal_unit ()) && current_unit->bytes_left < n) n = current_unit->bytes_left; |