1--  { dg-do compile }
2
3with Discr23_Pkg; use Discr23_Pkg;
4
5package body Discr23 is
6
7  N : constant Text := Get;
8
9  function Try (A : in Text) return Text is
10  begin
11    return A;
12  exception
13    when others => return N;
14  end;
15
16  procedure Dummy is begin null; end;
17
18end Discr23;
19