1  /* Compiled and linked by bind_c.f90.  */
       2  
       3  #include <stdlib.h>
       4  #include <stdbool.h>
       5  
       6  void subtest (bool, int *);
       7  
       8  void
       9  c_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  }