From 420fb26f38cf2a945815708524875ef970e182bb Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Fri, 20 Dec 2002 16:35:59 +0000
Subject: [PATCH]   * some special array constructor cases

---
 tests/tbs/tb0436.pp | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 tests/tbs/tb0436.pp

diff --git a/tests/tbs/tb0436.pp b/tests/tbs/tb0436.pp
new file mode 100644
index 0000000000..a811088260
--- /dev/null
+++ b/tests/tbs/tb0436.pp
@@ -0,0 +1,15 @@
+{$mode objfpc}
+
+procedure pext(a:array of extended);
+begin
+end;
+
+procedure p(a:array of const);
+begin
+end;
+
+begin
+  p([0.0]);
+  p([pi]);
+  pext([0.0]);
+end.