sparknacl_4.0.0_3bb462a1/stress/stressall.adb

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
with GF_Stress;
with Diff_Car_Stress;
with Car_Stress;
with Pack_Stress;

with Ada.Text_IO; use Ada.Text_IO;
with Ada.Exceptions; use Ada.Exceptions;
with GNAT.Traceback.Symbolic; use GNAT.Traceback.Symbolic;

procedure Stressall
is
begin
   Put_Line ("GF Stress");
   GF_Stress;
   Put_Line ("Diff Car Stress");
   Diff_Car_Stress;
   Put_Line ("Car Stress");
   Car_Stress;
   Put_Line ("Pack Stress");
   Pack_Stress;
exception
   when E : others =>
      Put_Line (Exception_Message (E));
      Put_Line (Exception_Information (E));
      Put_Line (Symbolic_Traceback (E));
end Stressall;