[Bug libfortran/31933] New: Uninitialized memory when writing real(10) as unformatted

["burnus at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

program main
  implicit none
  real(kind=10) :: a
  a = 1.1_10
  write(10) a
end program main

Maybe someone could check real(16) as well. I assume only real(10) is affected,
though.

Gives:
==4217== Syscall param write(buf) points to uninitialised byte(s)
==4217==    at 0x5601550: write (in /lib64/libc-2.5.so)
==4217==    by 0x4EBF570: do_write (unix.c:336)
==4217==    by 0x4EBF611: fd_flush (unix.c:386)
==4217==    by 0x4EBD224: _gfortran_st_write_done (transfer.c:2832)
==4217==    by 0x40083D: MAIN__ (in /dev/shm/a.out)
==4217==    by 0x40086B: main (fmain.c:22)
==4217==  Address 0x40517ED is 165 bytes inside a block of size 8,344 alloc'd
==4217==    at 0x4C22D06: malloc (in
/usr/lib64/valgrind/amd64-linux/vgpreload_memcheck.so)
==4217==    by 0x4E3EF18: _gfortrani_get_mem (memory.c:53)
==4217==    by 0x4EBFFD9: fd_to_stream (unix.c:1043)
==4217==    by 0x4EB9494: _gfortrani_new_unit (open.c:376)
==4217==    by 0x4EBE150: data_transfer_init (transfer.c:1785)
==4217==    by 0x40081C: MAIN__ (in /dev/shm/a.out)
==4217==    by 0x40086B: main (fmain.c:22)


-- 
           Summary: Uninitialized memory when writing real(10) as
                    unformatted
           Product: gcc
           Version: 4.3.0
            Status: UNCONFIRMED
          Keywords: wrong-code
          Severity: normal
          Priority: P3
         Component: libfortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: burnus at gcc dot gnu dot org
GCC target triplet: x86_64-unknown-linux-gnu


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