5ccae43552
The minimal-footprint Ada runtime for implementing library-like functionality in SPARK is now called "spark" runtime. The full Ada runtime for entire components written in Ada and using the libc as glue to the underlying system will move to the world repository as "ada" runtime. Issue #3144
26 lines
377 B
Ada
26 lines
377 B
Ada
--
|
|
-- \brief Ada test program
|
|
-- \author Norman Feske
|
|
-- \date 2009-09-23
|
|
--
|
|
|
|
with add_package;
|
|
|
|
--
|
|
-- Main program
|
|
--
|
|
procedure main is
|
|
|
|
result : Integer;
|
|
|
|
--
|
|
-- Declarations of external C functions
|
|
--
|
|
procedure ext_c_print_int(a : Integer);
|
|
pragma import(C, ext_c_print_int, "print_int");
|
|
|
|
begin
|
|
add_package.Add(13, 14, result);
|
|
ext_c_print_int(result);
|
|
end main;
|