tests/webtbs/tw6435.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

{ %OPT=-gl }
program Project1;

{$mode objfpc}{$H+}

type
  MyClass = class(TObject)
  private
    FClassVar: integer; static;
  end;

begin
  myclass.fclassvar := 1;
end.