g77 bug with slatec routine

[Patrick Guio <patrick dot guio at fys dot uio dot no>]

Dear all,
Here is a bug I have come to when compiling slatec library on a linux box.
The bug is triggered by the -ffloat-store flag. You can get the source
code scnrm2.f through a netlib repository.
Sincerely, Patrick

Here is the command and output of the compiler:

% g77 -v -save-temps -O2 -funroll-loops -fstrict-aliasing
-finline-functions -ffloat-store -c scnrm2.f
Reading specs from
/home/patricg/GNU/gcc/lib/gcc-lib/i686-pc-linux-gnu/3.3/specs
Configured with: ../gcc/configure --prefix=/home/patricg/GNU/gcc
--enable-shared --enable-threads --enable-haifa --enable-cpplib
--enable-languages=c++,f77
Thread model: posix
gcc version 3.3 20020823 (experimental)
 /home/patricg/GNU/gcc/lib/gcc-lib/i686-pc-linux-gnu/3.3/f771 scnrm2.f
-quiet -dumpbase scnrm2.f -auxbase scnrm2 -O2 -version -funroll-loops
-fstrict-aliasing -finline-functions -ffloat-store -o scnrm2.s
GNU F77 version 3.3 20020823 (experimental) (i686-pc-linux-gnu)
        compiled by GNU C version 3.3 20020823 (experimental).
scnrm2.f: In function `scnrm2':
scnrm2.f:170: internal compiler error: Internal compiler error in
compensate_edge, at reg-stack.c:2585
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://www.gnu.org/software/gcc/bugs.html> for instructions.

And the scnrm2.s file

  .file "scnrm2.f"
  .data
  .align 4
  .type cutlo.0, @object
  .size cutlo.0, 4
cutlo.0:
  .long 637534412
  .align 4
  .type cuthi.1, @object
  .size cuthi.1, 4
cuthi.1:
  .long 1597306723
  .bss
  .align 4
  .type zero.2, @object
  .size zero.2, 4
zero.2:
  .zero 4
  .data
  .align 4
  .type one.3, @object
  .size one.3, 4
one.3:
  .long 1065353216