summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/c_ptr_tests_driver.c
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() */