diff options
| author | Janne Blomqvist <jb@gcc.gnu.org> | 2007-07-28 01:32:20 +0300 |
|---|---|---|
| committer | Janne Blomqvist <jb@gcc.gnu.org> | 2007-07-28 01:32:20 +0300 |
| commit | dd52ecb0f6c235dc9a4e41af0dac74f00d372b63 (patch) | |
| tree | 4c8cb62c6377bb33840006ebb6fd01f21ad8dde5 /gcc/fortran/trans-io.c | |
| parent | 8dcb83bb8b51594ad0f46fc5a04fa05fef4c1842 (diff) | |
| download | gcc-dd52ecb0f6c235dc9a4e41af0dac74f00d372b63.zip gcc-dd52ecb0f6c235dc9a4e41af0dac74f00d372b63.tar.gz gcc-dd52ecb0f6c235dc9a4e41af0dac74f00d372b63.tar.bz2 | |
re PR fortran/32909 (Replace gfc_c_int_type_node with integer_type_node)
2007-07-28 Janne Blomqvist <jb@gcc.gnu.org>
PR fortran/32909
* trans-stmt.c (gfc_trans_character_select): Replace occurrences
of gfc_c_int_type_node with integer_type_node.
* trans-decl.c (gfc_build_intrinsic_function_decls): Likewise.
(gfc_build_builtin_function_decls): Likewise.
(gfc_generate_function_code): Likewise.
* trans-io.c (gfc_build_io_library_fndecls): Likewise.
From-SVN: r127003
Diffstat (limited to 'gcc/fortran/trans-io.c')
| -rw-r--r-- | gcc/fortran/trans-io.c | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c index adc7bc1..f1ea931 100644 --- a/gcc/fortran/trans-io.c +++ b/gcc/fortran/trans-io.c @@ -276,7 +276,6 @@ gfc_build_io_library_fndecls (void) tree types[IOPARM_type_num], pad_idx, gfc_int4_type_node; tree gfc_intio_type_node; tree parm_type, dt_parm_type; - tree gfc_c_int_type_node; HOST_WIDE_INT pad_size; enum ioparam_type ptype; @@ -300,8 +299,6 @@ gfc_build_io_library_fndecls (void) TYPE_ALIGN (types[IOPARM_type_pad]) = MAX (TYPE_ALIGN (pchar_type_node), TYPE_ALIGN (gfc_get_int_type (gfc_max_integer_kind))); - gfc_c_int_type_node = gfc_get_int_type (gfc_c_int_kind); - for (ptype = IOPARM_ptype_common; ptype < IOPARM_ptype_num; ptype++) gfc_build_st_parameter (ptype, types); @@ -342,7 +339,7 @@ gfc_build_io_library_fndecls (void) gfc_build_library_function_decl (get_identifier (PREFIX("transfer_array")), void_type_node, 4, dt_parm_type, - pvoid_type_node, gfc_c_int_type_node, + pvoid_type_node, integer_type_node, gfc_charlen_type_node); /* Library entry points */ |