summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/initialization_26.f90
blob: 4532216e12e35fce2c9ed05b83d58ecc16415cf3 (plain)
1
2
3
4
5
6
7
8
9
! { 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