with Ada.Text_IO, Interfaces;
use Ada.Text_IO, Interfaces;
procedure test is
package Unsigned_16_IO is new Ada.Text_Io.Modular_IO(Unsigned_16);
package Unsigned_32_IO is new Ada.Text_Io.Modular_IO(Unsigned_32);
aa: Unsigned_16 := 1000;
bb: Unsigned_16 := 6000;
cc: Unsigned_32;
function xxfunc(x: Unsigned_32; y: Unsigned_32) return Unsigned_32 is
begin
return x + y;
end xxfunc;
begin
cc := xxfunc(aa, bb);
Unsigned_16_IO.Put(aa, 1);
Put(" + ");
Unsigned_16_IO.Put(bb, 1);
Put(" = ");
Unsigned_32_IO.Put(cc, 1);
New_Line;
end test;
d2l0aCBBZGEuVGV4dF9JTywgSW50ZXJmYWNlczsKdXNlICBBZGEuVGV4dF9JTywgSW50ZXJmYWNlczsKCnByb2NlZHVyZSB0ZXN0IGlzCiAgIHBhY2thZ2UgVW5zaWduZWRfMTZfSU8gaXMgbmV3IEFkYS5UZXh0X0lvLk1vZHVsYXJfSU8oVW5zaWduZWRfMTYpOwogICBwYWNrYWdlIFVuc2lnbmVkXzMyX0lPIGlzIG5ldyBBZGEuVGV4dF9Jby5Nb2R1bGFyX0lPKFVuc2lnbmVkXzMyKTsKICAgYWE6IFVuc2lnbmVkXzE2IDo9IDEwMDA7CiAgIGJiOiBVbnNpZ25lZF8xNiA6PSA2MDAwOwogICBjYzogVW5zaWduZWRfMzI7CgogICBmdW5jdGlvbiB4eGZ1bmMoeDogVW5zaWduZWRfMzI7IHk6IFVuc2lnbmVkXzMyKSByZXR1cm4gVW5zaWduZWRfMzIgaXMKICAgYmVnaW4KICAgICAgcmV0dXJuIHggKyB5OwogICBlbmQgeHhmdW5jOwoKYmVnaW4KICAgY2MgOj0geHhmdW5jKGFhLCBiYik7CiAgIFVuc2lnbmVkXzE2X0lPLlB1dChhYSwgMSk7CiAgIFB1dCgiICsgIik7CiAgIFVuc2lnbmVkXzE2X0lPLlB1dChiYiwgMSk7CiAgIFB1dCgiID0gIik7CiAgIFVuc2lnbmVkXzMyX0lPLlB1dChjYywgMSk7CiAgIE5ld19MaW5lOwplbmQgdGVzdDs=