gcc/cp
[official-gcc.git] / gcc / testsuite / gnat.dg / cond_expr2.adb
blob02e3ee3826622a493245dc5aff6f38f500ef7920
1 -- { dg-do compile }
2 -- { dg-options "-gnat12" }
4 package body Cond_Expr2 is
6 function F (X : integer) return String is
7 begin
8 return (if X > 0 then "positive" else "negative");
9 end;
11 end Cond_Expr2;