--- Comment #7 from pault at gcc dot gnu dot org 2007-09-27 18:52 ---
After a bit of messing around, this is fixed on trunk.
Paul
--
pault at gcc dot gnu dot org changed:
What|Removed |Added
--- Comment #6 from pault at gcc dot gnu dot org 2007-09-27 18:40 ---
Subject: Bug 33568
Author: pault
Date: Thu Sep 27 18:39:55 2007
New Revision: 128843
URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=128843
Log:
2007-09-27 Paul Thomas <[EMAIL PROTECTED]>
PR fortran/
--- Comment #5 from dominiq at lps dot ens dot fr 2007-09-27 16:18 ---
With the new patch I still have an ICE on:
reala
real*8 c
print *, (nearest(0.5,-1.0)+0.5)-1.0
a = 8388609.0
print '(3(1PG26.9))', a, anint(a), anint(8388609.0)
a
--- Comment #4 from dominiq at lps dot ens dot fr 2007-09-27 13:59 ---
The patch fixes the test case on this PR, but gives ICE on several of my tests.
The simplest is:
program aint_anint_1
implicit none
real(8) :: s = 42.7D0, s1, s2
s1 = aint(s)
! s2 = aint(s, kind=4)
end pro
--- Comment #3 from tobi at gcc dot gnu dot org 2007-09-27 12:09 ---
Weird, I tried essentially the same patch (where I modeled the code after
gfc_conv_intrinsic_nint), but the failure persisted. I wonder what's different
now.
--
tobi at gcc dot gnu dot org changed:
What
--- Comment #2 from pault at gcc dot gnu dot org 2007-09-27 11:46 ---
I might as well take it:-)
Paul
--
pault at gcc dot gnu dot org changed:
What|Removed |Added
--- Comment #1 from pault at gcc dot gnu dot org 2007-09-27 10:39 ---
Confirmed. Thanks, Ignacio.
This is the fix (the absence of the KIND working and the regression wrt 4.2
were giveaways):
Index: gcc/fortran/trans-intrinsic.c
=
