1-- { dg-do run }
2with Ada.Directories;
3with Ada.Text_IO;
4
5procedure Compose is
6   Result : constant String := Ada.Directories.Compose (Name      => "foo",
7                                                        Extension => "txt");
8   pragma Unreferenced (Result);
9begin
10   null;
11end Compose;
12