------- Additional Comments From tobi at gcc dot gnu dot org 2004-11-29 23:38
-------
This patch fixes it and passes the testsuite, but I'd like someone to test that
it doesn't break anything else (I don't think it will, but then I don't know the
standard's semantics for unformatted transfers)
2004-11-30 Tobias Schlueter <[EMAIL PROTECTED]>
PR fortran/18710
* io/transfer.c (unformatted_read, unformatted_write): width of
a COMPLEX is twice its kind.
Index: libgfortran/io/transfer.c
===================================================================
RCS file: /cvs/gcc/gcc/libgfortran/io/transfer.c,v
retrieving revision 1.17
diff -u -p -r1.17 transfer.c
--- libgfortran/io/transfer.c 7 Oct 2004 21:30:50 -0000 1.17
+++ libgfortran/io/transfer.c 29 Nov 2004 23:33:11 -0000
@@ -271,6 +271,10 @@ unformatted_read (bt type, void *dest, i
{
void *source;
int w;
+
+ if (type == BT_COMPLEX)
+ length *= 2;
+
w = length;
source = read_block (&w);
@@ -288,9 +292,13 @@ static void
unformatted_write (bt type, void *source, int length)
{
void *dest;
- dest = write_block (length);
- if (dest != NULL)
- memcpy (dest, source, length);
+
+ if (type == BT_COMPLEX)
+ length *= 2;
+
+ dest = write_block (length);
+ if (dest != NULL)
+ memcpy (dest, source, length);
}
--
What |Removed |Added
----------------------------------------------------------------------------
CC| |tobi at gcc dot gnu dot org
Keywords| |wrong-code
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=18710
