text: /* 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() */
  
  