this ** works only with simple Real ???

07 Feb 1997 02:46:00 +0200

Hello gpc,

  program Test;
  { Shows the ** fault }

  var
    a, b : Real;
    c, d : __long__ Real;

  begin
    Readln(a);
    Readln(b);
    Writeln(a ** b : 20 : 10);
    c := a;
    d := b;
    Writeln(c ** d : 20 : 10);
  end.

Put in what you want. The result is right for Real, but for __long__ Real  
it's everytime the result = 1.0. I think the conversion of the exponent  
from Real to __long__ Real does'nt work:

  c ** 0.0 = 1.0   ;-)


      ___,
    ((__         o
   ,____)) V E N I

Sven Hilscher (Sven@rufus.central.de (Sven Hilscher))