gcc/testsuite/gfortran.dg/c_ptr_tests_driver.c

/* this is the driver for c_ptr_test.f03 */

typedef struct services
{
   int compId;
   void *globalServices;
}services_t;

typedef struct comp
{
   void *myServices;
   void (*setServices)(struct comp *self, services_t *myServices);
   void *myPort;
}comp_t;

/* prototypes for f90 functions */
void sub0(comp_t *self, services_t *myServices);

int main(int argc, char **argv)
{
   services_t servicesObj;
   comp_t myComp;

   servicesObj.compId = 17;
   servicesObj.globalServices = 0; /* NULL; */
   myComp.myServices = &servicesObj;
   myComp.setServices = 0; /* NULL; */
   myComp.myPort = 0; /* NULL; */
   
   sub0(&myComp, &servicesObj);
   
   return 0;
}/* end main() */