gcc/testsuite/gfortran.dg/c_ptr_tests_7_driver.c


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

/* This is the driver for c_ptr_test_7.  */
extern void abort(void);

void *func0();

int main(int argc, char **argv)
{
  /* The Fortran module c_ptr_tests_7 contains function func0, which has
     return type of c_ptr, and should set the return value to c_null_ptr.  */
  if (func0() != 0)
    abort();

  return 0;
}