------- Comment #7 from ebotcazou at gcc dot gnu dot org 2006-10-22 15:03 ------- > No, but there is an obvious one why the Fortran version trounces the Ada > version. Let's not compare apples with oranges.
The adverse effect of the indirection can be alleviated though: N : Positive := Positive'Value (Argument (1)); G : Ada.Numerics.Float_Random.Generator; type Real_Matrix is array (1..N, 1..N) of Float; type Matrix_Access is access Real_Matrix; A,B,C : Matrix_Access; Start, Finish : Ada.Calendar.Time; Sum : Float := 0.0; begin A := new Real_Matrix; B := new Real_Matrix; C := new Real_Matrix; -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=29543