gcc/testsuite/gfortran.dg/c_loc_driver.c

   1 /* in fortran module */
   2 void test0(void);
   3
   4 extern void abort(void);
   5
   6 int main(int argc, char **argv)
   7 {
   8    test0();
   9    return 0;
  10 }/* end main() */
  11
  12 void test_address(void *c_ptr, int expected_value)
  13 {
  14    if((*(int *)(c_ptr)) != expected_value)
  15       abort();
  16    return;
  17 }/* end test_address() */