diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2017-12-03 03:26:09 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2017-12-03 03:26:09 +0000 |
| commit | 7b39e3c24f912f274ea2127ca7fc3133bf97a911 (patch) | |
| tree | af7bfb1c126c7ac0f9cba1f37be28fd90041d885 /libgfortran/io/io.h | |
| parent | acffd4fd6404bee31508007af5942192a78ab016 (diff) | |
| download | gcc-7b39e3c24f912f274ea2127ca7fc3133bf97a911.zip gcc-7b39e3c24f912f274ea2127ca7fc3133bf97a911.tar.gz gcc-7b39e3c24f912f274ea2127ca7fc3133bf97a911.tar.bz2 | |
re PR fortran/83225 (runtime error in transfer.c)
2017-12-02 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/83225
* io/io.h (is_internal_unit): Use the unit_is_internal bit.
* io/transfer.c (data_transfer_init): Set the bit to true for
internal umits. Use that bit for checks for internal unit
initializations.
* io/unit.c (insert_unit): As a precaution, set the
internal_unit_kind to zero when a unit structure is first created.
From-SVN: r255362
Diffstat (limited to 'libgfortran/io/io.h')
| -rw-r--r-- | libgfortran/io/io.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/io/io.h b/libgfortran/io/io.h index fd48bf1..c5e73d8 100644 --- a/libgfortran/io/io.h +++ b/libgfortran/io/io.h @@ -69,7 +69,7 @@ internal_proto(old_locale_lock); #define is_array_io(dtp) ((dtp)->internal_unit_desc) -#define is_internal_unit(dtp) ((dtp)->u.p.current_unit->internal_unit_kind) +#define is_internal_unit(dtp) ((dtp)->u.p.unit_is_internal) #define is_stream_io(dtp) ((dtp)->u.p.current_unit->flags.access == ACCESS_STREAM) |