* new bug

tests/webtbs/tw2561.pp

@@ -0,0 +1,19 @@
+{ Source provided for Free Pascal Bug Report 2561 }
+{ Submitted by "Nikolay Nikolov" on  2003-07-06 }
+{ e-mail: [email protected] }
+Procedure Tralala(Var q);
+
+Begin
+  Writeln(SizeOf(q));
+  if sizeof(q)<>0 then
+    halt(1);
+End;
+
+Var
+  q : Integer;
+  w : Array[1..10] Of Integer;
+
+Begin
+  Tralala(q);
+  Tralala(w);
+End.