1 #include <stdlib.h>
2 /* declared in the fortran module */
3 extern size_t myVar, myVar2;
4 void types_test(void);
5 
6 
7 extern void abort(void);
8 
main(int argc,char ** argv)9 int main(int argc, char **argv)
10 {
11    size_t *myptr, *myptr2;
12    asm("":"=r"(myptr):"0"(&myVar));
13    asm("":"=r"(myptr2):"0"(&myVar2));
14    *myptr = 1;
15    *myptr2 = 2;
16    types_test();
17    if (*myptr != 2)
18 	abort ();
19    if (*myptr2 != 2)
20 	abort ();
21    *myptr2 = 3;
22    types_test();
23    if (*myptr != 3)
24 	abort ();
25    if (*myptr2 != 3)
26 	abort ();
27    return 0;
28 }
29 
30