1 /* this is the driver for c_ptr_test.f03 */
3 typedef struct services
12 void (*setServices)(struct comp *self, services_t *myServices);
16 /* prototypes for f90 functions */
17 void sub0(comp_t *self, services_t *myServices);
19 int main(int argc, char **argv)
21 services_t servicesObj;
24 servicesObj.compId = 17;
25 servicesObj.globalServices = 0; /* NULL; */
26 myComp.myServices = &servicesObj;
27 myComp.setServices = 0; /* NULL; */
28 myComp.myPort = 0; /* NULL; */
30 sub0(&myComp, &servicesObj);