view gcc/testsuite/gfortran.dg/assumed_rank_1_c.c @ 145:1830386684a0

gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents 04ced10e8804
children
line wrap: on
line source

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