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=-1.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,284617f48ce4b65a
X-Google-Attributes: gid103376,public
From: Ledru#m#_Pascal@MSMAIL3.HAC.COM
Subject: Re: Beginner Need help !
Date: 1996/04/23
Message-ID: <317D5368.6B57@MSMAIL3.HAC.COM>#1/1
X-Deja-AN: 151058088
references: <317BA52A.18C4@gig.net> <4lir0f$dhq@gde.GDEsystems.COM>
content-type: text/plain; charset=us-ascii
organization: Hughes Aircraft Company
mime-version: 1.0
newsgroups: comp.lang.ada
x-mailer: Mozilla 2.01 (Macintosh; I; PPC)
Date: 1996-04-23T00:00:00+00:00
List-Id: <comp.lang.ada>

Just use the mode Append_File (which does not exist in Ada83 by the 
way!)

with Text_IO;
procedure TestFile2 is
  package IO_Int is new Text_IO.Integer_IO( Num => Integer);
  use IO_Int;
  File_A : Text_IO.FILE_TYPE;
begin
  -- we assume the file always exists here!
  Text_IO.Open
    ( File => File_A,
      Mode => Text_IO.Append_File,
      Name => "File_A" );

  for I in 1 .. 10 loop
    Text_IO.Put(File_A, "Line : ");
    IO_Int.Put( File_A, i, 4);
    Text_IO.New_Line(File_A);
  end loop;

  Text_IO.Close( File_A );
end;