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

--- Comment #8 from Anton Shterenlikht <mexas at bristol dot ac.uk> 2011-02-09 
00:43:07 UTC ---
With Gerald's patch (http://gcc.gnu.org/bugzilla/show_bug.cgi?id=47649)
I got gcc46 installed on FreeBSD sparc64,
and there I don't get segfault:

QOF> uname -a
FreeBSD mech-anton240.men.bris.ac.uk 9.0-CURRENT FreeBSD 9.0-CURRENT #1
r216048: Mon Nov 29 15:19:12 GMT 2010    
r...@mech-anton240.men.bris.ac.uk:/usr/obj/usr/src/sys/QOF  sparc64
QOF> cat kind16.f90 
        program z
        implicit none

        real(kind=16) :: q

        q=1.0e39_16

        write(*,*)q
        write(*,*)nearest(q,1.0)
        write(*,*)nearest(q,1.0)-q

        end program z

QOF> gfortran46 -Wl,-rpath=/usr/local/lib/gcc46 kind16.f90
QOF> ./a.out 
  1.00000000000000000000000000000000000E+0039
  1.00000000000000000000000000000000013E+0039
   131072.00000000000000000000000000000      
QOF>

Reply via email to