1  /* Called by assumed_rank_1.f90.  */
       2  
       3  #include <stdlib.h>  /* For abort().  */
       4  
       5  struct array {
       6    int *data;
       7  };
       8  
       9  void 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  }