Internal compiler error in egcs g77 ss 19990623

Internal compiler error in egcs g77 ss 19990623

[Norbert Conrad]

Hi, 

I found an internal compiler error in egcs g77 . It shows only with 
-fno-f2c. gcc/g77 was configured with --prefix=/opt and bootstrapped.

Regards,
Norbert.


Script started on Sun Jun 27 10:09:39 1999
amanda:/tmp # g77 -v -fno-f2c -c gcexp.f
g77 version gcc-2.95 19990623 (prerelease) (from FSF-g77 version 0.5.25 19990526 (prerelease))
Reading specs from /opt/lib/gcc-lib/i586-pc-linux-gnu/gcc-2.95/specs
gcc version gcc-2.95 19990623 (prerelease)
 /opt/lib/gcc-lib/i586-pc-linux-gnu/gcc-2.95/f771 gcexp.f -quiet -dumpbase gcexp.f -version -fversion -fno-f2c -o /tmp/ccuWT7QK.s
GNU F77 version gcc-2.95 19990623 (prerelease) (i586-pc-linux-gnu) compiled by GNU C version gcc-2.95 19990623 (prerelease).
GNU Fortran Front End version 0.5.25 19990526 (prerelease)
com.c:1937: failed assertion `tempvar'
g77: Internal compiler error: program f771 got fatal signal 6
amanda:/tmp # cat gcexp.f
      function gcexp(arg)
      complex*16 gcexp, arg
      gcexp = exp(arg)
      return
      end
amanda:/tmp # exit
exit

Script done on Sun Jun 27 10:10:03 1999

-- 
Norbert Conrad                             phone: ++49 641 9913021
Hochschulrechenzentrum                     email: conrad@hrz.uni-giessen.de
Heinrich-Buff-Ring 44
35392 Giessen
Germany

Re: Internal compiler error in egcs g77 ss 19990623

[Toon Moene]

Norbert Conrad wrote:

> I found an internal compiler error in egcs g77 . It shows only with
> -fno-f2c. gcc/g77 was configured with --prefix=/opt and bootstrapped.

> com.c:1937: failed assertion `tempvar'
> g77: Internal compiler error: program f771 got fatal signal 6

There's a fair chance that the front-end is mixing up -fno-f2c and
-fno-f2c-library somewhere.

The following fails:

      complex*16 gcexp, arg
      gcexp = exp(arg)
      end

while this one succeeds:

      external exp
      complex*16 gcexp, arg
      gcexp = exp(arg)
      end

Unfortunately, I couldn't find the culprit.

-- 
Toon Moene (toon@moene.indiv.nluug.nl)
Saturnushof 14, 3738 XG  Maartensdijk, The Netherlands
Phone: +31 346 214290; Fax: +31 346 214286
GNU Fortran: http://world.std.com/~burley/g77.html

Re: Internal compiler error in egcs g77 ss 19990623

[craig]

>There's a fair chance that the front-end is mixing up -fno-f2c and
>-fno-f2c-library somewhere.

Indeed, good guess!  I'm doing a (fresh) build with this patch in place,
so I haven't tried it yet, but expect it should work.

Also, it fixes a regression, so I'll ask Jeff to approve including it in 2.95,
once I'm sure it works.

        tq vm, (burley)

P.S. The problem should *really* be addressed by fixing the definition
of ffesymbol_is_f2c in symbol.h, but that would mean, for elegance,
cleaning up a few other references to that macro.  The rewrite will
be addressing stuff like that anyway.  In the meantime, this appears
to be the only place where this macro got used in a way that triggered
this sort of confusion.


Mon Jun 28 10:43:11 1999  Craig Burley  <craig@jcb-sc.com>

	* com.c (ffecom_prepare_expr_): A COMPLEX intrinsic needs
	a temp even if -fno-f2c.

	* version.c: Bump version.

*** g77-e/gcc/f/com.c.~1~	Wed Jun  9 13:06:43 1999
--- g77-e/gcc/f/com.c	Mon Jun 28 10:42:34 1999
*************** ffecom_prepare_expr_ (ffebld expr, ffebl
*** 13069,13073 ****
  	      s = ffebld_symter (ffebld_left (expr));
  	      if (ffesymbol_where (s) == FFEINFO_whereCONSTANT
! 		  || ! ffesymbol_is_f2c (s))
  		break;
  	    }
--- 13069,13076 ----
  	      s = ffebld_symter (ffebld_left (expr));
  	      if (ffesymbol_where (s) == FFEINFO_whereCONSTANT
! 		  || (ffesymbol_where (s) != FFEINFO_whereINTRINSIC
! 		      && ! ffesymbol_is_f2c (s))
! 		  || (ffesymbol_where (s) == FFEINFO_whereINTRINSIC
! 		      && ! ffesymbol_is_f2c_library (s)))
  		break;
  	    }
*** g77-e/gcc/f/version.c.~1~	Wed Jun  9 13:08:15 1999
--- g77-e/gcc/f/version.c	Mon Jun 28 10:43:08 1999
***************
*** 1 ****
! const char *ffe_version_string = "0.5.25 19990526 (prerelease)";
--- 1 ----
! const char *ffe_version_string = "0.5.25 19990628 (prerelease)";

Re: Internal compiler error in egcs g77 ss 19990623

[craig]

>Mon Jun 28 10:43:11 1999  Craig Burley  <craig@jcb-sc.com>
>
>	* com.c (ffecom_prepare_expr_): A COMPLEX intrinsic needs
>	a temp even if -fno-f2c.
>
>	* version.c: Bump version.
>
>*** g77-e/gcc/f/com.c.~1~	Wed Jun  9 13:06:43 1999
>--- g77-e/gcc/f/com.c	Mon Jun 28 10:42:34 1999
>*************** ffecom_prepare_expr_ (ffebld expr, ffebl
>*** 13069,13073 ****
>  	      s = ffebld_symter (ffebld_left (expr));
>  	      if (ffesymbol_where (s) == FFEINFO_whereCONSTANT
>! 		  || ! ffesymbol_is_f2c (s))
>  		break;
>  	    }
>--- 13069,13076 ----
>  	      s = ffebld_symter (ffebld_left (expr));
>  	      if (ffesymbol_where (s) == FFEINFO_whereCONSTANT
>! 		  || (ffesymbol_where (s) != FFEINFO_whereINTRINSIC
>! 		      && ! ffesymbol_is_f2c (s))
>! 		  || (ffesymbol_where (s) == FFEINFO_whereINTRINSIC
>! 		      && ! ffesymbol_is_f2c_library (s)))
>  		break;
>  	    }

The "ffesymbol_is_f2c_library (s)" above should read "ffe_is_f2c_library ()",
sorry.

With that change, the reported problem goes away.

        tq vm, (burley)