[net.lang.f77] f77 -O bug

jeff@ssc-vax.UUCP (Jeffrey Jongeward) (03/28/84)

[]
Hello,

A day or two ago I asked if anyone knew why 'f77 -O' under 4.2BSD
might generate a movl instead of a mulf3.  Well, here is a small
program that does just that!  The move instruction is generated
before /lib/f2 is called and the labeled common statement
apparently has something to do with it as the problem
disappears if the common statement is removed.

Anyone seen this phenomenia before?  And better yet, does
anyone have a fix?

		Thanks,
		uw-beaver!ssc-vax!jeff
------------------------------------------------------
      common /var/ A, B, C, D, E
      E=0.62
      D=4.0
      B=12.0
      A=98.0
      C=136.0
      F = E + D * B
      G = C * A			<--- look at the asm for this guy!
      write(*,*) C,'X',A,'=',G
      end