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

foo {
 L: goto L;
}