Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
gcc
/
testsuite
/
gnat.dg
/
cond_expr2.adb
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
;