(root)/
gcc-13.2.0/
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  }