mulander

with Ada.Text_IO;
with Ada.IO_Exceptions;

procedure Read
is
   File : Ada.Text_IO.File_Type;
begin  -- this is line 7
   Ada.Text_IO.Open (File, Mode => Ada.Text_IO.In_File, Name => "read.adb");
   Ada.Text_IO.Set_Line (File, 7);
   declare