From 3c5d1bfa90fafb967a804eb04cf5fa581cea230c Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sun, 13 Feb 2005 20:47:13 +0000
Subject: [PATCH]   * mvoed to webtbf

---
 tests/webtbf/tw3644.pp | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 tests/webtbf/tw3644.pp

diff --git a/tests/webtbf/tw3644.pp b/tests/webtbf/tw3644.pp
new file mode 100644
index 0000000000..3dd9746ccf
--- /dev/null
+++ 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.