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