blob: e02e4260c45924da2213d7b3423540d852a0c283 [file] [log] [blame]
-- { 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;