| 1 |
696 |
jeremybenn |
-- { dg-do compile }
|
| 2 |
|
|
-- { dg-options "-fstack-usage" }
|
| 3 |
|
|
|
| 4 |
|
|
with Stack_Usage1_Pkg; use Stack_Usage1_Pkg;
|
| 5 |
|
|
|
| 6 |
|
|
procedure Stack_Usage1 is
|
| 7 |
|
|
|
| 8 |
|
|
A : Integer := Ident_Int (123);
|
| 9 |
|
|
|
| 10 |
|
|
begin
|
| 11 |
|
|
case A is
|
| 12 |
|
|
when 0 =>
|
| 13 |
|
|
My_Proc (R'(Ident_Int(0), Ident_Int(1), Ident_Int(2), Ident_Int(3), Ident_Int(4), Ident_Int(5), Ident_Int(6), Ident_Int(7), Ident_Int(8), Ident_Int(9)));
|
| 14 |
|
|
when 1 =>
|
| 15 |
|
|
My_Proc (R'(Ident_Int(0), Ident_Int(1), Ident_Int(2), Ident_Int(3), Ident_Int(4), Ident_Int(5), Ident_Int(6), Ident_Int(7), Ident_Int(8), Ident_Int(9)));
|
| 16 |
|
|
when 2 =>
|
| 17 |
|
|
My_Proc (R'(Ident_Int(0), Ident_Int(1), Ident_Int(2), Ident_Int(3), Ident_Int(4), Ident_Int(5), Ident_Int(6), Ident_Int(7), Ident_Int(8), Ident_Int(9)));
|
| 18 |
|
|
when 3 =>
|
| 19 |
|
|
My_Proc (R'(Ident_Int(0), Ident_Int(1), Ident_Int(2), Ident_Int(3), Ident_Int(4), Ident_Int(5), Ident_Int(6), Ident_Int(7), Ident_Int(8), Ident_Int(9)));
|
| 20 |
|
|
when 4 =>
|
| 21 |
|
|
My_Proc (R'(Ident_Int(0), Ident_Int(1), Ident_Int(2), Ident_Int(3), Ident_Int(4), Ident_Int(5), Ident_Int(6), Ident_Int(7), Ident_Int(8), Ident_Int(9)));
|
| 22 |
|
|
when 5 =>
|
| 23 |
|
|
My_Proc (R'(Ident_Int(0), Ident_Int(1), Ident_Int(2), Ident_Int(3), Ident_Int(4), Ident_Int(5), Ident_Int(6), Ident_Int(7), Ident_Int(8), Ident_Int(9)));
|
| 24 |
|
|
when 6 =>
|
| 25 |
|
|
My_Proc (R'(Ident_Int(0), Ident_Int(1), Ident_Int(2), Ident_Int(3), Ident_Int(4), Ident_Int(5), Ident_Int(6), Ident_Int(7), Ident_Int(8), Ident_Int(9)));
|
| 26 |
|
|
when 7 =>
|
| 27 |
|
|
My_Proc (R'(Ident_Int(0), Ident_Int(1), Ident_Int(2), Ident_Int(3), Ident_Int(4), Ident_Int(5), Ident_Int(6), Ident_Int(7), Ident_Int(8), Ident_Int(9)));
|
| 28 |
|
|
when 8 =>
|
| 29 |
|
|
My_Proc (R'(Ident_Int(0), Ident_Int(1), Ident_Int(2), Ident_Int(3), Ident_Int(4), Ident_Int(5), Ident_Int(6), Ident_Int(7), Ident_Int(8), Ident_Int(9)));
|
| 30 |
|
|
when 9 =>
|
| 31 |
|
|
My_Proc (R'(Ident_Int(0), Ident_Int(1), Ident_Int(2), Ident_Int(3), Ident_Int(4), Ident_Int(5), Ident_Int(6), Ident_Int(7), Ident_Int(8), Ident_Int(9)));
|
| 32 |
|
|
when others =>
|
| 33 |
|
|
null;
|
| 34 |
|
|
end case;
|
| 35 |
|
|
|
| 36 |
|
|
end Stack_Usage1;
|
| 37 |
|
|
|
| 38 |
|
|
-- { dg-final { scan-stack-usage "\t\[0-9\]\[0-9\]\t" { target i?86-*-* x86_64-*-* } } }
|
| 39 |
|
|
-- { dg-final { cleanup-stack-usage } }
|
