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