with Ada.Numerics.Generic_Real_Arrays;
 
 procedure error is
   package re is new Ada.Numerics.Generic_Real_Arrays(Float);   
   use re;
   
   A: Real_Matrix(1..5,1..5):=0.0;
   b: Real_Vector(1..5):=0.0;
   begin
   null;
end error;