blob: cd81c7bccec7b09226b9975e72a74fdb187ae01b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
/* 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() */
|
