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

* 1.1 only

Browse Source
This commit is contained in:
peter 2003-10-31 16:12:41 +00:00
parent 88acc07d6f
commit cbd049d506
4 changed files with 10 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
tests/tbs/tb0224.pp
View File

@ -1,4 +1,5 @@
{ %KNOWNCOMPILE10ERROR= Problem with virtual and overloaded methods } { %version=1.1 }
{ Old file: tbs0262.pp } { Old file: tbs0262.pp }
{ problems with virtual and overloaded methods } { problems with virtual and overloaded methods }

11
tests/tbs/tb0377.pp
View File

@ -1,11 +1,9 @@
{ %OPT=-vn }
{ %KNOWNCOMPILEERROR= Typecasting assignment values with types of different sizes is refused even in TP mode for big endian cpus }
{$ifdef ENDIAN_BIG}
{$note This test should fail on big endian machines. }
{$endif}
{$ifdef fpc}{$mode tp}{$endif} {$ifdef fpc}{$mode tp}{$endif}
{$ifdef ENDIAN_BIG}
begin
end.
{$else}
var var
i : longint; i : longint;
j : word; j : word;
@ -18,3 +16,4 @@ begin
if i<>-251 then if i<>-251 then
halt(1); halt(1);
end. end.
{$endif}

2
tests/tbs/tb0447.pp
View File

@ -1,4 +1,4 @@
{ %KNOWNRUNERROR=201 v1.0 computes cardinal > longint as cardinal values } { %version=1.1 }
{$R+} {$R+}
var var

12
tests/tbs/tb0447a.pp
View File

@ -1,5 +1,5 @@
{ %KNOWNRUNERROR=2 v10 computes cardinal > longint as cardinals } { %version=1.1 }
{$R-}
var var
a : cardinal; a : cardinal;
b : longint; b : longint;
@ -9,14 +9,6 @@ begin
if a > b then if a > b then
writeln ('OK') writeln ('OK')
else else
{$ifdef VER0}
halt(2);
{$else not VER0}
{$ifdef VER1_0}
halt(2);
{$else}
halt(1); halt(1);
{$endif}
{$endif}
end. end.