program tdeclared;

{$mode objfpc}

{$ifndef NO_TESTCONST}
const
  TestConst = 42;
{$endif}

{$ifndef NO_TESTVAR}
var
  TestVar: LongInt = 42;
{$endif}

{$ifndef NO_TESTFUNC}
function TestFunc: LongInt;
begin
  Result := 0;
end;
{$endif}

{$ifndef NO_TESTPROC}
procedure TestProc;
begin
end;
{$endif}

{$ifndef NO_TESTTYPE}
type
  TestType = class

  end;
{$endif}

{$ifndef NO_GENTESTTYPE}
type
  generic GenTestType<S, T> = class

  end;
{$endif}

begin
{$if declared(TestConst)}
  Writeln('TestConst exists');
{$else}
  Writeln('TestConst not exists');
{$endif}

{$if declared(TestVar)}
  Writeln('TestVar exists');
{$else}
  Writeln('TestVar not exists');
{$endif}

{$if declared(TestFunc)}
  Writeln('TestFunc exists');
{$else}
  Writeln('TestFunc not exists');
{$endif}

{$if declared(TestProc)}
  Writeln('TestProc exists');
{$else}
  Writeln('TestProc not exists');
{$endif}

{$if declared(TestType)}
  Writeln('TestType exists');
{$else}
  Writeln('TestType not exists');
{$endif}

{$if declared(GenTestType<,>)}
  Writeln('GenTestType<,> exists');
{$else}
  Writeln('GenTestType<,> not exists');
{$endif}
end.