PR target/83368

[official-gcc.git] / gcc / testsuite / gfortran.dg / proc_ptr_7.c

/* Procedure pointer test. Used by proc_ptr_7.f90.
   PR fortran/32580.  */

int f(void) {
  return 42;
}

void assignf_(int(**ptr)(void)) {
  *ptr = f;
}