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

package Example is
  procedure ToBeCalled(
    iterations : in Integer
  );
  pragma export(C, ToBeCalled, "example_ToBeCalled");
end Example;