mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 17:59:25 +02:00
27 lines
286 B
ObjectPascal
27 lines
286 B
ObjectPascal
const
|
|
r = 3.5;
|
|
s = 'test idiot';
|
|
type
|
|
preal = ^real;
|
|
pstring = ^string;
|
|
|
|
procedure ss;
|
|
begin
|
|
end;
|
|
|
|
var
|
|
p : pointer;
|
|
pr : preal;
|
|
ps : pstring;
|
|
|
|
begin
|
|
p:=@ss;
|
|
p:=@s;
|
|
pr:=@r;
|
|
ps:=@s;
|
|
pr^:=7.8;
|
|
ps^:='test3';
|
|
Writeln('r=',r,' s=',s);
|
|
end.
|
|
|