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