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  }