/* in fortran module */
void test0(void);

extern void abort(void);

int main(int argc, char **argv)
{
   test0();
   return 0;
}/* end main() */

void test_address(void *c_ptr, int expected_value)
{
   if((*(int *)(c_ptr)) != expected_value)
      abort();
   return;
}/* end test_address() */