[Bug fortran/47642] real(kind=16) - libquadmath - segfault on amd64 FreeBSD

[dominiq at lps dot ens.fr]

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

Dominique d'Humieres <dominiq at lps dot ens.fr> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2011.02.08 10:40:46
     Ever Confirmed|0                           |1

--- Comment #1 from Dominique d'Humieres <dominiq at lps dot ens.fr> 2011-02-08 10:40:46 UTC ---
I also see it on x86_64-unknown-linux-gnu and x86_64-apple-darwin10.6.0. As
shown by the following test, there is a bus error for the exponents is the
range 127 to 142 (I did not check exponents above 200;-):


        program z
        implicit none

        integer ::i
        real(kind=16) :: q

        do i=1,126
          q=2.0_16**i
          write(*,*)i,q
        end do

        do i=200,143,-1
          q=2.0_16**i
          write(*,*)i,q
        end do

!        write(*,*)'127'
!        q=2.0_16**127
!        write(*,*)i,q

        write(*,*)'142'
        q=2.0_16**142
        write(*,*)i,q

        end program z