fpcsrc/tests/tbf/tb0211a.pp


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

{ %fail }

// check whether integers can NOT be casted to object references; this 
// should NOT work in objfpc mode (see also tbs/tb0554.pp)
{$mode objfpc}

var
  i : Word;
  o : TObject;

begin
  i := Word(o);
end.