From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-0.8 required=5.0 tests=BAYES_00,INVALID_DATE
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,a7e715f4b0d51477,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 1994-12-03 12:32:57 PST
Path: 
 bga.com!news.sprintlink.net!howland.reston.ans.net!Germany.EU.net!wizard.pn.com!bhhome.bh.org!bill
From: bill@bhhome.bh.org (Bill Heiser)
Newsgroups: comp.lang.ada
Subject: Using procedures
Date: 3 Dec 1994 20:32:55 GMT
Organization: Bill Heiser's Organization
Distribution: world
Message-ID: <3bqkln$u8i@wizard.pn.com>
NNTP-Posting-Host: bhhome.bh.org
Date: 1994-12-03T20:32:55+00:00
List-Id: <comp.lang.ada>


I am down to the wire and have to complete a couple of Ada programs ASAP.
There is something I just don't get about using procedures in Ada.
If I have a program with multiple procedures, how do I get all of
them to run?  If I try to call one from another, the compiler
complains of undeclared identifiers.
i.e.

    with text_io;
    procedure putv(i: OUT integer) is
    begin
      for i in 1..5 loop
      text_io.put(integer'image(i));
      end loop;

    end putv;

    with text_io;
    procedure puty(j: OUT integer) is
    begin
      for j in 1..5 loop
      text_io.put(integer'image(j));
      end loop;
    end puty;

How (for example) do I call putv from puty?  If I try a "putv(something)",
the compiler complains that putv is an undeclared identifier.  If I run
this little program as-is, it runs, but only one of the functions runs
(I get a "1-5", not two sets of them as I'd expect).

I'm really down to the wire to get these programs done for school, so
any help would be much appreciated.

BTW, this is for Ada/6000 release 3.3 on an RS/6000 running AIX 3.2.5.

Thanks,
Bill
-- 
Bill Heiser:    bill@bh.org     http://www.bh.org/
PGP public key available upon request.