fpc/tests/tbs/tb0552.pp

{$ifdef FPC}
  {$mode objfpc}
{$endif FPC}
type
  pb1 = ^boolean;far;
  pb2 = ^boolean deprecated;far;
  pt = boolean deprecated;
  o = class
  end deprecated;
  r = record
  end deprecated;
  p1 = procedure;stdcall;deprecated;
  p2 = procedure deprecated;
  p3 = p1 deprecated;


var
  v : p3;
begin
end.