with Text_Io; use Text_Io;
with Interfaces.Fortran; use Interfaces.Fortran;

procedure Amain is

   package Int_Io is new Integer_IO (Integer); use Int_Io;
   package Flt_Io is new Float_IO (Float); use Flt_Io;

   procedure subsum(In1 : in Real; In2 : in Real ; Outsum : out Real);
   pragma import(Fortran,subsum);

   i1,i2,ou : Real;

begin
   ou:=0.0;
   i1:=1.0;
   i2:=2.0;
--
--      Call the imported fortran routine
--
   subsum(i1,i2,ou);
   New_Line;
   Put(Float(ou));
end;