possible bug in egcs-1.1b g77; RH5.1 LINUX and cygwin32 platforms

[Emil Hallin <emil at skatter dot usask dot ca>]

Hello,
Sorry if this isn't the right format for a possible bug report, but I
hope it is useful!

When the following code is compiled by egcs 1.1 (and at least back to
1.02)
an internal compiler error is generated on the linux rh 5.1 and cygwin32

platforms:

     program egcs_bug
     if (rand(0) .le. 0.5) kpio = 26
     end

The error message is:
../../egcs-1.1b/gcc/explow.c:650: Internal compiler error in function
copy_to_mode_reg.

(this is the offending code fragment from a larger program)

With the following simple change, no error is generated at compile time:

     program egcs_bug
     utemp = rand(0)
     if (utemp .le. 0.5) kpio = 26
     end

Both programs are compiled with g77 -c

Any suggestions as to what is going on?
        emil