Sign in
android
/
toolchain
/
gcc
/
3f73d6ef904
/
.
/
gcc-4.6
/
gcc
/
testsuite
/
gnat.dg
/
cond_expr1.adb
blob: e1a87a36ab533c32e0169520f43386b16224cbef [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
--
{
dg
-
options
"-gnat12"
}
function
Cond_Expr1
(
Dir
:
in
String
)
return
String
is
begin
return
(
if
Dir
(
Dir
'Last) = '
\'
then
Dir
else
Dir
&
'\');
end;