1/* Called by assumed_rank_1.f90.  */
2
3#include <stdlib.h>  /* For abort().  */
4
5struct array {
6  int *data;
7};
8
9void check_value_ (struct array *b, int n, int val[])
10{
11  int i;
12
13  for (i = 0; i < n; i++)
14    if (b->data[i] != val[i])
15      abort ();
16}
17