diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-04-05 23:06:26 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-04-05 23:06:26 +1300 |
| commit | 10286c0b22f3111e74bf699f224a4e8061626d4c (patch) | |
| tree | 172b3198153258b54aa4fd4540e7231ccfc66b7a /test/where_exec.adb | |
Initial commit
Diffstat (limited to 'test/where_exec.adb')
| -rw-r--r-- | test/where_exec.adb | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/test/where_exec.adb b/test/where_exec.adb new file mode 100644 index 0000000..a4ea73c --- /dev/null +++ b/test/where_exec.adb @@ -0,0 +1,20 @@ + + +-- Programmed by Jedidiah Barber +-- Released into the public domain + + +with + + Ada.Text_IO, + Here_I_Am; + + +procedure Where_Exec is +begin + + Ada.Text_IO.Put_Line (Here_I_Am.Executable); + +end Where_Exec; + + |