From 80bcbc80442d6de0cfacd2aad5b1548b89a7758a Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Tue, 15 May 2007 12:16:46 +0200 Subject: [PATCH] re PR libfortran/31915 (Failure with unf_io_convert_3.f90) 2007-05-15 Tobias Burnus PR libfortran/31915 * io/transfer.c (unformatted_read): Use proper size for real(10). (unformatted_write): Ditto. From-SVN: r124741 --- libgfortran/ChangeLog | 6 ++++++ libgfortran/io/transfer.c | 21 ++++++++++++--------- 2 files changed, 18 insertions(+), 9 deletions(-) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index a90c7160cd1..dec751f9c85 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2007-05-15 Tobias Burnus + + PR libfortran/31915 + * io/transfer.c (unformatted_read): Use proper size for real(10). + (unformatted_write): Ditto. + 2007-05-14 Francois-Xavier Coudert PR fortran/30723 diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index 9735aae7cce..6d23e5e81b9 100644 --- a/libgfortran/io/transfer.c +++ b/libgfortran/io/transfer.c @@ -721,12 +721,13 @@ unformatted_read (st_parameter_dt *dtp, bt type, p = dest; /* By now, all complex variables have been split into their - constituent reals. For types with padding, we only need to - read kind bytes. We don't care about the contents - of the padding. If we hit a short record, then sz is - adjusted accordingly, making later reads no-ops. */ + constituent reals. */ - sz = kind; + if (type == BT_REAL || type == BT_COMPLEX) + sz = size_from_real_kind (kind); + else + sz = kind; + for (i=0; i