Sign in
gnu
/
gcc
/
e5cfb9cac1d7aba9a8ea73bfe7922cfaff9d61f3
/
.
/
gcc
/
testsuite
/
gcc.c-torture
/
execute
/
921208-1.c
blob: 143ef63b0c9c0d9fac1e5d2b7a9004e27d07c602 [
file
] [
log
] [
blame
]
double
f
(
double
x
)
{
return
x
*
x
;
}
double
Int
(
double
(*
f
)(
double
),
double
a
)
{
return
(*
f
)(
a
);
}
main
()
{
if
(
Int
(&
f
,
2.0
)
!=
4.0
)
abort
();
exit
(
0
);
}