diff options
Diffstat (limited to 'ocaml-binary-annot/camlp4/test/fixtures/match.ml')
| -rw-r--r-- | ocaml-binary-annot/camlp4/test/fixtures/match.ml | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/ocaml-binary-annot/camlp4/test/fixtures/match.ml b/ocaml-binary-annot/camlp4/test/fixtures/match.ml new file mode 100644 index 0000000000..9fb52cb791 --- /dev/null +++ b/ocaml-binary-annot/camlp4/test/fixtures/match.ml @@ -0,0 +1,9 @@ +let x = + match y with + | A z -> z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z + | B l -> + (match l with + | [] -> () + | x::xs -> p x; self xs) + | C -> () +in x |