aboutsummaryrefslogtreecommitdiff
path: root/gcc/fortran/trans-io.c
diff options
context:
space:
mode:
authorJanne Blomqvist <jb@gcc.gnu.org>2017-01-13 21:53:16 +0200
committerJanne Blomqvist <jb@gcc.gnu.org>2017-01-13 21:53:16 +0200
commitc1e9bbcc49c1b9f169c5911f3871f5df109bff9b (patch)
treebf815e2471d2b7f7e44d76a31e98cc1d05e07b34 /gcc/fortran/trans-io.c
parentbe4aa83d6ff4720fffd2c9f62c6e3082ece1937f (diff)
downloadgcc-c1e9bbcc49c1b9f169c5911f3871f5df109bff9b.zip
gcc-c1e9bbcc49c1b9f169c5911f3871f5df109bff9b.tar.gz
gcc-c1e9bbcc49c1b9f169c5911f3871f5df109bff9b.tar.bz2
Revert r244448
From-SVN: r244454
Diffstat (limited to 'gcc/fortran/trans-io.c')
-rw-r--r--gcc/fortran/trans-io.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c
index 02e2b91..fbbad46 100644
--- a/gcc/fortran/trans-io.c
+++ b/gcc/fortran/trans-io.c
@@ -339,11 +339,11 @@ gfc_build_io_library_fndecls (void)
iocall[IOCALL_X_CHARACTER] = gfc_build_library_function_decl_with_spec (
get_identifier (PREFIX("transfer_character")), ".wW",
- void_type_node, 3, dt_parm_type, pvoid_type_node, gfc_charlen_type_node);
+ void_type_node, 3, dt_parm_type, pvoid_type_node, gfc_int4_type_node);
iocall[IOCALL_X_CHARACTER_WRITE] = gfc_build_library_function_decl_with_spec (
get_identifier (PREFIX("transfer_character_write")), ".wR",
- void_type_node, 3, dt_parm_type, pvoid_type_node, gfc_charlen_type_node);
+ void_type_node, 3, dt_parm_type, pvoid_type_node, gfc_int4_type_node);
iocall[IOCALL_X_CHARACTER_WIDE] = gfc_build_library_function_decl_with_spec (
get_identifier (PREFIX("transfer_character_wide")), ".wW",