gcc-4.9/gcc/testsuite/gfortran.dg/assumed_rank_1_c.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

/* Called by assumed_rank_1.f90.  */

#include <stdlib.h>  /* For abort().  */

struct array {
  int *data;
};

void check_value_ (struct array *b, int n, int val[])
{
  int i;

  for (i = 0; i < n; i++)
    if (b->data[i] != val[i])
      abort ();
}