-- -- 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;