Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
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
;
}