gcc/testsuite/gfortran.dg/initialization_26.f90 - gcc - Git at Google

 ! { dg-do compile }
 !
 ! Verify that the outer do-loop counter 'j' is accepted as
 ! as end-expression of the inner loop.
 !

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

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