* new bug

tests/webtbs/tw2435.pp

@@ -0,0 +1,33 @@
+{ %OPT=-Sew }
+
+{ Source provided for Free Pascal Bug Report 2435 }
+{ Submitted by "Louis Jean-Richard" on  2003-03-24 }
+{ e-mail: [email protected] }
+PROGRAM Warning;
+TYPE
+  anObject  =
+    OBJECT
+      n : word;
+      PROCEDURE Init;
+    END
+    ;
+PROCEDURE anObject.Init;
+BEGIN
+  n:=0
+END
+;
+VAR
+  r1, r2  :
+    RECORD
+      a, b : anObject
+    END
+    ;
+BEGIN
+  WITH r1 DO BEGIN
+    a.Init; b.Init;
+  END
+  ;
+  r2.a.Init; { well, it's just being initialised ! }
+  r2.b.Init;
+END
+.

tests/webtbs/tw2438.pp

@@ -0,0 +1,14 @@
+{ %OPT=-Sew }
+
+{ Source provided for Free Pascal Bug Report 2438 }
+{ Submitted by "Armin Diehl" on  2003-03-25 }
+{ e-mail: [email protected] }
+{$P+}
+
+procedure int_str(var s : string);
+begin
+  s:='-2147483648';
+end;
+
+begin
+end.