FILE IO Error?

[Ray <yarzepol@mindspring.com>]

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;
  
-----------------------------------------------------------------------------