1/* Compiled and linked by bind_c.f90.  */
2
3#include <stdlib.h>
4#include <stdbool.h>
5
6void subtest (bool, int *);
7
8void
9c_proc (bool present, int *val)
10{
11  int val2;
12  if (!present && val)
13    abort ();
14  else if (present)
15    {
16      if (!val) abort ();
17      if (*val != 4) abort ();
18      *val = 7;
19    }
20
21  val2 = 43;
22  subtest (1, &val2);
23  subtest (0, NULL);
24  if (val2 != -45) abort ();
25}
26