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