| /* 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() */ |