1/* This is the driver for c_ptr_test_7.  */
2extern void abort(void);
3
4void *func0();
5
6int 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}
15