Sign in
gnu
/
gcc
/
4e4e45a4fd341174d8231ee6a99e6fe308904f8f
/
.
/
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
;
}