-- RT_C137A2A1 : Creation d'un fichier autolisible
--               Flottant simple precision, une dimension
-- Coyright Jacques-deric Rouault
-- Version 1.1 du 20120227
              
WITH Text_io, sequential_io;
USE  Text_io;

PROCEDURE RT_C137A2A1 IS
  
  PACKAGE siof IS NEW sequential_io (Float);
  ff : siof.File_type;
  fident  : Float := 1.23456789;
  fformat : Float := 1.0;
  f       : Float := 0.0;
  
BEGIN

  Put_line ("Debut d'execution du programme Ada RT_C137A2A1");
  
  siof.Create (ff,siof.out_file,"RT_C137A2A2.dat");
  siof.Write (ff,fident);
  siof.Write (ff,fformat);
  siof.Write (ff,20.0);
  
  FOR n In 1..20 LOOP
    f:=f+1.0;
    siof.Write (ff,f);    
  END LOOP;  
  siof.Close (ff);
  
  Put_line ("Fin   d'execution du programme Ada RT_C137A2A1");

END RT_C137A2A1;