summaryrefslogtreecommitdiff
path: root/testsuite/tests/effects/unhandled_unlinked.ml
blob: bc2badb8e8a6852ab70f238d8e8ef0a68934c088 (plain)
1
2
3
4
5
6
7
(* TEST
     exit_status= "2"
*)

open Effect
type _ t += E : unit t
let _ = perform E