g77: Internal compiler error: program f771 got fatal signal 6

[zbyszek <zbyszek at cyberramp dot net>]

This is my first error report, sorry for missing something.

From mandrake 7.0 distribution:


sh-2.03$ g77 -v
g77 version 2.95.2 19991024 (release) (from FSF-g77 version 0.5.25
19991024 (release))
Driving: g77 -v -c -xf77-version /dev/null -xnone
Reading specs from /usr/lib/gcc-lib/i586-mandrake-linux/2.95.2/specs
gcc version 2.95.2 19991024 (release)
 /usr/lib/gcc-lib/i586-mandrake-linux/2.95.2/cpp -lang-c -v -D__GNUC__=2
-D__GNUC_MINOR__=95 -D__ELF__ -D__unix__ -D__i386__ -D__linux__ -D__unix
-D__linux -Asystem(posix) -D_LANGUAGE_FORTRAN -traditional -Acpu(i386)
-Amachine(i386) -Di386 -D__i386 -D__i386__ -Di586 -Dpentium -D__i586
-D__i586__ -D__pentium -D__pentium__ /dev/null /dev/null
GNU CPP version 2.95.2 19991024 (release) (i386 Linux/ELF)
#include "..." search starts here:
#include <...> search starts here:
 /usr/local/include
 /usr/lib/gcc-lib/i586-mandrake-linux/2.95.2/include
 /usr/include
End of search list.
The following default directories have been omitted from the search
path:
 /usr/lib/gcc-lib/i586-mandrake-linux/2.95.2/../../../../include/g++-3

/usr/lib/gcc-lib/i586-mandrake-linux/2.95.2/../../../../i586-mandrake-linux/include
End of omitted list.
 /usr/lib/gcc-lib/i586-mandrake-linux/2.95.2/f771 -fnull-version -quiet
-dumpbase g77-version.f -version -fversion -o /tmp/cceqKALE.s /dev/null
GNU F77 version 2.95.2 19991024 (release) (i586-mandrake-linux) compiled
by GNU C version 2.95.2 19991024 (release).
GNU Fortran Front End version 0.5.25 19991024 (release)
 as -V -Qy -o /tmp/ccczYMOa.o /tmp/cceqKALE.s
GNU assembler version 2.9.5 (i686-pc-linux-gnu) using BFD version
2.9.5.0.16
 ld -m elf_i386 -dynamic-linker /lib/ld-linux.so.2 -o /tmp/ccC4g7BI
/tmp/ccczYMOa.o /usr/lib/crt1.o /usr/lib/crti.o
/usr/lib/gcc-lib/i586-mandrake-linux/2.95.2/crtbegin.o
-L/usr/lib/gcc-lib/i586-mandrake-linux/2.95.2 -lg2c -lm -lgcc -lc -lgcc
/usr/lib/gcc-lib/i586-mandrake-linux/2.95.2/crtend.o /usr/lib/crtn.o
 /tmp/ccC4g7BI
