Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/associated_5.f90 @ 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
! { dg-do run } ! PR 35719 - associated used to fail with zero-sized automatic arrays ! Test case contributed by Dick Hendrickson program try_mf1053 call mf1053 ( 1, 2, 3, 4) end SUBROUTINE MF1053 (nf1, nf2, nf3, nf4) INTEGER, pointer :: ptr(:,:) INTEGER, target :: ILA1(NF2,NF4:NF3) ptr => ILA1 if (ASSOCIATED (ptr, ILA1(NF1:NF2,NF4:NF3) ) ) call abort if ( .not. ASSOCIATED(ptr) ) call abort END SUBROUTINE