diff options
Diffstat (limited to 'gcc/fortran/trans-io.c')
| -rw-r--r-- | gcc/fortran/trans-io.c | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c index fb9541f..56023b6 100644 --- a/gcc/fortran/trans-io.c +++ b/gcc/fortran/trans-io.c @@ -39,8 +39,6 @@ Software Foundation, 59 Temple Place - Suite 330, Boston, MA #include "trans-const.h" -static GTY(()) tree gfc_pint4_type_node; - /* Members of the ioparm structure. */ static GTY(()) tree ioparm_unit; @@ -160,13 +158,16 @@ static enum { READ, WRITE, IOLENGTH } last_dt; void gfc_build_io_library_fndecls (void) { + tree gfc_int4_type_node; + tree gfc_pint4_type_node; tree ioparm_type; + gfc_int4_type_node = gfc_get_int_type (4); gfc_pint4_type_node = build_pointer_type (gfc_int4_type_node); -/* Build the st_parameter structure. Information associated with I/O - calls are transferred here. This must match the one defined in the - library exactly. */ + /* Build the st_parameter structure. Information associated with I/O + calls are transferred here. This must match the one defined in the + library exactly. */ ioparm_type = make_node (RECORD_TYPE); TYPE_NAME (ioparm_type) = get_identifier ("_gfc_ioparm"); |