Fortran and sqrt -> ice on mainline

[Peter Schmid]

Number crunching on the mainline is next to impossible, since I cannot
call the important function sqrt. Compiling a source code containing
the sqrt function results in an internal compiler error.

For example, consider the legal code tbug.f:  

      function f(c)
      implicit none
      real*8 c, f
      f = sqrt(c)
      return
      end

g77 -v -c tbug.f 
g77 version 3.1 20010413 (experimental) (Fortran Frontend version 0.5.27 20010413 (experimental))
Reading specs from /usr/local/lib/gcc-lib/i686-pc-linux-gnu/3.1/specs
Configured with: ../gcc/configure --enable-shared --disable-nls --enable-threads=posix --enable-long-long --enable-languages=c,c++,f77,objc
gcc version 3.1 20010413 (experimental)
 /usr/local/lib/gcc-lib/i686-pc-linux-gnu/3.1/f771 tbug.f -quiet -dumpbase tbug.f -version -o /tmp/ccXIMfUT.s
GNU F77 version 3.1 20010413 (experimental) (i686-pc-linux-gnu)
	compiled by GNU C version 3.1 20010413 (experimental).
tbug.f: In function `f':
tbug.f:4: Internal compiler error in emit_move_insn, at expr.c:2729
Please submit a full bug report, with preprocessed source if appropriate.
See <URL: http://www.gnu.org/software/gcc/bugs.html > for instructions.
 
Since this problem persists for about two months (confer PR 2018), and I
got no response, could someone please fix this severe problem.

Thank you,
Peter Schmid