14 lines
161 B
ObjectPascal
14 lines
161 B
ObjectPascal
var x := 1;
|
|
|
|
type
|
|
t1 = static class
|
|
static o := x;
|
|
end;
|
|
|
|
begin
|
|
assert(x = 1);
|
|
x := 5;
|
|
assert(x = 5);
|
|
assert(t1.o = 5);
|
|
assert(x = 5);
|
|
end. |