Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/assumed_rank_8_c.c @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
/* 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 (); }