https://gcc.gnu.org/bugzilla/show_bug.cgi?id=85766
Bug ID: 85766
Summary: Containing_Directory in Ada.Directories is confused by
a trailing separator
Product: gcc
Version: unknown
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: ada
Assignee: unassigned at gcc dot gnu.org
Reporter: nicolas.boulenguez at free dot fr
Target Milestone: ---
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 .
Origin: https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=894225
