summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/c_loc_driver.c
blob: 9e010439600280c2a874e7f76b180b762f8ea0f3 (plain)
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() */