Package: gnat-7
Version: 7.3.0-11
Severity: minor
Tags: upstream
Hello.
The following source
with Ada.Directories; use Ada.Directories;
with Ada.Text_IO; use Ada.Text_IO;
procedure Directories_Bug is
procedure Show (Path : in String) is
With_Slash : constant String := Path & '/';
begin
Put (With_Slash);
Put (" -> ");
Put (Containing_Directory (With_Slash));
Put (" instead of ");
Put (Containing_Directory (Path));
New_Line;
end Show;
begin
Show ("/a/b");
Show ("a/b");
Show ("b");
end Directories_Bug;
displays:
/a/b/ -> /a/b instead of /a
a/b/ -> a/b instead of a
b/ -> b instead of .
