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