From 5a0f9b10f9542a0ffa762a0f8001e954780827b0 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Mon, 22 Oct 2001 19:58:29 +0000
Subject: [PATCH]   * new tests

---
 tests/tbf/tb0112.pp | 8 ++++++++
 tests/tbf/tb0113.pp | 8 ++++++++
 tests/tbs/tb0382.pp | 7 +++++++
 3 files changed, 23 insertions(+)
 create mode 100644 tests/tbf/tb0112.pp
 create mode 100644 tests/tbf/tb0113.pp
 create mode 100644 tests/tbs/tb0382.pp

diff --git a/tests/tbf/tb0112.pp b/tests/tbf/tb0112.pp
new file mode 100644
index 0000000000..dcaa9e056a
--- /dev/null
+++ b/tests/tbf/tb0112.pp
@@ -0,0 +1,8 @@
+{ %FAIL }
+{$J-}
+const
+  w1 : word = 1;
+
+begin
+  w1:=2;
+end.
diff --git a/tests/tbf/tb0113.pp b/tests/tbf/tb0113.pp
new file mode 100644
index 0000000000..be24c1d939
--- /dev/null
+++ b/tests/tbf/tb0113.pp
@@ -0,0 +1,8 @@
+{ %FAIL }
+
+var
+  i : integer;
+begin
+  { String constants can't exceed 255 chars }
+  i:=length('12345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890');
+end.
diff --git a/tests/tbs/tb0382.pp b/tests/tbs/tb0382.pp
new file mode 100644
index 0000000000..3b54f1b9ef
--- /dev/null
+++ b/tests/tbs/tb0382.pp
@@ -0,0 +1,7 @@
+{$J+}
+const
+  w1 : word = 1;
+
+begin
+  w1:=2;
+end.