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  
       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