pragma Source_File_Name (Ada_Main, Spec_File_Name => "b~test_equation.ads");
pragma Source_File_Name (Ada_Main, Body_File_Name => "b~test_equation.adb");

package body Ada_Main is
   procedure adainit is

      procedure Set_Globals
        (Main_Priority            : Integer;
         Time_Slice_Value         : Integer;
         WC_Encoding              : Character;
         Locking_Policy           : Character;
         Queuing_Policy           : Character;
         Task_Dispatching_Policy  : Character;
         Adafinal                 : System.Address;
         Unreserve_All_Interrupts : Boolean;
         Exception_Tracebacks     : Boolean);
      pragma Import (C, Set_Globals, "__gnat_set_globals");

   begin
      Set_Globals
        (Main_Priority            => -1,
         Time_Slice_Value         => -1,
         WC_Encoding              => 'b',
         Locking_Policy           => ' ',
         Queuing_Policy           => ' ',
         Task_Dispatching_Policy  => ' ',
         Adafinal                 => adafinal'Address,
         Unreserve_All_Interrupts => False,
         Exception_Tracebacks     => False);
      -- System'Elab_Spec;
      -- Ada'Elab_Spec;
      -- Gnat'Elab_Spec;
      -- Gnat.Case_Util'Elab_Spec;
      -- Gnat.Case_Util'Elab_Body;
      -- Gnat.Heap_Sort_A'Elab_Spec;
      -- Gnat.Heap_Sort_A'Elab_Body;
      -- Gnat.Htable'Elab_Spec;
      -- Gnat.Htable'Elab_Body;
      -- Interfaces'Elab_Spec;
      -- System.Exn_Gen'Elab_Spec;
      -- System.Exn_Gen'Elab_Body;
      -- System.Img_Real'Elab_Spec;
      -- System.Machine_Code'Elab_Spec;
      -- System.Parameters'Elab_Spec;
      -- System.Parameters'Elab_Body;
         Interfaces.C_Streams'Elab_Spec;
      -- Interfaces.C_Streams'Elab_Body;
      -- System.Powten_Table'Elab_Spec;
      -- System.Standard_Library'Elab_Spec;
         Ada.Exceptions'Elab_Spec;
      -- System.Exception_Table'Elab_Spec;
         System.Exception_Table'Elab_Body;
         Ada.Io_Exceptions'Elab_Spec;
         Ada.Numerics'Elab_Spec;
      -- Ada.Numerics.Aux'Elab_Spec;
      -- Ada.Numerics.Elementary_Functions'Elab_Spec;
         System.Exceptions'Elab_Spec;
      -- System.Storage_Elements'Elab_Spec;
      -- System.Storage_Elements'Elab_Body;
      -- System.Secondary_Stack'Elab_Spec;
         Ada.Tags'Elab_Spec;
         Ada.Tags'Elab_Body;
         Ada.Streams'Elab_Spec;
         System.Stack_Checking'Elab_Spec;
      -- System.Soft_Links'Elab_Spec;
         System.Soft_Links'Elab_Body;
      -- System.Stack_Checking'Elab_Body;
         System.Secondary_Stack'Elab_Body;
         Ada.Exceptions'Elab_Body;
      -- System.Standard_Library'Elab_Body;
      -- System.Exn_Flt'Elab_Spec;
      -- System.Exn_Llf'Elab_Spec;
      -- System.String_Ops'Elab_Spec;
      -- System.String_Ops'Elab_Body;
      -- System.String_Ops_Concat_3'Elab_Spec;
      -- System.String_Ops_Concat_3'Elab_Body;
      -- System.Unsigned_Types'Elab_Spec;
      -- System.Fat_Flt'Elab_Spec;
      -- Ada.Numerics.Elementary_Functions'Elab_Body;
      -- System.Fat_Llf'Elab_Spec;
      -- Ada.Numerics.Aux'Elab_Body;
      -- System.Img_Llu'Elab_Spec;
      -- System.Img_Llu'Elab_Body;
      -- System.Img_Uns'Elab_Spec;
      -- System.Img_Uns'Elab_Body;
      -- System.Img_Real'Elab_Body;
      -- System.Stream_Attributes'Elab_Spec;
      -- System.Stream_Attributes'Elab_Body;
         System.Finalization_Root'Elab_Spec;
      -- System.Finalization_Root'Elab_Body;
         System.Finalization_Implementation'Elab_Spec;
      -- System.Finalization_Implementation'Elab_Body;
         Ada.Finalization'Elab_Spec;
      -- Ada.Finalization'Elab_Body;
         Ada.Finalization.List_Controller'Elab_Spec;
      -- Ada.Finalization.List_Controller'Elab_Body;
         System.File_Control_Block'Elab_Spec;
      -- System.File_Io'Elab_Spec;
         System.File_Io'Elab_Body;
         Ada.Text_Io'Elab_Spec;
         Ada.Text_Io'Elab_Body;
      -- Ada.Float_Text_Io'Elab_Spec;
      -- Ada.Text_Io.Float_Aux'Elab_Spec;
      -- Ada.Float_Text_Io'Elab_Body;
      -- Ada.Text_Io.Generic_Aux'Elab_Spec;
      -- Ada.Text_Io.Generic_Aux'Elab_Body;
      -- System.Val_Real'Elab_Spec;
      -- Ada.Text_Io.Float_Aux'Elab_Body;
      -- System.Val_Util'Elab_Spec;
      -- System.Val_Util'Elab_Body;
      -- System.Val_Real'Elab_Body;
      -- Equation_Parsing'Elab_Spec;
         Equation_Parsing'Elab_Body;
      -- Test_Equation'Elab_Body;
      null;
   end adainit;

   procedure adafinal is

      procedure do_finalize;
      pragma Import
        (C, do_finalize,
         "system__finalization_implementation__finalize_global_list");

   begin
      do_finalize;
   end adafinal;

   function main
     (argc : Integer;
      argv : System.Address;
      envp : System.Address)
      return Integer
   is
      procedure initialize;
      pragma Import (C, initialize, "__gnat_initialize");

      procedure finalize;
      pragma Import (C, finalize, "__gnat_finalize");


      procedure Ada_Main_Program;
      pragma Import (Ada, Ada_Main_Program, "_ada_test_equation");

   begin
      gnat_argc := argc;
      gnat_argv := argv;
      gnat_envp := envp;

      Initialize;
      adainit;
      Break_Start;
      Ada_Main_Program;
      adafinal;
      Finalize;
      return (gnat_exit_status);
   end;

-- BEGIN Object file/option list
   --   ./equation_parsing.o
   --   ./test_equation.o
   --   -L./
   --   -LC:\GNAT\lib\gcc-lib\pentium-mingw32msv\2.8.1\adalib\
   --   C:\GNAT\lib\gcc-lib\pentium-mingw32msv\2.8.1\adalib\libgnat.a
   --   -lm
-- END Object file/option list   

end Ada_Main;