From 36febe5d485702c7ea6659dd51dd1ecd3dbad00c Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Mon, 14 Oct 2002 07:01:14 +0000
Subject: [PATCH]   * don't allow initialzed threadvars

---
 tests/tbf/tb0128.pp | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 tests/tbf/tb0128.pp

diff --git a/tests/tbf/tb0128.pp b/tests/tbf/tb0128.pp
new file mode 100644
index 0000000000..14ca3a33ce
--- /dev/null
+++ b/tests/tbf/tb0128.pp
@@ -0,0 +1,11 @@
+{ %version=1.1 }
+{ %fail }
+
+{$mode delphi}
+{$threading on}
+
+threadvar
+  { Initializing threadvars is not allowed }
+  p : longint = 1;
+begin
+end.