10 lines
201 B
Ada
10 lines
201 B
Ada
|
with Server;
|
||
|
|
with Ada.Text_IO;
|
||
|
|
|
||
|
|
procedure Client is
|
||
|
|
begin
|
||
|
|
Ada.Text_IO.Put_Line ("Calling Foo...");
|
||
|
|
Server.Foo;
|
||
|
|
Ada.Text_IO.Put_Line ("Calling Bar: " & Integer'Image (Server.Bar));
|
||
|
|
end Client;
|