summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/discr23.adb
blob: 1d1e695e9d905b8161889fb58716f20a392cdaa9 (plain)
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;