1
{ Source provided for Free Pascal Bug Report 3005 }
2
{ Submitted by "Michalis Kamburelis" on 2004-03-04 }
3
{ e-mail: michalis@camelot.homedns.org }
6
{ This already works (result is integer) }
8
{ Two things below do not work currently }
9
Writeln(Power(-2.0, 2.0));
10
if Power(-2.0, 2.0)<>4 then
12
Writeln((-2.0) ** 2.0);
13
if (-2.0) ** 2.0<>4 then