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=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,76e94160688627d,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2001-12-18 14:34:08 PST
Newsgroups: comp.lang.ada
Path: 
 archiver1.google.com!news1.google.com!sn-xit-02!supernews.com!news.tele.dk!small.news.tele.dk!195.158.233.21!news1.ebone.net!news.ebone.net!lnewspeer00.lnd.ops.eu.uu.net!emea.uu.net!zur.uu.net!ash.uu.net!xyzzy!nntp
From: Ray <yarzepol@mindspring.com>
Subject: FILE IO Error?
X-Nntp-Posting-Host: e247319.msc.az.boeing.com
Content-Type: text/plain; charset=us-ascii
Message-ID: <3C1FC17F.B47D5CA8@mindspring.com>
Sender: nntp@news.boeing.com (Boeing NNTP News Access)
Content-Transfer-Encoding: 7bit
Organization: The Boeing Company
X-Accept-Language: en
Mime-Version: 1.0
Date: Tue, 18 Dec 2001 22:21:51 GMT
X-Mailer: Mozilla 4.73 [en]C-CCK-MCD Boeing Kit  (WinNT; U)
Xref: archiver1.google.com comp.lang.ada:18074
Date: 2001-12-18T22:21:51+00:00
List-Id: <comp.lang.ada>

I am reading in some data from a file and despite reading in the data
successfully, I get this ADA.IO_EXCEPTIONS'CHILD_UNIT.END_ERROR which
means I am trying to read past the EOF.  Can someone explain why I get
this error or what I am not seeing?

thanks,

Ray

  
-----------------------------------------------------------------------------
   PROCEDURE load_data IS

      data_file : file_type;
      value : character;

   BEGIN

      open (data_file, in_file, "file.dat");

      IF NOT end_of_file (data_file) THEN
         FOR i IN 1 .. 8 LOOP

            -- Read in 8 character name.
            FOR j IN 1 .. 8 LOOP
               get (data_file, value);
               label_1 (i) (j) := value;
            END LOOP;

            -- Eat delimiter character.
            get (data_file, value);

            -- Read in 4 character name.
            FOR j IN 1 .. 4 LOOP
               get (data_file, value);
               label_2 (i) (j) := value;
            END LOOP;

         END LOOP;
      END IF;

      close (data_file);

   END load_data;
  
-----------------------------------------------------------------------------