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.9 required=5.0 tests=BAYES_00
	autolearn=unavailable autolearn_force=no version=3.4.4
X-Received: by 10.36.61.149 with SMTP id n143mr3787459itn.48.1512751233797;
        Fri, 08 Dec 2017 08:40:33 -0800 (PST)
X-Received: by 10.157.83.199 with SMTP id i7mr1304352oth.3.1512751233504; Fri,
 08 Dec 2017 08:40:33 -0800 (PST)
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!feeder.eternal-september.org!news.kjsl.com!usenet.stanford.edu!i6no615040itb.0!news-out.google.com!s63ni1389itb.0!nntp.google.com!193no609183itr.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Fri, 8 Dec 2017 08:40:33 -0800 (PST)
In-Reply-To: <93474da2-9494-4686-af46-a5d1528b6960@googlegroups.com>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com;
 posting-host=135.23.128.40;
 posting-account=cUi90woAAADTaOISowbbHM8GUD0-opJO
NNTP-Posting-Host: 135.23.128.40
References: <b8255ab8-8f54-48c1-9a43-db3e5eeb49c8@googlegroups.com>
 <93474da2-9494-4686-af46-a5d1528b6960@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <008f46f6-fb2f-411b-9351-b29a3a5ed8ca@googlegroups.com>
Subject: Re: How To Write A Record To File ?
From: patrick@spellingbeewinnars.org
Injection-Date: Fri, 08 Dec 2017 16:40:33 +0000
Content-Type: text/plain; charset="UTF-8"
Xref: reader02.eternal-september.org comp.lang.ada:49414
Date: 2017-12-08T08:40:33-08:00
List-Id: <comp.lang.ada>

Hi AdaMagica


Please see this failing program to see what I mean.

Thanks




       with sequential_io ;
       procedure compute_total_population is
        type foo_type is
        record
          moo              : integer ;
          boo              : integer ;
        end record ;
 
        foo                : foo_type ;
       -- will fail here with error:
       -- expect valid subtype mark to instantiate "Element_Type"
        package si is        new sequential_io(foo);

        data_file          : si.file_type ;
        result_file        : si.file_type ;
        value              : integer ;
        total              : integer := 0 ;




       begin 

        si.open(data_file, si.in_file, "census74") ;
        while not si.end_of_file(data_file)
         loop
          si.read(data_file, value) ;
          total := total + value ;
         end loop ;

        si.close(data_file) ;

        si.create(result_file, name => "total74") ;
        si.write(result_file, total);
        si.close(result_file) ;

       end compute_total_population ;