/* Compiled and linked by bind_c.f90. */ | |
#include <stdlib.h> | |
#include <stdbool.h> | |
void subtest (bool, int *); | |
void | |
c_proc (bool present, int *val) | |
{ | |
int val2; | |
if (!present && val) | |
abort (); | |
else if (present) | |
{ | |
if (!val) abort (); | |
if (*val != 4) abort (); | |
*val = 7; | |
} | |
val2 = 43; | |
subtest (1, &val2); | |
subtest (0, NULL); | |
if (val2 != -45) abort (); | |
} |