blob: e73b18ab0b75eb84270459a1642f197d67dfa936 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
--
-- The license and distribution terms for this file may be
-- found in the file LICENSE in this distribution or at
-- http://www.rtems.com/license/LICENSE.
--
-- $Id$
--
with Text_IO; use Text_IO;
package body Example is
procedure ToBeCalled (
iterations : in Integer
) is
begin
Put_Line ( "Ada method called " & Integer'Image (iterations) & " times" );
end ToBeCalled;
end Example;
|