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