http://gcc.gnu.org/bugzilla/show_bug.cgi?id=56204
Tobias Burnus <burnus at gcc dot gnu.org> changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |burnus at gcc dot gnu.org
--- Comment #1 from Tobias Burnus <burnus at gcc dot gnu.org> 2013-02-12
19:27:16 UTC ---
(In reply to comment #0)
> The test is l.34:
>
> 34 if (fp2 /= fp4) call abort()
> but unfortunately gdb 7.5 can read neither variable.
Can you uncomment the existing "print" lines and add
print *, fp2
print *, fp4
before the abort line?
Probably, some rounding goes wrong - maybe replacing
if (fp2 /= fp4) call abort()
by
if (abs (fp2 - fp4)/fp2 > epsilon(fp2)) call abort()
works which allows for a minor deviation of the value.
