23 lines
564 B
Fortran
23 lines
564 B
Fortran
c { dg-do compile }
|
|
subroutine saxpy(n,sa,sx,incx,sy,incy)
|
|
C
|
|
C constant times a vector plus a vector.
|
|
C uses unrolled loop for increments equal to one.
|
|
C jack dongarra, linpack, 3/11/78.
|
|
C modified 12/3/93, array(1) declarations changed to array(*)
|
|
C
|
|
real sx(*),sy(*),sa
|
|
integer i,incx,incy,ix,iy,m,mp1,n
|
|
C
|
|
C -ffast-math ICE provoked by this conditional
|
|
if(sa /= 0.0)then
|
|
C
|
|
C code for both increments equal to 1
|
|
C
|
|
do i= 1,n
|
|
sy(i)= sy(i)+sa*sx(i)
|
|
enddo
|
|
endif
|
|
return
|
|
end
|