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

#
#
# patch "tests/hl/hl_t_a_16a.ada"
#  from [d20c8529a00d9aa0c74ee917141febdb02e37f79]
#    to [97722a6999c704afc9c017575912ba71848e6dbe]
#
============================================================
--- tests/hl/hl_t_a_16a.ada	d20c8529a00d9aa0c74ee917141febdb02e37f79
+++ tests/hl/hl_t_a_16a.ada	97722a6999c704afc9c017575912ba71848e6dbe
@@ -52,14 +52,11 @@ end hl_t_a_16a;

 end hl_t_a_16a;

-----------------------
--- hl_t_a_16a_Kalman --
-----------------------
+---------------------
+-- hl_t_a_16a_data --
+---------------------

-with Support_Base; use Support_Base;
-
-procedure hl_t_a_16a_Kalman is
-
+package hl_t_a_16a_data is
    Blank : constant Character := ' ';
    Icc   : constant Character := 'C';

@@ -74,7 +71,16 @@ procedure hl_t_a_16a_Kalman is
    T1, T2                                         : Float;
    Npt, Ier                                       : Integer;
    Jumpout                                        : Boolean;
+end hl_t_a_16a_data;

+----------------------
+-- hl_t_a_16a_Kalman --
+----------------------
+
+with Support_Base; use Support_Base;
+with hl_t_a_16a_data; use hl_t_a_16a_data;
+
+procedure hl_t_a_16a_Kalman is
    procedure Simeq
      (A    : in Matrix;
       Kc   : in Integer;