Subversion Repositories openrisc

/* 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;
}