https://gcc.gnu.org/bugzilla/show_bug.cgi?id=83225
--- Comment #3 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> --- Author: jvdelisle Date: Sun Dec 3 03:26:09 2017 New Revision: 255362 URL: https://gcc.gnu.org/viewcvs?rev=255362&root=gcc&view=rev Log: 2017-12-02 Jerry DeLisle <jvdeli...@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. Modified: trunk/libgfortran/ChangeLog trunk/libgfortran/io/io.h trunk/libgfortran/io/transfer.c trunk/libgfortran/io/unit.c
