gcc/testsuite/gnat.dg/encode_string1_pkg.adb

   1 with Ada.Exceptions; use Ada.Exceptions;
   2 with Ada.Text_IO;    use Ada.Text_IO;
   3
   4 procedure Encode_String1_Pkg (Val : S) is
   5 begin
   6    declare
   7       Result : constant String := Encode (Val);
   8    begin
   9       Put_Line (Result);
  10    end;
  11
  12 exception
  13    when Ex : others =>
  14       Put_Line ("ERROR: Unexpected exception " & Exception_Name (Ex));
  15 end;