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