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