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;
+
+