paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-15 21:27:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

* tests have to fail

Browse Source 
* "fixed" tests so they also fail on 32 bit platforms

git-svn-id: trunk@13149 -
This commit is contained in:
Jonas Maebe 2009-05-16 10:30:28 +00:00
parent 726764be0b
commit ea356808b1
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
tests/tbf/tb0210.pp
View File

@ -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);

4
tests/tbf/tb0211.pp
View File

@ -1,9 +1,11 @@
{ %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 : Integer;
i : Word;
o : TObject;
begin