Skip to content

Instantly share code, notes, and snippets.

@LordAro

LordAro/what.adb

Created November 23, 2018 14:06
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save LordAro/694445dc016fb7debdf1a964a11377c1 to your computer and use it in GitHub Desktop.
Save LordAro/694445dc016fb7debdf1a964a11377c1 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
what.adb
with Ada.Text_IO;
procedure Learn is
type Integer_Array is array (Natural range <>) of Integer;
b : Integer_Array := (1,2,3);
a : Integer_Array := (4,5,6);
begin
if b(0..2) < a(1..2) then
Ada.Text_IO.Put_Line ("HELLO");
end if;
end Learn;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment