diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2010-07-13 02:07:48 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2010-07-13 02:07:48 +0000 |
| commit | c8dce2cfddf0baf62bf56c2d5a49e1dfcdda0231 (patch) | |
| tree | 0f028cc7eed49d585498e45af6594521c548ad3a | |
| parent | cc343f65a48d5ec694f10cb31250587f01e3828e (diff) | |
| download | gcc-c8dce2cfddf0baf62bf56c2d5a49e1dfcdda0231.zip gcc-c8dce2cfddf0baf62bf56c2d5a49e1dfcdda0231.tar.gz gcc-c8dce2cfddf0baf62bf56c2d5a49e1dfcdda0231.tar.bz2 | |
re PR fortran/37077 (Implement Internal Unit I/O for character KIND=4)
2010-07-12 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/37077
* trans-io.c (build_dt): Set common.unit to flag chracter(kind=4)
internal unit.
From-SVN: r162122
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/trans-io.c | 3 |
2 files changed, 8 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 94572cf..25b34f2 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2010-07-12 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR fortran/37077 + * trans-io.c (build_dt): Set common.unit to flag chracter(kind=4) + internal unit. + 2010-07-12 Mikael Morin <mikael@gcc.gnu.org> * 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 8626e03..80cc765 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 |