gcc/testsuite/gnat.dg/discr23.adb

   1 --  { dg-do compile }
   2
   3 with Discr23_Pkg; use Discr23_Pkg;
   4
   5 package 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
  18 end Discr23;