separate (File_Name_Package)
procedure Associate_Input_File_Names
             (This_File : in File_Name;
              With_Input_File : in out Text_Io.File_Type) is
begin
    -- Associate_Input_File_Names

    -- Associates the physical file name with the logical file for
    -- input files

    Text_Io.Open (File => With_Input_File,
                  Mode => Text_Io.In_File,
                  Name => String (This_File.Characters_In_Name
                                     (1 .. This_File.Number_Of_Characters)));
    Text_Io.Set_Input (File => With_Input_File);
exception
    when Text_Io.Name_Error =>
        Text_Io.Put ("Error opening input Ada program unit file: ");
        Text_Io.Put_Line (String (This_File.Characters_In_Name
                                     (1 .. This_File.Number_Of_Characters)));
        Text_Io.Put_Line ("Are you sure this is the correct file ?");
        raise;
end Associate_Input_File_Names;