with Ada.Text_IO; with Ada.Environment_Variables; procedure Env is package IO renames Ada.Text_IO; package EV renames Ada.Environment_Variables; procedure Print_EV (Name, Value : in String) is begin IO.Put_Line (Item => Name & "=" & Value); end Print_EV; begin IO.Put_Line (Item => "Environment_Variables test"); EV.Iterate (Process => Print_EV'Access); end Env;