2017-12-02 Jerry DeLisle <jvdelisle@gcc.gnu.org>
commiteb4696c37561bf9bf191fe7fd414f9cf8233c1fe
authorjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 3 Dec 2017 03:26:09 +0000 (3 03:26 +0000)
committerjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 3 Dec 2017 03:26:09 +0000 (3 03:26 +0000)
treeaf7bfb1c126c7ac0f9cba1f37be28fd90041d885
parent57697c7afaefa4d1a4e8e3af7e4e58429cb9f415
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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@255362 138bc75d-0d04-0410-961f-82ee72b054a4
libgfortran/ChangeLog
libgfortran/io/io.h
libgfortran/io/transfer.c
libgfortran/io/unit.c