fpc/tests/webtbs/tw28934.pp
2015-10-30 15:10:26 +00:00

15 lines
149 B
ObjectPascal

{ %norun }
{ %opt=-FcCP1252 }
program project1;
Type
WideArray = array [0..3] of Widechar;
var
Test: WideArray;
begin
Test := 'hmmm';
end.