Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/pr17472.f @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
c { dg-do run } c pr 17472 c test namelist handles arrays c Based on example provided by thomas.koenig@online.de integer a(10), ctr data a / 1,2,3,4,5,6,7,8,9,10 / namelist /ints/ a do ctr = 1,10 if (a(ctr).ne.ctr) call abort () end do end