Propose to XFAIL tests on ppc64
Jerry DeLisle
jvdelisle@verizon.net
Sat Nov 3 15:35:00 GMT 2007
Testing on ppc64 Linux system:
Using:
program elarge
integer, parameter :: k = 16
real(kind=k) :: a,b(2)
character(len=380) :: tmp
b(:) = huge(0.0_k)
write (tmp,'(2(1x,g60.52))') b(1)
read (tmp, *) a
print '(a)', "01234567890123456789012345678901234567890123456789"
print '(a)', trim(tmp)
print '(1p,g60.52)', b(1)
print '(1p,g60.52)', a
print *, a
print '(1p,g60.52)', a-b(1)
if (a /= b(1)) print *, "no match"
end program elarge
Gives:
$ ./a.out
01234567890123456789012345678901234567890123456789
0.8988465674311579538646525953945123668100000000000000+308
8.9884656743115795386465259539451236681000000000000000+307
8.9884656743115795386465259539451236681000000000000000+307
8.9884656743115795386465259539451237E+0307
1.1079139325602226427183020846172426344000000000000000+276
no match
I modified gfortran to extend the number of digits converted out to a default
width of 85 characters and the a and b(1) outputs match to the extent of the
available digits and yet the comparison still fails and the difference is still
large.
OK to XFAIL the following for this platform?
default_format_2.f90
default_format_denormal_2.f90
large_real_kind_form_io_2.f90
Regards,
Jerry
More information about the Fortran
mailing list