Added 'Misc./comprehensions.adb'

This commit is contained in:
anon 2024-12-10 20:39:02 +01:00
parent f75378edfc
commit 3845ae664f

8
Misc./comprehensions.adb Normal file
View File

@ -0,0 +1,8 @@
-- @BAKE gnatmake-10 -gnat2022 -o comprehender $@
procedure Comrehension is
type Integer_Array is array (Positive range <>) of Integer;
Vector : Integer_Array := [for J in 1 .. 5 => J * 2];
begin
null;
end Comrehension;