blob: e9f29cb3e2a7784e1c10ee15aa92b803295fc723 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
(* TEST
flags = "-w +A-70"
* setup-ocamlc.byte-build-env
** ocamlc.byte
compile_only = "true"
*** check-ocamlc.byte-output
*)
let f = (fun x -> x) [@inline] [@inline never]
let g = (fun x -> x) [@inline] [@something_else] [@ocaml.inline]
let h x = (g [@inlined] [@ocaml.inlined never]) x
let v = ((fun x -> x) [@inline] [@inlined]) 1 (* accepted *)
let i = ((fun x -> x) [@inline]) [@@inline]
|
