@@ -1,7 +1,10 @@
+{ %fail }
+
// check whether enums can NOT be casted to object references; this
// should NOT work in objfpc mode (see also tbs/tb0554.pp)
{$mode objfpc}
+{$packenum 2}
type
TEnum = (a, b, c);
@@ -1,9 +1,11 @@
// check whether integers can NOT be casted to object references; this
var
- i : Integer;
+ i : Word;
o : TObject;
begin