https://gcc.gnu.org/bugzilla/show_bug.cgi?id=68867
--- Comment #8 from Dominique d'Humieres <dominiq at lps dot ens.fr> --- > Removing the comment gives: > > 3 39 0.999999999999999999999999999999996919E-0001 > 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. I doubt that will fix the problem: it seems related to to a rounding issue with REAL(16). Which REAL(16) is used? "IBM" one or float_128?