mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-15 18:19:45 +02:00
b3aa2ab759
use a char typecasted as a chararray with more than one element as an
lvalue)
git-svn-id: trunk@12708 -
21 lines
239 B
ObjectPascal
21 lines
239 B
ObjectPascal
{ %fail }
|
|
|
|
{$r-}
|
|
type
|
|
chararray = array[0..200] of char;
|
|
var
|
|
p: pchar;
|
|
i: longint;
|
|
begin
|
|
getmem(p,5);
|
|
p[0]:='a';
|
|
p[1]:='b';
|
|
p[2]:='c';
|
|
p[3]:='d';
|
|
p[4]:=#0;
|
|
i:=3;
|
|
chararray(p^)[i]:=#0;
|
|
writeln(p);
|
|
freemem(p);
|
|
end.
|