https://gcc.gnu.org/bugzilla/show_bug.cgi?id=122513
--- Comment #3 from kargls at comcast dot net --- (In reply to Alexander Heger from comment #2) > My apologies, I forgot to update my test code on the post > > program test > implicit none > integer :: i > do concurrent (i=1:2) default (none) local(i) > block > integer, dimension(2,3), parameter :: & > ii = reshape((/ 1,2,3,4,5,6 /), (/2, 3/)) > print*,ii(i,:) > end block > end do > end program test We would rather have bug reports with minor imperfections than no report at all! Your new test here defeats the quick and dirty patch in my comment #1. BLOCK is a namespace nested within the DO CONCURRENT construct, so the patch needs to look at symbols from the parent namespace as well. Need to think about how to skip an iterator for a parent namespace.
