paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 05:30:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

no message

Browse Source
This commit is contained in:
florian 2004-12-04 23:39:23 +00:00
parent d17f8af6fd
commit 90a54b49fc
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
tests/webtbs/tw3005.pp Normal file
View File

@ -0,0 +1,17 @@
{ Source provided for Free Pascal Bug Report 3005 }
{ Submitted by "Michalis Kamburelis" on 2004-03-04 }
{ e-mail: michalis@camelot.homedns.org }
uses Math;
begin
{ This already works (result is integer) }
Writeln((-2) ** 2);
{ Two things below do not work currently }
Writeln(Power(-2.0, 2.0));
if Power(-2.0, 2.0)<>4 then
halt(1);
Writeln((-2.0) ** 2.0);
if (-2.0) ** 2.0<>4 then
halt(1);
writeln('ok');
end.