[patch, fortran] Fix PR 51958, wrong-code regression with function elimination

[Thomas Koenig]

Hi Steve,

> On Wed, Feb 01, 2012 at 12:47:28AM +0100, Thomas Koenig wrote:
>> Hi Steve,
>>
>>> +      else_stmt->expr1 = NULL;
>>> +      else_stmt->next = c_if1;
>>> +      else_stmt->block = NULL;
>>> +      else_stmt->next = c_if1;
>>>
>>> Is one of the else_stmt->next = c_if1; redundant?
>>>
>>
>> Definitely.  I'll take it out when I commit the patch.
>>
>
> Patch looks fine, then.  OK to commit.

Committed as rev. 183812, with one of the double lines taken out.

Thanks for the review!

	Thomas