gcc/testsuite/gfortran.dg/g77/20000511-1.f

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