I have committed the following as simple after full regression testing on linux-x64_86:
It is also a regression on the 7 branch and I will commit there as well. 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