path: root/testsuite/tests/cps/cmm001.cmm

// This puts GHC into an infinite loop(!) when -O is on

foo {
 L: goto L;
}