gcc/testsuite/gfortran.dg/c_loc_driver.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

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