[Bug libfortran/23419] unformatted complex I/O with kind=10

[tobi at gcc dot gnu dot org]

------- Additional Comments From tobi at gcc dot gnu dot org  2005-08-16 19:06 -------
I'm getting a segfault due to an invalid FP value:

Program received signal SIGSEGV, Segmentation fault.
0x4005a81b in output_float (f=0x8052110, value=<invalid float value>)
    at ../../../libgfortran/io/write.c:419
419       if (buffer[2] != '.' || buffer[ndigits + 2] != 'e')
(gdb) bt   
#0  0x4005a81b in output_float (f=0x8052110, value=<invalid float value>)
    at ../../../libgfortran/io/write.c:419
#1  0x4005b3bd in write_float (f=0xfffffff9, source=Variable "source" is not
available.
)
    at ../../../libgfortran/io/write.c:844
#2  0x4005b548 in write_real (source=0xbfffea7a "", length=Variable "length" is
not available.
)
    at ../../../libgfortran/io/write.c:1331
#3  0x4005b5f1 in write_complex (source=0xbfffea70 "ÍÌÌÌÌÌÌÌ", len=10)
    at ../../../libgfortran/io/write.c:1345
#4  0x4005bdfd in *_gfortrani_list_formatted_write (type=BT_COMPLEX, 
    p=0xbfffea70, len=10) at ../../../libgfortran/io/write.c:1406
#5  0x40055160 in *_gfortran_transfer_complex (p=0xbfffea70, kind=10)
    at ../../../libgfortran/io/transfer.c:894
#6  0x080488be in MAIN__ () at pr23419.f90:9
#7  0x080489b3 in main (argc=1, argv=0xbfffeb34)
    at ../../../libgfortran/fmain.c:18
(gdb) 

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|                            |1
   Last reconfirmed|0000-00-00 00:00:00         |2005-08-16 19:06:55
               date|                            |


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