gcc/testsuite/gfortran.dg/assumed_rank_8_c.c

   1 /* Called by assumed_rank_8.f90 and assumed_rank_9.f90.  */
   2
   3 #include <stdlib.h>  /* For abort().  */
   4
   5 struct a {
   6   int *dat;
   7 };
   8
   9 struct b {
  10   struct a _data;
  11 };
  12
  13
  14 void check_ (struct a *x)
  15 {
  16   if (*x->dat != 489)
  17     abort ();
  18 }
  19
  20
  21 void check2_ (struct b *x)
  22 {
  23   if (*x->_data.dat != 489)
  24     abort ();
  25 }