summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/cond_expr1.adb
blob: e1a87a36ab533c32e0169520f43386b16224cbef (plain)
1
2
3
4
5
6
7
-- { 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;