From f7f398a59e0d3c3a49aa7742af1e48ce7dd2040e Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Fri, 6 Jul 2001 15:24:17 +0000
Subject: [PATCH]   * constant string to widechar added

---
 tests/tbs/tb0349.pp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/tests/tbs/tb0349.pp b/tests/tbs/tb0349.pp
index 916ef115f0..1e76410574 100644
--- a/tests/tbs/tb0349.pp
+++ b/tests/tbs/tb0349.pp
@@ -8,4 +8,6 @@ begin
    p:=@c1;
    i:=0;
    c2:=p[i];
+   p:='';
+   p:='hello';
 end.