Bug#894225: gnat: trailing separators confuse Ada.Directories.Containing_Directory

[Nicolas Boulenguez <nicolas@debian.org>]

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 .