Sign in
gnu
/
gcc
/
929abc7fe3ad4491ac412ca232e055618559f268
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
proc_ptr_8.c
blob: c732ff6667c0f230f8bb602b30801d7ede9ca967 [
file
] [
log
] [
blame
]
/* Used by proc_ptr_8.f90.
PR fortran/32580. */
int
(*
funpointer
)(
int
);
int
f
(
int
t
)
{
return
t
*
3
;
}
void
init
()
{
funpointer
=
f
;
}