Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* constant string to widechar added

peter 24 years ago
parent
46b88a2ac9
commit
f7f398a59e
1 changed files with 2 additions and 0 deletions
Unified View Show Diff Stats
  1. 2 0
      tests/tbs/tb0349.pp

+ 2 - 0
tests/tbs/tb0349.pp
View File 

@@ -8,4 +8,6 @@ begin
 
    p:=@c1;
 
    p:=@c1;
 
    i:=0;
 
    i:=0;
 
    c2:=p[i];
 
    c2:=p[i];
 
+   p:='';
 
+   p:='hello';
 
 end.
 
 end.