From 79f139bff70ee4e8b0c03d5a637912e91ea2084c Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Wed, 8 Jul 2009 20:22:09 +0000
Subject: [PATCH]   + tests for previous commit

git-svn-id: trunk@13373 -
---
 .gitattributes           | 3 +++
 tests/webtbf/tw14104a.pp | 8 ++++++++
 tests/webtbf/tw14104b.pp | 9 +++++++++
 tests/webtbf/tw14104c.pp | 8 ++++++++
 4 files changed, 28 insertions(+)
 create mode 100644 tests/webtbf/tw14104a.pp
 create mode 100644 tests/webtbf/tw14104b.pp
 create mode 100644 tests/webtbf/tw14104c.pp

diff --git a/.gitattributes b/.gitattributes
index bc158f4d03..fbcb0b3895 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -8610,6 +8610,9 @@ tests/webtbf/tw1395.pp svneol=native#text/plain
 tests/webtbf/tw13956.pp svneol=native#text/plain
 tests/webtbf/tw13992.pp svneol=native#text/plain
 tests/webtbf/tw1407.pp svneol=native#text/plain
+tests/webtbf/tw14104a.pp svneol=native#text/plain
+tests/webtbf/tw14104b.pp svneol=native#text/plain
+tests/webtbf/tw14104c.pp svneol=native#text/plain
 tests/webtbf/tw1432.pp svneol=native#text/plain
 tests/webtbf/tw1467.pp svneol=native#text/plain
 tests/webtbf/tw1483.pp svneol=native#text/plain
diff --git a/tests/webtbf/tw14104a.pp b/tests/webtbf/tw14104a.pp
new file mode 100644
index 0000000000..f08aa9d2b8
--- /dev/null
+++ b/tests/webtbf/tw14104a.pp
@@ -0,0 +1,8 @@
+{ %fail }
+
+procedure test(var f: file of extended);
+begin
+end;
+
+begin
+end.
diff --git a/tests/webtbf/tw14104b.pp b/tests/webtbf/tw14104b.pp
new file mode 100644
index 0000000000..dacda219ec
--- /dev/null
+++ b/tests/webtbf/tw14104b.pp
@@ -0,0 +1,9 @@
+{ %fail }
+
+procedure test(f: string[50]);
+begin
+end;
+
+begin
+end.
+
diff --git a/tests/webtbf/tw14104c.pp b/tests/webtbf/tw14104c.pp
new file mode 100644
index 0000000000..dfcd6d569c
--- /dev/null
+++ b/tests/webtbf/tw14104c.pp
@@ -0,0 +1,8 @@
+{ %fail }
+
+function test: string[30];
+begin
+end;
+
+begin
+end.