1! { dg-do run }
2! PR fortran/61775.f90
3program pi
4   real, allocatable :: x(:)
5   integer :: n
6   n  = 10000
7   x = [ (i,i=1,n) ]
8   if (x(n) /= 10000) stop 1
9end program pi
10