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