[Bug fortran/58913] Segmentation fault on real128 array

[rrodrigues at poli dot ufrj.br]

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

--- Comment #7 from Rodrigo Rodrigues <rrodrigues at poli dot ufrj.br> ---
Here goes the backtrack:

#0  0x00000000 in ?? ()
#1  0x0042d483 in output_float_FMT_G_16 (comp_d=<optimized out>, 
    zero_flag=<optimized out>, sign_bit=<optimized out>, 
    size=<optimized out>, buffer=<optimized out>, m=<optimized out>, 
    f=0x22fb6c, dtp=<optimized out>)
    at ../../../gcc-4.8.0-mingw/libgfortran/io/write_float.def:1112
#2  write_float (dtp=dtp@entry=0x22fcf8, f=f@entry=0x22fbbc, 
    source=source@entry=0x22fe70 "", len=len@entry=16, comp_d=comp_d@entry=1)
    at ../../../gcc-4.8.0-mingw/libgfortran/io/write_float.def:1259
#3  0x0041f78f in __gfortrani_write_real (dtp=dtp@entry=0x22fcf8, 
    source=source@entry=0x22fe70 "", length=length@entry=16)
    at ../../../gcc-4.8.0-mingw/libgfortran/io/write.c:1470
#4  0x00419dd4 in list_formatted_write_scalar (size=16, kind=16, p=0x22fe70, 
    type=BT_REAL, dtp=0x22fcf8)
    at ../../../gcc-4.8.0-mingw/libgfortran/io/write.c:1571
#5  __gfortrani_list_formatted_write (dtp=0x22fcf8, type=BT_REAL, p=0x22fe70, 
    kind=16, size=16, nelems=2)
    at ../../../gcc-4.8.0-mingw/libgfortran/io/write.c:1599
#6  0x0041704b in __gfortran_transfer_array (dtp=0x22fcf8, desc=0x22fe58, 
    kind=16, charlen=<optimized out>)
    at ../../../gcc-4.8.0-mingw/libgfortran/io/transfer.c:2170
#7  0x0040173d in MAIN__ ()
#8  0x00401786 in main ()