[Bug ada/85766] New: Containing_Directory in Ada.Directories is confused by a trailing separator

[nicolas.boulenguez at free dot fr]

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