[Bug fortran/33568] ICE with ANINT (with KIND and an array)

[dominiq at lps dot ens dot fr]

------- 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:

        real    a
        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 = 8388610.0
        print '(3(1PG26.9))', a, anint(a), anint(8388610.0)
        a = 0.49999992
        print '(3(1PG26.9))', a, anint(a), anint(0.49999992)
        a = 0.49999997
        print '(3(1PG26.9))', a, anint(a), anint(0.49999997)
        print *, a-nearest(0.5,-1.0), (a+0.5)-1.0
        c = 4503599627370498.0d0
        print '(3(1PG26.18))', c, dnint(c), dnint(4503599627370498.0d0)
        c = 4503599627370497.0d0
        print '(3(1PG26.18))', c, dnint(c), dnint(4503599627370497.0d0)
        c = 0.4999999999999999d0
        print '(3(1PG26.18))', c, dnint(c), dnint(0.4999999999999999d0)
        c = 0.49999999999999994d0
        print '(3(1PG26.18))', c, dnint(c), dnint(0.49999999999999994d0)
        end

nint_tst.f90:6: internal compiler error: in gfc_conv_intrinsic_function_args,
at fortran/trans-intrinsic.c:188

I also failures for gfortran.dg/PR19754_2.f90


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=33568