------- Comment #60 from dominiq at lps dot ens dot fr 2008-02-27 21:26 -------
(In reply to comment #53)
> Oops, sorry, fixed by rev. 132621.
Now I get:
XPASS: gfortran.dg/large_real_kind_3.F90 -O0 (test for excess errors)
FAIL: gfortran.dg/large_real_kind_3.F90 -O0 execution test
XPASS: gfortran.dg/large_real_kind_3.F90 -O1 (test for excess errors)
XPASS: gfortran.dg/large_real_kind_3.F90 -O2 (test for excess errors)
XPASS: gfortran.dg/large_real_kind_3.F90 -O3 -fomit-frame-pointer (test for
excess errors)
XPASS: gfortran.dg/large_real_kind_3.F90 -O3 -fomit-frame-pointer
-funroll-loops (test for excess errors)
XPASS: gfortran.dg/large_real_kind_3.F90 -O3 -fomit-frame-pointer
-funroll-all-loops -finline-functions (test for excess errors)
XPASS: gfortran.dg/large_real_kind_3.F90 -O3 -g (test for excess errors)
XPASS: gfortran.dg/large_real_kind_3.F90 -Os (test for excess errors)
in both 32 and 64 bit modes. I think the xpass are normal as the optimized dump
is:
;; Function MAIN__ (MAIN__)
Analyzing Edge Insertions.
MAIN__ ()
{
static integer(kind=4) options.0[7] = {68, 127, 0, 0, 0, 1, 0};
<bb 2>:
_gfortran_set_options (7, &options.0);
if (2.9236712223862218652692294906906497118927045376e-17 /
9.59864575062830072127439962059725075960159301758e-1 >
9.99999993922529029077850282192230224609375e-9)
goto <bb 3>;
else
goto <bb 4>;
<bb 3>:
_gfortran_abort ();
<bb 4>:
if (5.87424647807422190473069128537003046257953999681e-17 /
1.13897071699133300981543470697943121194839477539e+0 >
9.99999993922529029077850282192230224609375e-9)
goto <bb 5>;
else
goto <bb 6>;
<bb 5>:
_gfortran_abort ();
<bb 6>:
return;
}
Also I don't understand why there is a test for "excess errors".
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=25477
