gcc-4.9/gcc/testsuite/gfortran.dg/proc_ptr_7.c


1
2
3
4
5
6
7
8
9
10

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

int f(void) {
  return 42;
}

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