https://gcc.gnu.org/bugzilla/show_bug.cgi?id=68867
--- Comment #7 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> --- In the test case, I need to adjust the line; if (astring(2:2) /= '9') then to: if (astring(3:3) /= '9') then since the previous patch corrected a missing leading zero on the formatting. I will do so tomorrow.