PR target/84336
[official-gcc.git] / gcc / testsuite / gnat.dg / compose.adb
blob4ee3c57f668465e3c1b7e2d7f63f0769ef26e6b5
1 -- { dg-do run }
2 with Ada.Directories;
3 with Ada.Text_IO;
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;