PR tree-optimization/86415 - strlen() not folded for substrings within constant arrays
[official-gcc.git] / gcc / testsuite / gfortran.dg / c_loc_driver.c
blob9e010439600280c2a874e7f76b180b762f8ea0f3
1 /* in fortran module */
2 void test0(void);
4 extern void abort(void);
6 int main(int argc, char **argv)
8 test0();
9 return 0;
10 }/* end main() */
12 void test_address(void *c_ptr, int expected_value)
14 if((*(int *)(c_ptr)) != expected_value)
15 abort();
16 return;
17 }/* end test_address() */