The unified diff between revisions [49a6aa43..] and [cd65d791..] is displayed below. It can also be downloaded as a raw diff.

#
#
# patch "tests/hl/hl_t_a_13a.ada"
#  from [8be0c7130ef42201f274b6a1f93bc926a32f32c6]
#    to [588039e1fa67359fb4f37e13b8e753df08fed7f2]
#
============================================================
--- tests/hl/hl_t_a_13a.ada	8be0c7130ef42201f274b6a1f93bc926a32f32c6
+++ tests/hl/hl_t_a_13a.ada	588039e1fa67359fb4f37e13b8e753df08fed7f2
@@ -31,12 +31,7 @@
 --  Measurement: Timing
 --  Based on: PIWG a000094j

-with Support_Timing; use Support_Timing;
-
-procedure hl_t_a_13a is  -- main procedure to execute
-
-   procedure Run_Fft is       -- fft
-
+package hl_t_a_13a_data is
       Fftsize  : constant := 256;
       Fftsize2 : constant := 129;

@@ -51,7 +46,16 @@ procedure hl_t_a_13a is  -- main procedu
       E      : C2array;
       Zr, Zi : Float;
       Seed   : Long_Integer;
+end hl_t_a_13a_data;

+with Support_Timing; use Support_Timing;
+with hl_t_a_13a_data; use hl_t_a_13a_data;
+
+procedure hl_t_a_13a is  -- main procedure to execute
+
+   subtype Long_Integer is hl_t_a_13a_data.Long_Integer;
+   procedure Run_Fft is       -- fft
+
       function Cos (X : Float) return Float is
          -- computes cos of x (x in radians) by an expansion
          type T is range 2 .. 10;