1-- { dg-do compile } 2-- { dg-options "-gnat12" } 3 4function Cond_Expr1 (Dir : in String) return String is 5begin 6 return (if Dir (Dir'Last) = '\' then Dir else Dir & '\'); 7end; 8