1{ %OPT=-gl }
2program Project1;
3
4{$mode objfpc}{$H+}
5
6type
7  MyClass = class(TObject)
8  private
9    FClassVar: integer; static;
10  end;
11
12begin
13  myclass.fclassvar := 1;
14end.
15
16