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