[Bug ada/21346] New: Ada.Directories.Compose raises exception if Containing_Directory is empty string

[martin dot dowie at btopenworld dot com]

Making a call to subprogram Ada.Directories.Compose with an empty string (the
default value) for the parameter "Containing_Directory" leads to a Name_Error
exception being raised.

-- Test Program
with Ada.Directories;
with Ada.Text_IO;

procedure Test_Compose is
   Result : String := Ada.Directories.Compose (Name      => "foo",
                                               Extension => "txt");
begin
   Ada.Text_IO.Put_Line (Result);
end Test_Compose;

-- 
           Summary: Ada.Directories.Compose raises exception if
                    Containing_Directory is empty string
           Product: gcc
           Version: 4.0.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: ada
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: martin dot dowie at btopenworld dot com
                CC: gcc-bugs at gcc dot gnu dot org


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=21346