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