gcc/testsuite/gnat.dg/compose.adb

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