1  /* Used by proc_ptr_8.f90.
       2     PR fortran/32580.  */
       3  
       4  int (*funpointer)(int);
       5  
       6  int f(int t)
       7  {
       8    return t*3;
       9  }
      10  
      11  void init()
      12  {
      13   funpointer=f;
      14  }