[Bug fortran/13037] New: regression: g77 generates incorrect code

["smelkov at mph1 dot phys dot spbu dot ru" <gcc-bugzilla at gcc dot gnu dot org>]

I've discovered a bug (incorrect code generation) in g77 from gcc-3.3.2 
bug symptom: zeta(kkzc) seems to reference to zeta(kkzc-1) instead 
with gcc-3.2.2 it is OK, so it is a regression. 
 
      subroutine bug1(expnt) 
      implicit none 
 
      double precision zeta 
      common /bug1_area/zeta(3) 
 
      double precision expnt(3) 
 
 
      integer k, kkzc 
 
      kkzc=0 
      do k=1,3 
         kkzc = kkzc + 1 
         zeta(kkzc) = expnt(k) 
      enddo 
 
c     the following line activates the bug 
      call bug1_activator(kkzc) 
      end 
 
full bug1.f source is in attachment

-- 
           Summary: regression: g77 generates incorrect code
           Product: gcc
           Version: 3.3.2
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: smelkov at mph1 dot phys dot spbu dot ru
                CC: gcc-bugs at gcc dot gnu dot org
 GCC build triplet: i686-pc-linux-gnu
  GCC host triplet: i686-pc-linux-gnu
GCC target triplet: i686-pc-linux-gnu


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=13037