Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
gcc
/
testsuite
/
gcc.c-torture
/
execute
/
20000822-1.c
blob: e99bcc2fea3ef1c35f728bd6c9d469ecfdd05f30 [
file
] [
log
] [
blame
]
/* { dg-require-effective-target trampolines } */
int
f0
(
int
(*
fn
)(
int
*),
int
*
p
)
{
return
(*
fn
)
(
p
);
}
int
f1
(
void
)
{
int
i
=
0
;
int
f2
(
int
*
p
)
{
i
=
1
;
return
*
p
+
1
;
}
return
f0
(
f2
,
&
i
);
}
int
main
()
{
if
(
f1
()
!=
2
)
abort
();
return
0
;
}