gcc/testsuite/gfortran.dg/assumed_rank_1_c.c

   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 }