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