Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.fortran-torture/compile/pr66251-2.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
subroutine mv(m,nc,irp,ja,val,x,ldx,y,ldy,acc) use iso_fortran_env implicit none integer, parameter :: ipk_ = int32 integer, parameter :: spk_ = real32 complex(spk_), parameter :: czero=(0.0_spk_,0.0_spk_) integer(ipk_), intent(in) :: m,ldx,ldy,nc,irp(*),ja(*) complex(spk_), intent(in) :: x(ldx,*),val(*) complex(spk_), intent(inout) :: y(ldy,*) complex(spk_), intent(inout) :: acc(*) integer(ipk_) :: i,j,k, ir, jc do i=1,m acc(1:nc) = czero do j=irp(i), irp(i+1)-1 acc(1:nc) = acc(1:nc) + val(j) * x(ja(j),1:nc) enddo y(i,1:nc) = -acc(1:nc) end do end subroutine mv