Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/pr33449.f90 @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! { dg-options "-O2 -ftree-vectorize" } ! ! Testcase for vectorization (see PR33449). ! subroutine dlarre (w, iblock, work) integer m, i, iblock(*) double precision w(*), work(*) m = 0 do jblk = 1, 10 do i = 1, 10 m = m + 1 w(m) = -work(i) iblock(m) = 0 end do end do end