gcc/testsuite/gfortran.dg/c_f_pointer_logical_driver.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

/* { 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;
}