freepascal.compiler/tests/webtbf/tw3502.pp

{ %fail }

{$ifdef fpc}{$mode delphi}{$endif}

type
  tc1=class
    property Loop:integer read Loop;
  end;

begin
end.