Browse Source

* new bugs

peter 22 years ago
parent
commit
556435a4e1
2 changed files with 26 additions and 0 deletions
  1. 10 0
      tests/webtbs/tw2280.pp
  2. 16 0
      tests/webtbs/tw2289.pp

+ 10 - 0
tests/webtbs/tw2280.pp

@@ -0,0 +1,10 @@
+{ Source provided for Free Pascal Bug Report 2280 }
+{ Submitted by "Yakov Sudeikin" on  2002-12-23 }
+{ e-mail: [email protected] }
+var
+ a: array of string;
+
+begin
+ a := nil;
+ if a = nil then;
+end.

+ 16 - 0
tests/webtbs/tw2289.pp

@@ -0,0 +1,16 @@
+{ Source provided for Free Pascal Bug Report 2289 }
+{ Submitted by "Mattias Gaertner" on  2002-12-27 }
+{ e-mail: [email protected] }
+program TestSkip;
+
+{$IFDEF NotDefined}
+
+//
+{$IFDEF Bogus}
+{$ENDIF}
+
+{$ENDIF}
+
+begin
+
+end.