freepascal.compiler/bugs/bug0094.pp

begin
  case textrec(l).mode of
   1 ;
  end;
end.