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.2 required=5.0 tests=BAYES_00,INVALID_MSGID,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII
X-Google-Thread: 103376,e3e10730e73c99a1,start
X-Google-Attributes: gid103376,public
From: marc <jj091849@er.uqam.ca>
Subject: jumping a loop
Date: 1998/02/05
Message-ID: <34D91382.6FC1@er.uqam.ca>#1/1
X-Deja-AN: 322168552
Content-Transfer-Encoding: 8bit
MIME-Version: 1.0
NNTP-Posting-Date: Wed, 04 Feb 1998 20:17:32 EST
Reply-To: jj091849@er.uqam.ca
Content-Type: text/plain; charset=iso-8859-1
Newsgroups: comp.lang.ada
Date: 1998-02-05T00:00:00+00:00
List-Id: <comp.lang.ada>


jj091849@er.uqam.ca
I have writen the followinf (simple!!)program.
at the beginning it's jumping a loop.
compile and run and the first item is jump!
Could you help me with this .
thanK's  (compiled with object ada7.1)
-------------------------------------------------

 with text_io;    use text_io;
procedure essai is
PACKAGE ES_Entiers IS NEW Text_io.Integer_IO(Num=> Integer);
TYPE File_Mode IS (In_File,Out_File);
lki,auteur,source,ref,idn:string(1..32);



  type t_item is record      
        item     :string(1..32);
        an,mois,jour,heure,min :NATURAL:=0;
   end record;
   v_item: Array(1..10) of t_item;
      iter,long,i:natural:=0;
   begin            

    text_io.put("Combiens de items � entrez (0-10)");
    Es_Entiers.get(item=> iter);
    
    
    for i In 1..Iter loop 
   
text_io.put(item=>"item : ");
get_line(v_item(i).item,last=>long);
text_io.New_Line(2);
long:=0;




    end loop;
    end essai ;