------- Comment #3 from michelin60 at gmail dot com 2007-08-31 17:24 -------
> Could you compile with "-O0 -fdump-tree-original" and attach the
> nint_3.f90.003t.original file (or similarly named)? Could you also run with
> "-O1 -fdump-tree-optimized" and attach nint_3.f90.115t.optimized (or similarly
> named)?
No problem but some questions:
A) I see that you and others put a number of patches and regenerations. Do you
want me to rebootstrap and then do it? If an earlier version is acceptable do
you want using the test command as amended per above can I do outside of the
gcc tree?
If outside the tree I can do it right now. I also hope that the attachment
process works again. personally I had no problems until PR33252. I presume you
are in Europe with a 6 hour time difference.
I will do it on nint_2.f90 right now to try the attachment nint_3.f90 migh have
been a slip on your part. They are small thus not attached.
Original:
MAIN__ ()
{
real8 a;
int4 j2;
int8 i2;
int8 i1;
real4 b;
int4 j1;
static int4 options.0[7] = {68, 127, 0, 0, 0, 1, 0};
_gfortran_set_options (7, (void *) &options.0);
a = 4.99999999999999944488848768742172978818416595459e-1;
i2 = 0;
i1 = (int8) __builtin_lround (a);
if (i1 != 0 || i2 != 0)
{
_gfortran_abort ();
}
a = 5.0e-1;
i2 = 1;
i1 = (int8) __builtin_lround (a);
if (i1 != 1 || i2 != 1)
{
_gfortran_abort ();
}
a = 5.00000000000000111022302462515654042363166809082e-1;
i2 = 1;
i1 = (int8) __builtin_lround (a);
if (i1 != 1 || i2 != 1)
{
_gfortran_abort ();
}
b = 4.999999701976776123046875e-1;
j2 = 0;
j1 = (int4) __builtin_lroundf (b);
if (j1 != 0 || j2 != 0)
{
_gfortran_abort ();
}
b = 5.0e-1;
j2 = 1;
j1 = (int4) __builtin_lroundf (b);
if (j1 != 1 || j2 != 1)
{
_gfortran_abort ();
}
b = 5.00000059604644775390625e-1;
j2 = 1;
j1 = (int4) __builtin_lroundf (b);
if (j1 != 1 || j2 != 1)
{
_gfortran_abort ();
}
a = 4.503599627370497e+15;
i1 = __builtin_llround (a);
i2 = 4503599627370497;
if (i1 != i2 || i1 != 4503599627370497)
{
_gfortran_abort ();
}
a = -4.503599627370497e+15;
i1 = __builtin_llround (a);
i2 = -4503599627370497;
if (i1 != i2 || i1 != -4503599627370497)
{
_gfortran_abort ();
}
}
Optimized: ?????
;; Function MAIN__ (MAIN__)
Analyzing Edge Insertions.
MAIN__ ()
{
static int4 options.0[7] = {68, 127, 0, 0, 0, 1, 0};
<bb 2>:
_gfortran_set_options (7, &options.0);
return;
}
Invalid sum of incoming frequencies 10000, should be 9053
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=33271
