[PATCH] fortran/28866 -- Fix not so simple simple IF

[Paul Thomas]

Steve Kargl wrote:

> The attached patch has been regression tested on i386-*-freebsd
> with no new regression. This patch represents a fix to a previous
> patch that I committed. I'm surprised it has not been flagged
> by someone else. I apologies for breaking the compiler. :(
>
OK - except for two things:

(i) Why don't you remove my patch for PR28762 but keep the testcase?  
This fix of yours makes mine redundant.  I have enclosed the modified 
patch, which regtests on FC5/Athlon

(ii) There is a knock-on that you should try to fix:

    integer, parameter :: i = 1
    integer j
    i = j
    if (j.eq.1) i = j
end

produces:

    i = j
    1
Error: Cannot assign to a named constant at (1)
 In file steves_horror.f90:4

    if (j.eq.1) i = j
               1
Error: Unclassifiable statement in IF-clause at (1)

Regards

Paul
-------------- next part --------------
A non-text attachment was scrubbed...
Name: pr28866a.diff
Type: text/x-patch
Size: 3122 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20060828/213760ed/attachment.bin>