Переименование исключений

В некоторых случаях полезно осуществить локальное переименование исключения:

with Ada.IO_Exceptions;

package My_IO is

Data_Error: exception renames Ada.IO_Exceptions.Data_Error; . . . end My_IO;