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