fortran/2018: Sqrt causes ice in emit_move_insn, at expr.c:2718

[schmid@mowgli.iap.physik.tu-darmstadt.de]

>Number:         2018
>Category:       fortran
>Synopsis:       Sqrt causes ice in emit_move_insn, at expr.c:2718
>Confidential:   no
>Severity:       serious
>Priority:       medium
>Responsible:    unassigned
>State:          open
>Class:          ice-on-legal-code
>Submitter-Id:   net
>Arrival-Date:   Sun Feb 18 15:46:00 PST 2001
>Closed-Date:
>Last-Modified:
>Originator:     Peter Schmid
>Release:        2.97 20010216 (experimental)
>Organization:
TU Darmstadt
>Environment:
System: Linux kiste 2.4.1 #33 Thu Feb 15 12:51:39 CET 2001 i686 unknown
Architecture: i686
SuSE-7.1
Glibc-2.2
GNU assembler version 2.10.91 (i686-pc-linux-gnu) using BFD version 2.10.1.0.4

host: i686-pc-linux-gnu
build: i686-pc-linux-gnu
target: i686-pc-linux-gnu
configured with: ../gcc/configure --enable-shared --disable-nls --enable-threads=posix
>Description:
The following simple code tbug.f triggers an internal compiler error. The
call of the function sqrt causes the error.
>How-To-Repeat:
source tbug.f

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

Compiling tbug.f
g77 -v -c tbug.f -W -Wall -Q
g77 version 2.97 20010216 (experimental) (Fortran Frontend version 0.5.26 20010216 (experimental))
Reading specs from /usr/local/lib/gcc-lib/i686-pc-linux-gnu/2.97/specs
Configured with: ../gcc/configure --enable-shared --disable-nls --enable-threads=posix
gcc version 2.97 20010216 (experimental)
 /usr/local/lib/gcc-lib/i686-pc-linux-gnu/2.97/f771 tbug.f -dumpbase tbug.f -W -Wall -version -o /tmp/cciqaby5.s
GNU F77 version 2.97 20010216 (experimental) (i686-pc-linux-gnu)
	compiled by GNU C version 2.97 20010216 (experimental).
options passed:  -W -Wall
options enabled:  -fmove-all-movables -freduce-all-givs -fpeephole
 -ffunction-cse -fkeep-static-consts -fpcc-struct-return -fsched-interblock
 -fsched-spec -fbranch-count-reg -fnew-exceptions -fcommon -fgnu-linker
 -fargument-noalias-global -fident -m80387 -mhard-float -mno-soft-float
 -mieee-fp -mfp-ret-in-387
 f_tbug.f: In function `f':

tbug.f:4: Internal compiler error in emit_move_insn, at expr.c:2718
Please submit a full bug report, with preprocessed source if appropriate.
See <URL: http://www.gnu.org/software/gcc/bugs.html > for instructions.

>Fix:
	
>Release-Note:
>Audit-Trail:
>Unformatted: