Original bug ID: 3914
Reporter: Charles Martin
Status: closed (set by @garrigue on 2005-12-15T03:16:01Z)
Resolution: fixed
Priority: normal
Severity: minor
Version: 3.09.0
Category: ~DO NOT USE (was: OCaml general)
Has duplicate: #3971 #4065

Bug description

class ship (name : string) =
object
method name = name
end

let make name =
let hms_name = "H.M.S. " ^ name in
object
inherit ship hms_name
end

$ ocamlopt -c test.ml
File "test.ml", line 7, characters 6-14:
Warning Y: unused variable hms_name.