Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
proc_ptr_7.c
blob: 7e9542fd86e9df39fadf38bbd17598cfc6c55604 [
file
] [
log
] [
blame
]
/* Procedure pointer test. Used by proc_ptr_7.f90.
PR fortran/32580. */
int
f
(
void
)
{
return
42
;
}
void
assignf_
(
int
(**
ptr
)(
void
))
{
*
ptr
=
f
;
}