paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-21 10:10:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* check -1**4 for both vars and constants

Browse Source
This commit is contained in:
pierre 2002-10-29 11:33:21 +00:00
parent d0898ec220
commit abbb7ed41c
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tests/webtbs/tw0869.pp
View File

@ -1,7 +1,7 @@
program prueba; program prueba;
uses crt; uses crt;
var var
resultado,exponente:integer; i,resultado,exponente:integer;
begin begin
exponente := 3; exponente := 3;
resultado := -1 ** exponente; resultado := -1 ** exponente;
@ -17,6 +17,11 @@ begin
writeln (resultado); writeln (resultado);
if resultado<>1 then if resultado<>1 then
Halt(1); Halt(1);
i:=1;
resultado := - i ** exponente;
writeln (resultado);
if resultado<>-1 then
Halt(1);
resultado := -1 ** exponente; resultado := -1 ** exponente;
writeln (resultado); writeln (resultado);
if resultado<>-1 then if resultado<>-1 then