blob: e02e4260c45924da2213d7b3423540d852a0c283 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
-- { dg-do compile }
-- { dg-options "-O" }
package body Opt11 is
procedure Proc is
R : Rec;
begin
R := (others => <>); -- { dg-warning "aggregate not fully initialized" }
end;
end Opt11;
|