* mvoed to webtbf

2025-08-09 12:46:27 +02:00 · 2005-02-13 20:47:13 +00:00 · 2005-02-13 20:47:13 +00:00 · 3c5d1bfa90
commit 3c5d1bfa90
parent cae7c0baee
1 changed files with 20 additions and 0 deletions
--- a/tests/webtbf/tw3644.pp
+++ b/tests/webtbf/tw3644.pp
@ -0,0 +1,20 @@
+{ %fail }
+
+{ Source provided for Free Pascal Bug Report 3644 }
+{ Submitted by "Nicola Lugato" on  2005-02-10 }
+{ e-mail:  }
+
+{$mode delphi}
+
+procedure callme(y:array of const);
+begin
+end;
+
+procedure callme2(x:array of const);
+begin
+callme([x]);
+end;
+
+begin
+callme([1,2,'ciao']);
+end.