freepascal.compiler/tests/tbf/tb0014.pp

{ %FAIL }
{ Old file: tbf0094.pp }
{ internal error when recordtype not found with case    OK 0.99.1 }

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