Re: Fixed Point number mul, is it a bug?

[Shark8 <onewingedshark@gmail.com>]

Try:

    Package FP is
	Type Fixed is delta 0.01 range 0.00 .. 99.99;
	
    Private
	For Fixed'Small use 0.01;
    End FP;

Then:
   Declare
	use type FP.Fixed;
	X : FP.Fixed:= 0.01;
   Begin
	
	For index in 1..5 loop
	    x := x * 2;
	    Ada.Text_IO.Put_Line( "x =>" & X'Img ); 
	end loop;
   
   End;

Yields:
x => 0.02
x => 0.04
x => 0.08
x => 0.16
x => 0.32

(I'm using GNAT on a Windows/AMD.)