------- Additional Comments From tobi at gcc dot gnu dot org 2005-01-06 00:16
-------
Sigh, indeed the type for the REC parameter is wrong as well. I had checked for
other wrongs, but due to unlucky formatting in io.h I missed this one.
Could you please try this patch to trans-io.c instead of the previous one?
2005-01-05 Tobias Schlueter <[EMAIL PROTECTED]>
PR fortran/19194
* trans-io.c (gfc_build_io_library_fndecls): 'rec' and 'recl_in' are
not pointer fields.
Index: trans-io.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/trans-io.c,v
retrieving revision 1.25
diff -u -p -r1.25 trans-io.c
--- trans-io.c 3 Jan 2005 21:43:55 -0000 1.25
+++ trans-io.c 6 Jan 2005 00:14:10 -0000
@@ -181,11 +181,11 @@ gfc_build_io_library_fndecls (void)
ADD_FIELD (opened, gfc_pint4_type_node);
ADD_FIELD (number, gfc_pint4_type_node);
ADD_FIELD (named, gfc_pint4_type_node);
- ADD_FIELD (rec, gfc_pint4_type_node);
+ ADD_FIELD (rec, gfc_int4_type_node);
ADD_FIELD (nextrec, gfc_pint4_type_node);
ADD_FIELD (size, gfc_pint4_type_node);
- ADD_FIELD (recl_in, gfc_pint4_type_node);
+ ADD_FIELD (recl_in, gfc_int4_type_node);
ADD_FIELD (recl_out, gfc_pint4_type_node);
ADD_FIELD (iolength, gfc_pint4_type_node);
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=19194
