1! { dg-do compile }
2!
3! Verify that the outer do-loop counter 'j' is accepted as
4! as end-expression of the inner loop.
5!
6
7  integer i, j
8  integer, parameter :: n = size( [( [(i*j,i=1,j)], j=1,2)] )
9end
10