gcc/testsuite/gfortran.dg/c_ptr_tests_7_driver.c

   1 /* This is the driver for c_ptr_test_7.  */
   2 extern void abort(void);
   3
   4 void *func0();
   5
   6 int main(int argc, char **argv)
   7 {
   8   /* The Fortran module c_ptr_tests_7 contains function func0, which has
   9      return type of c_ptr, and should set the return value to c_null_ptr.  */
  10   if (func0() != 0)
  11     abort();
  12
  13   return 0;
  14 }