gcc/testsuite/gnat.dg/encode_string1_pkg.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

with Ada.Exceptions; use Ada.Exceptions;
with Ada.Text_IO;    use Ada.Text_IO;

procedure Encode_String1_Pkg (Val : S) is
begin
   declare
      Result : constant String := Encode (Val);
   begin
      Put_Line (Result);
   end;

exception
   when Ex : others =>
      Put_Line ("ERROR: Unexpected exception " & Exception_Name (Ex));
end;