freepascal.compiler/tests/tbf/tb0073.pp

{ %FAIL }
{ Old file: tbf0349.pp }
{  }

{$mode delphi}

type
  TCl=class;

const
  b=1;

type
  TCL=class
  end;

begin
end.