From 046de405d130ea8f4e3931588eeaf823b0dd759d Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Sun, 4 May 2008 18:31:33 +0000
Subject: [PATCH]  * test for enum case, on Jonas' request

git-svn-id: trunk@10881 -
---
 .gitattributes          |  1 +
 tests/webtbs/tw11176.pp | 17 +++++++++++++++++
 2 files changed, 18 insertions(+)
 create mode 100644 tests/webtbs/tw11176.pp

diff --git a/.gitattributes b/.gitattributes
index fd91b4d36e..7ffcdab275 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -8169,6 +8169,7 @@ tests/webtbs/tw1111.pp svneol=native#text/plain
 tests/webtbs/tw11139.pp svneol=native#text/plain
 tests/webtbs/tw11169.pp svneol=native#text/plain
 tests/webtbs/tw1117.pp svneol=native#text/plain
+tests/webtbs/tw11176.pp svneol=native#text/plain
 tests/webtbs/tw11216.pp svneol=native#text/plain
 tests/webtbs/tw1122.pp svneol=native#text/plain
 tests/webtbs/tw1123.pp svneol=native#text/plain
diff --git a/tests/webtbs/tw11176.pp b/tests/webtbs/tw11176.pp
new file mode 100644
index 0000000000..6ff6bcfcf9
--- /dev/null
+++ b/tests/webtbs/tw11176.pp
@@ -0,0 +1,17 @@
+type
+  Tx = (one,two,three);
+
+procedure error(number : longint);
+begin
+  writeln('error ', number);
+  halt(number);
+end;
+
+var
+  a : Tx;
+  err : word;
+
+begin
+  val('one', a, err);
+  if (err <> 0) or (a <> one) then error(1);
+end.
\ No newline at end of file