From 10286c0b22f3111e74bf699f224a4e8061626d4c Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Sat, 5 Apr 2025 23:06:26 +1300 Subject: Initial commit --- test/where_exec.adb | 20 ++++++++++++++++++++ test/where_mod.adb | 20 ++++++++++++++++++++ 2 files changed, 40 insertions(+) create mode 100644 test/where_exec.adb create mode 100644 test/where_mod.adb (limited to 'test') 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; + + diff --git a/test/where_mod.adb b/test/where_mod.adb new file mode 100644 index 0000000..d636e4f --- /dev/null +++ b/test/where_mod.adb @@ -0,0 +1,20 @@ + + +-- Programmed by Jedidiah Barber +-- Released into the public domain + + +with + + Ada.Text_IO, + Here_I_Am; + + +procedure Where_Mod is +begin + + Ada.Text_IO.Put_Line (Here_I_Am.Module); + +end Where_Mod; + + -- cgit