9 int test_scalar_address(int *ptr)
11 /* The value in Fortran should be initialized to 100. */
18 int test_array_address(int *int_array, int num_elements)
22 for(i = 0; i < num_elements; i++)
23 /* Fortran will init all of the elements to 100; verify that here. */
24 if(int_array[i] != 100)
27 /* all elements were equal to 100 */
31 int test_type_address(ctype_t *type_ptr)
33 /* i was set to 100 by Fortran */
34 if(type_ptr->i != 100)
37 /* x was set to 1.0d0 by Fortran */
38 if(fabs(type_ptr->x - 1.0) > 0.00000000)