Why Gemfury? Push, build, and install  RubyGems npm packages Python packages Maven artifacts PHP packages Go Modules Debian packages RPM packages NuGet packages

Repository URL to install this package:

Details    
fpc-src / usr / share / fpcsrc / 3.2.0 / tests / tbf / tb0063.pp
Size: Mime:
{ %FAIL }
{ Old file: tbf0320.pp }
{  }

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

{ These should give an error, as also done in tp,delphi.
  See tbs/tb0273.pp for a test with class which should compile in
  delphi mode }

type
  cl=object
    k : longint;
    procedure p1;
    procedure p2;
  end;

procedure cl.p1;
var
  k : longint;
begin
end;

procedure cl.p2;
var
  p1 : longint;
begin
end;

begin
end.