mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 01:39:35 +01:00
31 lines
406 B
ObjectPascal
31 lines
406 B
ObjectPascal
{ %FAIL }
|
|
{ Old file: tbf0245.pp }
|
|
{ assigning pointers to address of consts is allowed (refused by BP !) OK 0.99.13 (PFV) }
|
|
|
|
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.
|
|
|