[Bug fortran/56204] [4.8 regression] gfortran.dg/quad_[23].f90 FAIL on Solaris 9/x86

[burnus at gcc dot gnu.org]

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.