From f35267db0102809f5ea9ab394ec9285850fc98d9 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 22 Nov 2003 12:35:12 +0000
Subject: [PATCH]   + test for double usage of units

---
 tests/tbf/tb0158.pp  |  4 ++++
 tests/tbf/ub0158a.pp | 13 +++++++++++++
 tests/tbf/ub0158b.pp |  7 +++++++
 3 files changed, 24 insertions(+)
 create mode 100644 tests/tbf/tb0158.pp
 create mode 100644 tests/tbf/ub0158a.pp
 create mode 100644 tests/tbf/ub0158b.pp

diff --git a/tests/tbf/tb0158.pp b/tests/tbf/tb0158.pp
new file mode 100644
index 0000000000..64e0aa30b9
--- /dev/null
+++ b/tests/tbf/tb0158.pp
@@ -0,0 +1,4 @@
+uses ub0158a;
+
+begin
+end.
diff --git a/tests/tbf/ub0158a.pp b/tests/tbf/ub0158a.pp
new file mode 100644
index 0000000000..deeb538bc1
--- /dev/null
+++ b/tests/tbf/ub0158a.pp
@@ -0,0 +1,13 @@
+unit ub0158a;
+
+interface
+
+uses ub0158b;
+
+implementation
+
+{ should give "duplicate identifier error", because already used in the }
+{ interface                                                             }
+uses ub0158b;
+
+end.
diff --git a/tests/tbf/ub0158b.pp b/tests/tbf/ub0158b.pp
new file mode 100644
index 0000000000..d789c5d97e
--- /dev/null
+++ b/tests/tbf/ub0158b.pp
@@ -0,0 +1,7 @@
+unit ub0158b;
+
+interface
+
+implementation
+
+end.