comparing gnat/Ada95 and g77

[Reinert Korsnes <reinert.korsnes@chello.no>]

Hi,

Could anybody try these two programs (Ada and Fortran)
and see if it is possible to make the Ada version (via compile 
options) to run as fast as the Fortran version under Linux, gnat
and g77 ?

reinert

--------------------------------------------------------------------
with Ada.Numerics.Generic_Elementary_Functions,Text_IO;
use Text_IO;
procedure test1 is
   type Real is Digits 9;
   package Flt_Io is new Text_IO.Float_Io   (Real);
   package Int_Io is new Text_IO.Integer_Io (Integer);
   package E_F is new Ada.Numerics.Generic_Elementary_Functions (Real);

   use E_F,Flt_Io,Int_Io;

   N : Integer := 10_000_000;
   M : Integer := N/50;
   x : Real := 10.0;
   begin
     for I in 1 .. N loop
         x := x + Real(I)/Real(N);
         x := x*0.5 + 1.0 + sin(x)*cos(x) + sin(x) + cos(x) +
                            sin(x)*sin(x) + cos(x)*cos(x);
         if I mod M = 0 then
            Put(I);  Put (x,4,7,0); New_Line (1);
         end if;
     end loop;
end;
------------------------------------------------------------------------

      program test1
c
      integer i
      real x
c     double precision x

      N = 10000000
      M = N/50
      x = 10.0

      do 10 i = 1,N,1
          x = x + real(i)/N
          x = x*0.5 + 1.0 + sin(x)*cos(x) + sin(x) + cos(x) +
     -                      sin(x)*sin(x) + cos(x)*cos(x)
          if(mod(i,M).eq.0) print *,i,x
 10   continue

      end
------------------------------------------------------------------------------