blob: a109ed052c2498f1ecceec2cefc76bffcd5a4e91 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
(* TEST
flags = " -w -a "
* setup-ocamlc.byte-build-env
** ocamlc.byte
*** check-ocamlc.byte-output
*)
(* test.ml *)
class alfa = object(_:'self)
method x: 'a. ('a, out_channel, unit) format -> 'a = Printf.printf
end
class bravo a = object
val y = (a :> alfa)
initializer y#x "bravo initialized"
end
class charlie a = object
inherit bravo a
initializer y#x "charlie initialized"
end
|