1-- { dg-do compile }
2
3package body Discr46 is
4
5   function F (Id : Enum) return Integer is
6      Node : Integer := 0;
7   begin
8      if A (Id).R.D = True then
9         Node := A (Id).R.T;
10      end if;
11      return Node;
12   end;
13
14end Discr46;
15