浏览代码

* new bugs

peter 22 年之前
父节点
当前提交
556435a4e1
共有 2 个文件被更改,包括 26 次插入0 次删除
  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.