__G77_LIBF77_VERSION__: 0.5.25 19991024 (release)
@(#)LIBF77 VERSION 19990503
__G77_LIBI77_VERSION__: 0.5.25 19991024 (release)
@(#) LIBI77 VERSION pjw,dmg-mods 19990503
__G77_LIBU77_VERSION__: 0.5.25 19991024 (release)
@(#) LIBU77 VERSION
19980709                                                                                                               


Program is public domain (I have written it at home),
it can be used as addition to test suite
It seams than any long elseif chain triggers this error
previous version of g77 was ok


g77 testgcc1.f
../../../gcc/f/stw.c:308: failed assertion `b->uses_ > 0'
g77: Internal compiler error: program f771 got fatal signal
6                                                                              

with different code similar error appears:
g77 scan3.f
../../../gcc/f/stw.c:423: failed assertion `b->uses_ != 0'
g77: Internal compiler error: program f771 got fatal signal
6                                                                              

Source of the program:

      subroutine testelseif
c
      character*32 keyword
c
      if (keyword .eq. 'NULL') then
      else if (keyword .eq. ' ') then
      else if (keyword .eq. 'OTHER') then
      else if (keyword .eq. 'OTHER OTHER') then
      else if (keyword .eq. 'MIRAS') then
      else if (keyword .eq. 'MIR') then
      else if (keyword .eq. 'M.I.R.') then
      else if (keyword .eq. 'MULTIPLE') then
      else if (keyword .eq. 'MULTIPLE MOLECULAR') then
      else if (keyword .eq. 'ISOMORPHOUS') then
      else if (keyword .eq. 'SINGLE ISOMORPHOUS') then
      else if (keyword .eq. 'SIR') then
      else if (keyword .eq. 'SIR MOLECULAR') then
      else if (keyword .eq. 'SIR AND PHASEEXTENS') then
      else if (keyword .eq. 'SIRAS') then
      else if (keyword .eq. 'FE ONLY SIRAS +') then
      else if (keyword .eq. 'ISIRAS') then
      else if (keyword .eq. 'SIRAS MOLECULAR') then
      else if (keyword .eq. 'SIR WITH NCS') then
      else if (keyword .eq. 'SIROAS') then
      else if (keyword .eq. 'SIR +') then
      else if (keyword .eq. 'SIR DENSITY') then
      else if (keyword .eq. 'SIR AS') then
      else if (keyword .eq. 'SIR + NATIVE') then
      else if (keyword .eq. 'SIR + NCS') then
      else if (keyword .eq. 'SIR + NCS AVERAGING') then
      else if (keyword .eq. 'SIR AND MOL REP TO') then
      else if (keyword .eq. 'SINGLE') then
      else if (keyword .eq. 'MR + SINGLE CRYSTAL') then
      else if (keyword .eq. 'MR + SIR +') then
      else if (keyword .eq. 'MR + MIR') then
      else if (keyword .eq. 'MR SIR') then
      else if (keyword .eq. 'MR MIR') then
      else if (keyword .eq. 'MIR+MR+DENSITY') then
      else if (keyword .eq. 'MIR + MR') then
      else if (keyword .eq. 'NULL; MIR MR') then
      else if (keyword .eq. 'MIR AS') then
      else if (keyword .eq. 'MIR WITH') then
      else if (keyword .eq. 'MIRAS AND SOLVENT') then
      else if (keyword .eq. 'MIRAS WITH CROSS') then
      else if (keyword .eq. 'MIRAS + SOLVENT') then
      else if (keyword .eq. 'MIRAS DENSITY') then
      else if (keyword .eq. 'MIRAS AVERAGING ') then
      else if (keyword .eq. 'MIR DENSITY') then
      else if (keyword .eq. 'MIR AVERAGING') then
      else if (keyword .eq. 'MIR WITH ANOMALOUS') then
      else if (keyword .eq. 'MIR WITH AVERAGING') then
      else if (keyword .eq. 'MIR X RAY CRYSTAL') then
      else if (keyword .eq. 'MIR PHASE ANALYSIS') then
      else if (keyword .eq. 'MIR MR') then
      else if (keyword .eq. 'MIR 2 HEAVY ATOM') then
      else if (keyword .eq. 'MIR MOLECULAR') then
      else if (keyword .eq. 'MIR AND MOLECULAR') then
      else if (keyword .eq. 'MIR SAD') then
      else if (keyword .eq. 'MIR NCS') then
      else if (keyword .eq. 'MIR + MOLECULAR') then
      else if (keyword .eq. 'MIR AND NCS') then
      else if (keyword .eq. 'MIR AND MR') then
      else if (keyword .eq. 'MIR PLUS') then
      else if (keyword .eq. 'HEAVY ATOM') then
      else if (keyword .eq. 'HEAVY ATOMS:') then
      else if (keyword .eq. 'PHASE COMBINATION') then
      else if (keyword .eq. 'COMBINED MIR') then
      else if (keyword .eq. 'USING ISOMORPHOUS') then
      else if (keyword .eq. 'SAS') then
      else if (keyword .eq. 'SIR MAD') then
      else if (keyword .eq. 'MIR MAD') then
      else if (keyword .eq. 'MIR AND MAD') then
      else if (keyword .eq. 'MAD') then
      else if (keyword .eq. 'HG MAD') then
      else if (keyword .eq. 'MAD AND MIR') then
      else if (keyword .eq. 'MAD METHOD') then
      else if (keyword .eq. 'MAD SIR AS') then
      else if (keyword .eq. 'SEMAD') then
      else if (keyword .eq. 'MAD SIR') then
      else if (keyword .eq. 'MAD SIRAS') then
      else if (keyword .eq. 'MAD WITH SE MET') then
      else if (keyword .eq. 'MAD+MIRAS') then
      else if (keyword .eq. 'MIRAS MAD') then
      else if (keyword .eq. 'MAD MIR') then
      else if (keyword .eq. 'MAD SELENOMET') then
      else if (keyword .eq. 'MULTI MAD') then
      else if (keyword .eq. 'SEMET MAD') then
      else if (keyword .eq. 'SELENOMETHIONINE') then
      else if (keyword .eq. 'A MODIFIED MAD') then
      else if (keyword .eq. 'MAD+NATIVE DATA') then
      else if (keyword .eq. 'MULTIWAVELENGTH') then
      else if (keyword .eq. 'MAD PROGRAM') then
      else if (keyword .eq. 'MAD PHASING BY') then
      else if (keyword .eq. 'TREAT MAD AS MIR') then
      else if (keyword .eq. 'MAD PHASING') then
      else if (keyword .eq. 'MULTIPLE WAVELENGTH') then
      else if (keyword .eq. 'MAD. DATA WAS') then
      else if (keyword .eq. 'MAD AT BROMINE') then
      else if (keyword .eq. 'MULTI WAVELENGTH') then
      else if (keyword .eq. 'MULTIPLE ANOMALOUS') then
      else if (keyword .eq. 'MULTI WAVELENGTH') then
      else if (keyword .eq. 'SE MET MAD AND MR') then
      else if (keyword .eq. 'MAD PHASING USING') then
      else if (keyword .eq. 'MAD PHASING METHOD') then
      else if (keyword .eq. 'MOL. REPLACEMENT') then
      else if (keyword .eq. 'ANOMALOUS') then
      else if (keyword .eq. 'COMBINED MOLECULAR') then
      else if (keyword .eq. 'MOLECULAR REPL.') then
      else if (keyword .eq. 'MR') then
      else if (keyword .eq. 'MR CROSS CRYSTAL A') then
      else if (keyword .eq. 'MOLECULAR') then
      else if (keyword .eq. 'MOLECULAR REPLACEMENT') then
      else if (keyword .eq. 'THE INITIAL MODEL') then
      else if (keyword .eq. 'PATTERSON SEARCH') then
      else if (keyword .eq. 'ISOMORPHOUS AND') then
      else if (keyword .eq. 'REFINEMENT WITH') then
      else if (keyword .eq. 'MUTANT NATIVE') then
      else if (keyword .eq. 'ISOMORPHOUS TO PDB') then
      else if (keyword .eq. 'DIRECT PHASING FROM') then
      else if (keyword .eq. 'MIR + NCS') then
      else if (keyword .eq. 'THE ATOMIC') then
      else if (keyword .eq. 'THE COORDINATES OF') then
      else if (keyword .eq. 'ALREADY SOLVED') then
      else if (keyword .eq. 'THE HIGH RESOLUTION') then
      else if (keyword .eq. 'INITIAL PHASES') then
      else if (keyword .eq. 'MODEL REFINEMENT') then
      else if (keyword .eq. 'X PLOR') then
      else if (keyword .eq. 'DIFFERENCE ELECTRON') then
      else if (keyword .eq. 'REFINEMENT FROM MIR') then
      else if (keyword .eq. 'MAD PHASES FROM A') then
      else if (keyword .eq. 'REFINEMENT') then
      else if (keyword .eq. 'REFINEMENT OF') then
      else if (keyword .eq. 'REFINEMENT OF 2ALP') then
      else if (keyword .eq. 'ISOSTRUCTURAL TO') then
      else if (keyword .eq. 'ISOSTRUCTURAL WITH') then
      else if (keyword .eq. 'ISOMORPHOUS METHOD') then
      else if (keyword .eq. 'ISOMORPHOUS TO') then
      else if (keyword .eq. 'ISOMORPHOUS WITH') then
      else if (keyword .eq. 'RIGID BODY') then
      else if (keyword .eq. 'PROTEIN STRUCTURE') then
      else if (keyword .eq. 'DIFFERENCE') then
      else if (keyword .eq. 'DIFFERENCE FOURIER') then
      else if (keyword .eq. 'DIFFERENCE FOURIERS') then
      else if (keyword .eq. 'DIFFERENT FOURIER') then
      else if (keyword .eq. 'DIFFERENCE MAP') then
      else if (keyword .eq. 'DIFFERENCE MAPS') then
      else if (keyword .eq. 'FOURIER DIFFERENCE') then
      else if (keyword .eq. 'FOURIER SYNTHESIS') then
      else if (keyword .eq. 'PHASED WITH WT') then
      else if (keyword .eq. 'PHASES FOR NATIVE') then
      else if (keyword .eq. 'PHASED FROM') then
      else if (keyword .eq. 'PHASES FROM') then
      else if (keyword .eq. 'PHASES FROM NATIVE') then
      else if (keyword .eq. 'PHASES TAKEN FROM') then
      else if (keyword .eq. 'DIRECT PHASING') then
      else if (keyword .eq. 'MODEL KNOWN 8RXN') then
      else if (keyword .eq. 'MOLECULAR DYNAMICS') then
      else if (keyword .eq. 'LEAST SQUARES') then
      else if (keyword .eq. 'RESOLUTION') then
      else if (keyword .eq. 'STRUCTURE') then
      else if (keyword .eq. 'STRUCTURE KNOWN') then
      else if (keyword .eq. 'DIRECT') then
      else if (keyword .eq. 'DIRECT SOLUTION') then
      else if (keyword .eq. 'DIRECT REFINEMENT') then
      else if (keyword .eq. 'DIRECT ELECTRON') then
      else if (keyword .eq. 'MAD PHASING IN A') then
      else if (keyword .eq. 'THE STRUCTURE WAS') then
      else if (keyword .eq. 'TAKEN FROM PDB') then
      else if (keyword .eq. 'DIRECT BASED ON') then
      else if (keyword .eq. 'INITIAL MODEL WAS') then
      else if (keyword .eq. 'NATIVE MODEL PHASES') then
      else if (keyword .eq. 'SAME CRYSTAL') then
      else if (keyword .eq. 'X PLOR WITH') then
      else if (keyword .eq. 'NATIVE STRUCTURE') then
      else if (keyword .eq. 'KNOWN') then
      else if (keyword .eq. 'WILD TYPE MODEL') then
      else if (keyword .eq. 'PHASE WITH WILD') then
      else if (keyword .eq. 'PREVIOUS STRUCTURE') then
      else if (keyword .eq. 'DIRECT METHOD') then
      else if (keyword .eq. 'DIRECT METHODS') then
      else if (keyword .eq. 'AB INITIO') then
      else if (keyword .eq. 'DENSITY AVERAGING') then
      end if
      return
      end