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