gcc/testsuite/gfortran.dg/c_f_pointer_logical_driver.c

   1 /* { dg-options "-std=c99 -w" } */
   2
   3 #include <stdbool.h>
   4
   5 #define NUM_ELEMS 10
   6
   7 void test_scalar(bool *my_c_bool_ptr);
   8 void test_array(bool *my_bool_array, int num_elems);
   9
  10 int main(int argc, char **argv)
  11 {
  12   bool my_bool = true;
  13   bool my_bool_array[NUM_ELEMS];
  14   int i;
  15
  16   test_scalar(&my_bool);
  17
  18   for(i = 0; i < NUM_ELEMS; i+=2)
  19     my_bool_array[i] = true;
  20   for(i = 1; i < NUM_ELEMS; i+=2)
  21     my_bool_array[i] = false;
  22
  23   test_array(my_bool_array, NUM_ELEMS);
  24
  25   return 0;
  26 }