15 lines
319 B
C
15 lines
319 B
C
/* 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;
|
|
}
|