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

tests/webtbs/tw0869.pp

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