summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/c_ptr_tests_7_driver.c
blob: 7d8b1e328c8fa4adfce567c1b6ad536997ed9b27 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
/* 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;
}