ministg-0.3: test/non_exhaustive_pattern.stg

foo = CON(Foo);
end = CON(End);
main = THUNK(
   case foo of { Bar -> end; x -> error; }
);