URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [20000511-1.f] - Rev 414
Go to most recent revision | Compare with Previous | Blame | View Log
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
Go to most recent revision | Compare with Previous | Blame | View Log