Przeglądaj źródła

* moved tb0151 from tbf to tbs

Jonas Maebe 21 lat temu
rodzic
commit
2d05b23107
1 zmienionych plików z 0 dodań i 3 usunięć
  1. 0 3
      tests/tbs/tb0151.pp

+ 0 - 3
tests/tbf/tb0151.pp → tests/tbs/tb0151.pp

@@ -1,4 +1,3 @@
-{ %fail }
 
 
 {$ifdef fpc}{$mode tp}{$endif}
 {$ifdef fpc}{$mode tp}{$endif}
 
 
@@ -9,7 +8,6 @@ var
 begin
 begin
   j:=5;
   j:=5;
   i:=-1;
   i:=-1;
-  { this is not allowed for big endian, even not in tp7 mode }
   byte(i):=j;
   byte(i):=j;
   writeln('i: ',i,' (should be -251)');
   writeln('i: ',i,' (should be -251)');
   if i<>-251 then
   if i<>-251 then
@@ -17,6 +15,5 @@ begin
 end.
 end.
 {$else}
 {$else}
 begin
 begin
-  {$error Test is big endian only, fail for little endian}
 end.
 end.
 {$endif}
 {$endif}