1-- { dg-do compile }
2
3package body Discr29 is
4
5   procedure Proc (R : out Rec3) is
6   begin
7      R := (False, Tmp);
8   end;
9
10end Discr29;
11