gcc/testsuite/g77.f-torture/compile/20000511-1.f

   1       subroutine saxpy(n,sa,sx,incx,sy,incy)
   2 C
   3 C     constant times a vector plus a vector.
   4 C     uses unrolled loop for increments equal to one.
   5 C     jack dongarra, linpack, 3/11/78.
   6 C     modified 12/3/93, array(1) declarations changed to array(*)
   7 C
   8       real sx(*),sy(*),sa
   9       integer i,incx,incy,ix,iy,m,mp1,n
  10 C
  11 C  -ffast-math ICE provoked by this conditional
  12       if(sa /= 0.0)then
  13 C
  14 C        code for both increments equal to 1
  15 C
  16               do i= 1,n
  17                 sy(i)= sy(i)+sa*sx(i)
  18                 enddo
  19         endif
  20       return
  21       end