summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/proc_ptr_7.c
blob: 7e9542fd86e9df39fadf38bbd17598cfc6c55604 (plain)
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;
}