Sign in
gnu
/
gcc
/
a8404c07e7fca388c02c39077865f7d5fa928430
/
.
/
gcc
/
testsuite
/
gnat.dg
/
compose.adb
blob: 4ee3c57f668465e3c1b7e2d7f63f0769ef26e6b5 [
file
] [
log
] [
blame
]
--
{
dg
-
do
run
}
with
Ada
.
Directories
;
with
Ada
.
Text_IO
;
procedure
Compose
is
Result
:
constant
String
:=
Ada
.
Directories
.
Compose
(
Name
=>
"foo"
,
Extension
=>
"txt"
);
pragma
Unreferenced
(
Result
);
begin
null
;
end
Compose
;