1 files changed, 39 insertions, 0 deletions
diff --git a/tests/test/tcase20.pp b/tests/test/tcase20.pp
new file mode 100644
index 0000000000..dd5b98440f
--- /dev/null
+++ b/tests/test/tcase20.pp
@@ -0,0 +1,39 @@
+{%FAIL}
+
+{ left bound is greater; fails }
+
+{$H+}
+var
+  my_str: string;
+  my_str_wide: string;
+  my_str_ansi: string;
+  my_str_uni: string;
+  i: integer;
+
+begin
+  my_str := 'ababaca';
+  my_str_wide := 'ababaca';
+  my_str_ansi := 'ababaca';
+  my_str_uni := 'ababaca';
+  i := -1;
+
+  case my_str of
+    'abba'..'ababaca': i := 1;
+    else i := 0;
+  end;
+
+  case my_str_wide of
+    'abba'..'ababaca': i := 1;
+    else i := 0;
+  end;
+
+  case my_str_ansi of
+    'abba'..'ababaca': i := 1;
+    else i := 0;
+  end;
+
+  case my_str_uni of
+    'abba'..'ababaca': i := 1;
+    else i := 0;
+  end;
+end.