Tidy down to one file.

Author: Anthony Williams

day3-reproducer/repro.adb

@@ -1,25 +1,28 @@
+with Ada.Containers.Formal_Vectors;
 with Ada.Text_IO;
 
-with Coord;
-
 procedure Repro
    with SPARK_Mode => On
 is
 
+   package Points is new Ada.Containers.Formal_Vectors
+     (Element_Type => Natural,
+      Index_Type   => Natural);
+
    -- Instantiate Vec_2 to have a Capacity of 200.
-   Vec_2 : Coord.Points.Vector (200);
+   Vec_2 : Points.Vector (200);
 
    Pos : constant Natural := 12345;
 
 begin
 
    -- Fails SPARK analysis, but we knew that was going to happen...
    for J in Positive range 1 .. 40005 loop
-      Coord.Points.Append(Vec_2, Pos);
-      Ada.Text_IO.Put_Line ("Vector Append" & Coord.Points.Length(Vec_2)'Image);
+      Points.Append(Vec_2, Pos);
+      Ada.Text_IO.Put_Line ("Vector Append" & Points.Length(Vec_2)'Image);
    end loop;
 
    Ada.Text_IO.Put_Line
-     ("Vector Finished" & Coord.Points.Length(Vec_2)'Image);
+     ("Vector Finished" & Points.Length(Vec_2)'Image);
 
 end Repro;