Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Overloaded Ada
--GNAT 4.9.3 with Ada.Text_IO; use Ada.Text_IO; procedure Hello is procedure A(I: integer) is begin Ada.Text_IO.Put_Line(integer'Image(I)); end A; procedure A(I: integer; J: integer) is begin Ada.Text_IO.Put_Line(integer'Image(I)); Ada.Text_IO.Put_Line(integer'Image(J)); end A; begin A(1); A(1, 2); end Hello;
run
|
edit
|
history
|
help
0
Dynamic Dispatching
Dynamic Dispatching with dynamic allocation
Dynamic Dispatching with no dynamic allocation
division_emtera_p.adb
plop
ada rocks!
Iterator Interface
nested ADA code, same procedure name
Stack (Using Tasking)
1d array as 4d with easy reshaping