summaryrefslogtreecommitdiff
path: root/testsuite/tests/asmgen/catch-try.cmm
blob: b5253843ed27d15599f353d0e1234ee766a69a81 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
(* TEST
 readonly_files = "main.c";
 arguments = "-DINT_INT -DFUN=catch_exit main.c";
 asmgen;
*)

(function "catch_exit" (b:int)
  (+ 33
  (catch
    (try (exit lbl 12)
     with var 456)
   with (lbl x:val) (+ x 789))))