From 87aa666768734b479731296739ee3e9d5a5c1fd8 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Mon, 12 May 2008 09:51:19 +0000
Subject: [PATCH]   + test I still had lying around

git-svn-id: trunk@10950 -
---
 .gitattributes      |  1 +
 tests/tbf/tb0208.pp | 15 +++++++++++++++
 2 files changed, 16 insertions(+)
 create mode 100644 tests/tbf/tb0208.pp

diff --git a/.gitattributes b/.gitattributes
index 665776bc74..f1492f56f2 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -6326,6 +6326,7 @@ tests/tbf/tb0204a.pp svneol=native#text/plain
 tests/tbf/tb0205.pp svneol=native#text/plain
 tests/tbf/tb0206.pp svneol=native#text/plain
 tests/tbf/tb0207.pp svneol=native#text/plain
+tests/tbf/tb0208.pp svneol=native#text/plain
 tests/tbf/ub0115.pp svneol=native#text/plain
 tests/tbf/ub0149.pp svneol=native#text/plain
 tests/tbf/ub0158a.pp svneol=native#text/plain
diff --git a/tests/tbf/tb0208.pp b/tests/tbf/tb0208.pp
new file mode 100644
index 0000000000..9ae311d253
--- /dev/null
+++ b/tests/tbf/tb0208.pp
@@ -0,0 +1,15 @@
+{ %fail }
+{ %opt=-Sew }
+
+procedure test;
+var
+  b: byte;
+begin
+  case b of
+    1: b:=1;
+  end;
+end;
+
+begin
+  test;
+end.