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  }