summaryrefslogtreecommitdiff
path: root/testsuite/tests/ghc-regress/cps/cps001.cmm
blob: 72ab24b631eaccde517dccf742e1608d3926e3ae (plain)
1
2
3
4
5
6
7
8
9
// Basic function with a call

foo1 {
  bits32 x;
 B:
  foreign "C--" bar() "safe";
  x = 3;
  goto B;
}