test/where_exec.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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;