From: Jerry DeLisle Date: Tue, 13 Jul 2010 02:07:48 +0000 (+0000) Subject: re PR fortran/37077 (Implement Internal Unit I/O for character KIND=4) X-Git-Tag: releases/gcc-4.6.0~5685 X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=c8dce2cfddf0baf62bf56c2d5a49e1dfcdda0231;p=thirdparty%2Fgcc.git re PR fortran/37077 (Implement Internal Unit I/O for character KIND=4) 2010-07-12 Jerry DeLisle PR fortran/37077 * trans-io.c (build_dt): Set common.unit to flag chracter(kind=4) internal unit. From-SVN: r162122 --- diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 94572cf4f48b..25b34f21849a 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 8626e032da43..80cc765d134b 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