This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: Possible explaination why large_real_kind_form_io_2.f90 is failing on PPC/OSX
- From: dominiq at lps dot ens dot fr (Dominique Dhumieres)
- To: dominiq at lps dot ens dot fr, sgk at troutmask dot apl dot washington dot edu
- Cc: fortran at gcc dot gnu dot org, schnetter at cct dot lsu dot edu
- Date: Sun, 14 Jan 2007 22:24:02 +0100 (CET)
- Subject: Re: Possible explaination why large_real_kind_form_io_2.f90 is failing on PPC/OSX
> ...
> is a gfortran bug, ...
What about the following code?
real(16) :: x
real(8) :: y
print *, cos(1.0_16)-cos(1.0_8)
x = cos(1.0_16)
y = cos(1.0_8)
print *, x-y
x = 1.0_16
y = 1.0_8
x = cos(x)
y = cos(y)
print *, x-y
end
giving
-4.7609546126044172212850492011771717E-0017
-4.7609546126044172212850492011771717E-0017
-1.9841535727186827560257487146344602E-0004
Dominique