[G95-develop] Should g77 accept file extensions .f90 and .f95 ?

[Billinghurst, David (CRTS)]

> -----Original Message-----
> From:	Toon Moene [SMTP:toon@moene.indiv.nluug.nl]
> Sent:	Thursday, 7 September 2000 9:56
> To:	Geoff Keating
> Cc:	Zack Weinberg; gcc-bugs@gcc.gnu.org
> Subject:	Re: [G95-develop] Should g77 accept file extensions .f90 and
> .f95 ?
> 
> I'm still interested in solving the one -Os failure - it's cute.  It
> only fails on i[3456]86 and mips, AFAICS.
> 
> 
	[Billinghurst, David (RTD)]  

	I've been having a look at the -Os failure for short.f on mips.  I
have reduced it further.  The error occurs in this subroutine. How should I
procede from here.  Last time I just disassembled the rtl.  Is there an
easier way?

	      real function f()
	      implicit none
	      integer  i,j,k
	      real     h(2,2), y(0:2), z, t
	      common /parm/   h

	c  function subprograms
	      z(i,j) = 0.5*h(i,j)*(-2.)

	c  a four-way average of rhobar
	      do 260  k=0,0
	         y(0) = z(1,2)
	  260 continue

	      do 270  k=0,0
		t = z(2,2)
	  270 continue

	      f = t
	      return
	      end