@@ -1,4 +1,5 @@
-{ %KNOWNCOMPILE10ERROR= Problem with virtual and overloaded methods }
+{ %version=1.1 }
+
{ Old file: tbs0262.pp }
{ problems with virtual and overloaded methods }
@@ -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 ENDIAN_BIG}
+begin
+end.
+{$else}
var
i : longint;
j : word;
@@ -18,3 +16,4 @@ begin
if i<>-251 then
halt(1);
end.
+{$endif}
@@ -1,4 +1,4 @@
-{ %KNOWNRUNERROR=201 v1.0 computes cardinal > longint as cardinal values }
{$R+}
@@ -1,5 +1,5 @@
-{ %KNOWNRUNERROR=2 v10 computes cardinal > longint as cardinals }
-{$R-}
a : cardinal;
b : longint;
@@ -9,14 +9,6 @@ begin
if a > b then
writeln ('OK')
else
-{$ifdef VER0}
- halt(2);
-{$else not VER0}
-{$ifdef VER1_0}
-{$else}