1-- { dg-do compile } 2 3package body Discr35 is 4 5 procedure Proc1 is 6 R : Rec2 := Null_Rec2; 7 begin 8 null; 9 end; 10 11 procedure Proc2 is 12 R : Rec2; 13 begin 14 R := Null_Rec2; 15 end; 16 17end Discr35; 18