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