rt_gccstream/gcc/testsuite/gfortran.dg/c_f_pointer_logical_driver.c

27 lines
488 B
C

/* { dg-options "-std=c99 -w" } */
#include <stdbool.h>
#define NUM_ELEMS 10
void test_scalar(_Bool *my_c_bool_ptr);
void test_array(_Bool *my_bool_array, int num_elems);
int main(int argc, char **argv)
{
_Bool my_bool = true;
_Bool my_bool_array[NUM_ELEMS];
int i;
test_scalar(&my_bool);
for(i = 0; i < NUM_ELEMS; i+=2)
my_bool_array[i] = true;
for(i = 1; i < NUM_ELEMS; i+=2)
my_bool_array[i] = false;
test_array(my_bool_array, NUM_ELEMS);
return 0;
}