1/* in fortran module */ 2void test0(void); 3 4extern void abort(void); 5 6int main(int argc, char **argv) 7{ 8 test0(); 9 return 0; 10}/* end main() */ 11 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