freepascal.compiler/tests/tbf/tb0048.pp

{ %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.