https://gcc.gnu.org/bugzilla/show_bug.cgi?id=118571
--- Comment #2 from kargls at comcast dot net ---
Tracing into libgfortran, the bug appears to be in write.c(write_utf8_char4).
In particular, the entire string is written due to line 181. The 'src_len'
is likely wrong if one has an A edit descriptor with a width. Perhaps,
it should be 'w_len < src_len ? w_len : src_len'
/* Now process the remaining characters, one at a time. */
for (j = k; j < src_len; j++)
{
