1  /* in fortran module */
       2  void test0(void);
       3  
       4  extern void abort(void);
       5  
       6  int main(int argc, char **argv)
       7  {
       8     test0();
       9     return 0;
      10  }/* end main() */
      11  
      12  void test_address(void *c_ptr, int expected_value)
      13  {
      14     if((*(int *)(c_ptr)) != expected_value)
      15        abort();
      16     return;
      17  }/* end test_address() */