{ GPC demo program. For copying conditions see the file `COPYING.DEMO'. }

program DoubleDemo;
var
  A: Double;  { There is nothing special with `Double'. }
  B: Real;
begin
  A := Pi;
  A := B
end.