* new tests

tests/tbf/tb0112.pp

@@ -0,0 +1,8 @@
+{ %FAIL }
+{$J-}
+const
+  w1 : word = 1;
+
+begin
+  w1:=2;
+end.

tests/tbf/tb0113.pp

@@ -0,0 +1,8 @@
+{ %FAIL }
+
+var
+  i : integer;
+begin
+  { String constants can't exceed 255 chars }
+  i:=length('12345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890');
+end.

tests/tbs/tb0382.pp

@@ -0,0 +1,7 @@
+{$J+}
+const
+  w1 : word = 1;
+
+begin
+  w1:=2;
+end.