blob: d02da6ced258fe2b7f7bc4bb2ba55a76f15b8270 [file] [log] [blame]
-- { dg-do compile }
-- { dg-options "-Wstack-usage=512" }
with Stack_Usage6_Pkg; use Stack_Usage6_Pkg;
procedure Stack_Usage6 (I : Index_Type) is
R : constant Rec := A (I);
begin
if R.D then
raise Program_Error;
end if;
end;