Segfault in write

[FX Coudert]

> $ cat segfault.f90
>   real(kind=10) :: x
>   integer(kind=8) j(2)
>   equivalence (x,j(1))
>   j = (/30522239848135016_8,4294967297_8/)
>   print *, j
>   write(*,*) x
> end
> $ gfortran segfault.f90 && ./a.out
>     30522239848135016           4294967297
> zsh: segmentation fault  ./a.out

This segfault has its origin in glibc, at least on i686-linux. Reported 
in glibc bugzilla as bug 
(http://www.sourceware.org/bugzilla/show_bug.cgi?id=1362 to follow 
progress on it).

FX