this ** works only with simple Real ???

7 Feb 1997

      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

this ** works only with simple Real ???

Sven＠rufus.central.de