--- Comment #10 from dominiq at lps dot ens dot fr 2007-07-23 15:03 ---
This a regression from 4.2. The following code
real(8) x, y
real(8) down, up
x = huge(x)
y = down(x)
print *, y, up(y)-x, up(up(y))-x, up(up(x))-x
y = up(y)
print *, x, y
end
real(8) function up(x)
real(8) x
up = ne
--- Comment #9 from dominiq at lps dot ens dot fr 2007-07-23 14:53 ---
Created an attachment (id=13954)
--> (http://gcc.gnu.org/bugzilla/attachment.cgi?id=13954&action=view)
darwin_objdir/powerpc-apple-darwin8/libgfortran/config.h
> Can you post the config.h file from your build direct
--- Comment #8 from dominiq at lps dot ens dot fr 2007-07-20 22:28 ---
Subject: Re: FAIL: gfortran.dg/edit_real_1.f90 on
Darwin8
> Can you post the config.h file from your build directory?
Unfortunately, it is gone (fink install) and I'll be away for two days.
So not before Monday ev
--- Comment #7 from jvdelisle at gcc dot gnu dot org 2007-07-20 22:21
---
Can you post the config.h file from your build directory?
blddir/archdir/libgfortran/config.h
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=32841
--- Comment #6 from dominiq at lps dot ens dot fr 2007-07-20 22:08 ---
Subject: Re: FAIL: gfortran.dg/edit_real_1.f90 on
Darwin8
> Try this: ...
I get
1.79769313486231570814527423731704356798070567526e+308
isfinite = 1
isfinite = 0
There is something I don't understand:
in libgfort
--- Comment #5 from jvdelisle at gcc dot gnu dot org 2007-07-20 21:41
---
Try this:
#include
#include
#include
int
main ()
{
double x, y;
x = 1.79769313486231570814527423731704356798070567526e+308;
printf("%52.47e\n", x);
printf("isfinite = %d\n", isfinite(x));
printf("
--- Comment #4 from dominiq at lps dot ens dot fr 2007-07-20 21:20 ---
Subject: Re: FAIL: gfortran.dg/edit_real_1.f90 on
Darwin8
I don't know if the following code is correct, but it returns 1:
#include
#include
int main()
{
double x;
x = 1.7976931348623157081452742373170435679
--- Comment #3 from jvdelisle at gcc dot gnu dot org 2007-07-20 21:01
---
Additional note: isfinite may be getting redefined in libgfortran.h
/* The isfinite macro is only available with C99, but some non-C99
systems still provide fpclassify, and there is a `finite' function
in B
--- Comment #2 from dominiq at lps dot ens dot fr 2007-07-20 21:00 ---
Subject: Re: FAIL: gfortran.dg/edit_real_1.f90 on
Darwin8
> Can you test with a C program to see if indeed this is the problem?
My knowledge of C it very limited, you know!-(
Could you send me some canvas to star
--- Comment #1 from jvdelisle at gcc dot gnu dot org 2007-07-20 20:54
---
The WTITEing of "Infinity" is dependent on the following C code in io/write.c
res = isfinite (n);
if (res == 0)
So if the isfinite function is broken on this system, that would explain this
problem.
10 matches
Mail list logo
