From 487c959a53968b3e83b2dff6dfccb03dca9db6f6 Mon Sep 17 00:00:00 2001 From: jvdelisle Date: Tue, 13 Jul 2010 02:07:48 +0000 Subject: [PATCH] 2010-07-12 Jerry DeLisle PR fortran/37077 * trans-io.c (build_dt): Set common.unit to flag chracter(kind=4) internal unit. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@162122 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/trans-io.c | 3 ++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 94572cf4f48..25b34f21849 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2010-07-12 Jerry DeLisle + + PR fortran/37077 + * trans-io.c (build_dt): Set common.unit to flag chracter(kind=4) + internal unit. + 2010-07-12 Mikael Morin * expr.c (gfc_get_int_expr): Don't initialize mpfr data twice. diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c index 8626e032da4..80cc765d134 100644 --- a/gcc/fortran/trans-io.c +++ b/gcc/fortran/trans-io.c @@ -1669,7 +1669,8 @@ build_dt (tree function, gfc_code * code) { mask |= set_internal_unit (&block, &post_iu_block, var, dt->io_unit); - set_parameter_const (&block, var, IOPARM_common_unit, 0); + set_parameter_const (&block, var, IOPARM_common_unit, + dt->io_unit->ts.kind == 1 ? 0 : -1); } } else -- 2.11.0