[Patch, Fortran, RFC] Improve common function elimination

[Thomas Koenig]

Hi Steve,

>> >  __var1=cos(1.0)*NaN;
>> >  a = __var1 + __var1
>> >
> Is this a typo?  Should this be __var1 = cos(1.0*NaN)?

Yes, this is what I meant.

	Thomas