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