"Till Varoquaux" <till.varoquaux@gmail.com> writes:
> I have a  open bug in ocaml
> (http://caml.inria.fr/mantis/view.php?id=4321) that leads very simply
> to a segfault. The bug has been there for more than 4 months and is
> still marked as "new". Since it seems to be stalling I thought I might
> give it a gentle prod: what is the smallest possible ocaml program you
> can come up with that leads to a reproducible segfault without using
> FFI's Obj or Marshal. Here is mine:
>
> Scanf.sscanf  "\"%2$c%1$s\"" "%{%c%s%}" (fun f->Printf.printf f 'x' "xy");;
>

exception E of [>];; 
try raise(E`X) with E`X x-> !x

53 bytes in total, tested with v.3.10 toplevel. If compiled, just
provide it with an 0 byte interface file.

-- 
Zheng Li
http://www.pps.jussieu.fr/~li