Browse Source

* added missing %fail flags

peter 24 years ago
parent
commit
0283ad41dc
4 changed files with 7 additions and 1 deletions
  1. 2 0
      tests/tbf/tb0096.pp
  2. 2 0
      tests/tbf/tb0097.pp
  3. 2 0
      tests/tbf/tb0098.pp
  4. 1 1
      tests/test/trtti2.pp

+ 2 - 0
tests/tbf/tb0096.pp

@@ -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 - 0
tests/tbf/tb0097.pp

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

+ 2 - 0
tests/tbf/tb0098.pp

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

+ 1 - 1
tests/test/trtti2.pp

@@ -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.