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