+ test I still had lying around

git-svn-id: trunk@10950 -

.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

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.