Subversion Repositories openrisc

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