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