Original bug ID: 2982
Reporter: administrator
Status: closed
Resolution: fixed
Priority: normal
Severity: minor
Category: ~DO NOT USE (was: OCaml general)

Bug description

Full_Name: Per Øyvind Karlsen
Version: 3.08.0
OS: Mandrake Linux
Submission from: terror.sintrax.net (81.0.165.66)

here's a folluwoup to 2980 (I wasn't allowed to post followups as guest user)

% cat > t.ml
let rec string_forall_with f i s =
try
f s.[i] && string_forall_with f (i+1) s
with Invalid_argument _ -> true
;;
string_forall_with (fun _ -> true) 0 "foo"

% ocamlopt t.ml
% ./a.out
Fatal error: out-of-bound access in array or string

btw. same happens with cvs version