2 -- { dg-options "-O2 -fstack-usage" }
6 procedure Stack_Usage2
is
9 pragma Import
(Ada
, Sink
);
11 procedure Transmit_Data
(Branch
: Integer) is
12 pragma No_Inline
(Transmit_Data
);
16 when 1 => Sink
:= X
'Address;
22 Transmit_Data
(Branch
=> 1);
25 -- { dg-final { scan-stack-usage-not ":Constprop" } }
26 -- { dg-final { cleanup-stack-usage } }