ICE in egcs-1.1b

[Martin Kahlert]

Hi,
this code was posted to gnu.gcc.bug and I tested it with egcs-1.1b:

cat h.f:
      SUBROUTINE BUG_REPORT
      IMPLICIT NONE
      INTEGER*4 RND

      RND = NINT(RAND())
      RETURN
      END
g77 -c h.f:
/usr/src/egcs-1.1b/gcc/explow.c:650: Internal compiler error 
in function copy_to_mode_reg

gcc -v:
Reading specs from 
/sw/egcs/lib/gcc-lib/i686-pc-linux-gnulibc1/egcs-2.91.57/specs
gcc version egcs-2.91.57 19980901 (egcs-1.1 release)

Bye,
Martin.