summaryrefslogtreecommitdiff
path: root/testsuite/tests/ghc-regress/cps/cps011.cmm
blob: 9b344d1c761b4182c309c3d60f91c7d473e15146 (plain)
1
2
3
4
5
6
7
// Yet another basic function

foo7 {
  bits32 x;
  (x) = foreign "C--" get_time() "safe";
  return (x);
}