https://gcc.gnu.org/bugzilla/show_bug.cgi?id=61775
Thomas Koenig <tkoenig at gcc dot gnu.org> changed: What |Removed |Added ---------------------------------------------------------------------------- CC| |tkoenig at gcc dot gnu.org --- Comment #8 from Thomas Koenig <tkoenig at gcc dot gnu.org> --- (In reply to kargl from comment #7) > I would like to close this as fixed after committing the following > testcase > > program pi > real , allocatable :: x(:) > integer :: n > n = 10000 > x = [ (i,i=1,n) ] > if (x(n) /= 10000) stop 1 > end Sure, go ahead.