Sign in
gnu
/
gcc
/
730f52e05a1fb5c8cd92e352e9b191a6332be5c2
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
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
;
}