gcc/testsuite/gnat.dg/discr23.adb


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

--  { dg-do compile }

with Discr23_Pkg; use Discr23_Pkg;

package body Discr23 is

  N : constant Text := Get;

  function Try (A : in Text) return Text is
  begin
    return A;
  exception
    when others => return N;
  end;

  procedure Dummy is begin null; end;

end Discr23;