blob: 9e47957e9e125b8b805052bbc294f64cc3698f44 [file] [log] [blame]
-- { dg-do run }
-- { dg-options "-O" }
with Opt13_Pkg; use Opt13_Pkg;
procedure Opt13 is
T : My_Type;
begin
Allocate (T);
if N /= 1 then
raise Program_Error;
end if;
end;