[patch, fortran] Fix PR35779 + some cleanup

[Daniel Franke]

On Saturday 15 May 2010 22:34:03 Jerry DeLisle wrote:
> >     integer i, j
> >     integer, parameter :: n = 1
> >     integer, parameter :: iv1 = size( [( [(i*j,i=1,j)], j=1,n)] )
>
> Can the case be reduced in this manner and still exhibit the problem?

Yes. All that's needed is a loop-begin or loop-end expression in the inner 
loop that itself is a loop variable. Even shorter than the above:

   integer i, j
   integer, parameter :: n = size( [( [(i*j,i=1,j)], j=1,2)] )