35 lines
684 B
C
35 lines
684 B
C
/* 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() */
|
|
|