blob: 02e3ee3826622a493245dc5aff6f38f500ef7920 [file] [log] [blame]
-- { dg-do compile }
-- { dg-options "-gnat12" }
package body Cond_Expr2 is
function F (X : integer) return String is
begin
return (if X > 0 then "positive" else "negative");
end;
end Cond_Expr2;