paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 10:39:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* added missing %fail flags

Browse Source
This commit is contained in:
peter 2000-12-17 13:59:50 +00:00
parent 595bf10fa7
commit 0283ad41dc
4 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/tbf/tb0096.pp
View File

@ -1,3 +1,5 @@
{ %FAIL }
{ derived from source for Bug Report 1203 } { derived from source for Bug Report 1203 }
{ in FPC mode this shouldn't compile } { in FPC mode this shouldn't compile }
{$mode objfpc} {$mode objfpc}

2
tests/tbf/tb0097.pp
View File

@ -1,3 +1,5 @@
{ %FAIL }
{ derived from Web Bug Report 1203 } { derived from Web Bug Report 1203 }
{$mode Delphi} {$mode Delphi}
type type

2
tests/tbf/tb0098.pp
View File

@ -1,3 +1,5 @@
{ %FAIL }
{ derived from Web Bug Report 1203 } { derived from Web Bug Report 1203 }
{$mode objfpc} {$mode objfpc}
type type

2
tests/test/trtti2.pp
View File

@ -4,7 +4,7 @@ type
pbyte = ^byte; pbyte = ^byte;
begin begin
if (pbyte(typeinfo(longint))^<>1 then if pbyte(typeinfo(longint))^<>1 then
halt(1); halt(1);
end. end.