1 files changed, 60 insertions, 0 deletions
diff --git a/tests/test/tcase41.pp b/tests/test/tcase41.pp
new file mode 100644
index 0000000000..c4c0b2ec4d
--- /dev/null
+++ b/tests/test/tcase41.pp
@@ -0,0 +1,60 @@
+{ test for range with one-symbol string as left bound }
+
+{$H-}
+var
+  my_str: string;
+  my_str_wide: string;
+  my_str_ansi: string;
+  my_str_uni: string;
+  i: integer;
+
+begin
+  my_str := 'cab';
+  my_str_wide := 'cab';
+  my_str_ansi := 'cab';
+  my_str_uni := 'cab';
+  i := -1;
+
+  case my_str of
+    'a'..'daa': i := 1;
+    else i := 0;
+  end;
+
+  if (i <> 1) then begin
+    writeln('Error');
+    Halt(1);
+  end;
+
+
+  case my_str_wide of
+    'a'..'daa': i := 1;
+    else i := 0;
+  end;
+
+  if (i <> 1) then begin
+    writeln('Error');
+    Halt(1);
+  end;
+
+
+  case my_str_ansi of
+    'a'..'daa': i := 1;
+    else i := 0;
+  end;
+
+  if (i <> 1) then begin
+    writeln('Error');
+    Halt(1);
+  end;
+
+
+  case my_str_uni of
+    'a'..'daa': i := 1;
+    else i := 0;
+  end;
+
+  if (i <> 1) then begin
+    writeln('Error');
+    Halt(1);
+  end;
+end.