From fd568a81626c7702d0199ce0c204954ea4f6d552 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Tue, 31 Jul 2001 14:43:15 +0000
Subject: [PATCH]  * Added const x : pansichar = 'xxx';

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

diff --git a/tests/tbs/tb0349.pp b/tests/tbs/tb0349.pp
index bd0bbf5b38..b40b042ef8 100644
--- a/tests/tbs/tb0349.pp
+++ b/tests/tbs/tb0349.pp
@@ -6,6 +6,9 @@ var
    a : ansistring;
    w : widestring;
    err : boolean;
+  
+const somestr : pwidechar = 'blaat';
+
 begin
    p:=@c1;
    i:=0;