(g77) internal compiler error: Segmentation fault

["Roland Winkler" <Roland dot Winkler at physik dot uni-erlangen dot de>]

The (shortened) fortran-77 subroutine attached below causes a
segmentation fault of g77 when I execute

$ g77 -O3 -c -funroll-loops  foo.f

No problems occur without optimization.

$ g77 --version
GNU Fortran (GCC) 3.3.5 20050117 (prerelease) (SUSE Linux)
Copyright (C) 2002 Free Software Foundation, Inc.

(I have SUSE Linux 10.2)

Let me know if you need to know anything else.

Roland



      SUBROUTINE FOO
C
      IMPLICIT NONE
      INTEGER           ngroup, nirred
      PARAMETER        (ngroup = 1, nirred = 24)
      INTEGER           mgroup, melmnt, mirred
      INTEGER           nfull, okanal
      PARAMETER        (nfull  = 3)
      INTEGER           lirred,i, j, k, js, Jsmax (2), lwert, jwert,
     $                  Isubcp (nirred, 2, 0:nfull, 0:1)
      DOUBLE PRECISION  eps, fak1
      DOUBLE COMPLEX    Subcmp (nirred, 2)
      CHARACTER         Csign (2) *1, C_sa (2) *1
      DATA              Csign  / '+', '-' /, C_sa / 's', 'a' /
C     ******************************************************************
      DO mgroup = 1, ngroup
       DO js = 0, 1
        DO lwert = 0, nfull
         jwert = 2 * lwert + js
         DO k = 1, 2
          j = 0
          DO lirred = 1, mirred
           IF (     ABS (DIMAG (Subcmp (lirred,k))) .GT. eps
     $         .OR. ABS (DBLE (i) - fak1) .GT. eps)
     $          WRITE (0, *) 'UG2:', jwert, k, lirred,
     $                            Subcmp (lirred,k)
          END DO
         END DO
        END DO
       END DO
  999  CONTINUE
      END DO
C     ==================================================================
      WRITE (okanal, 1220) (((Csign (j), C_sa (k), jwert, k = 1, 2),
     $                      j = 1, 2), jwert = 0, nfull/2)
 1220 FORMAT (/ 11X, 100 (4 (2A, I1, 1X), 1X))
C
      STOP
      END