From e0ebf90f6e3e8eb446b6353939e7a3b2f1fd628d Mon Sep 17 00:00:00 2001
From: rexim <reximkut@gmail.com>
Date: Sun, 10 Mar 2024 01:54:35 +0700
Subject: Introduce explosions

---
 test.adb | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

(limited to 'test.adb')

diff --git a/test.adb b/test.adb
index 401aeab..f757eb4 100644
--- a/test.adb
+++ b/test.adb
@@ -2,10 +2,14 @@ with Text_IO; use Text_IO;
 with Ada.Strings.Fixed; use Ada.Strings.Fixed;
 with Ada.Strings; use Ada.Strings;
 
-
 procedure Test is
+    type IVector2 is record
+        X, Y: Integer;
+    end record;
+    type Ten_Numbers is array(IVector2) of Integer;
+
+    Position: IVector2;
+    Xs: Ten_Numbers;
 begin
-   for Index in 1..10 loop
-      Put_Line(Trim(Integer'Image(Index), Left));
-   end loop;
+    null;
 end;
-- 
cgit v1.2.3