https://gcc.gnu.org/bugzilla/show_bug.cgi?id=122513
--- Comment #10 from kargls at comcast dot net ---
(In reply to Jerry DeLisle from comment #8)
> (In reply to Alexander Heger from comment #7)
> > 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
>
> With Steves patch, this gives:
>
> $ gfc pr122513.f90
> pr122513.f90:4:46:
>
> 4 | do concurrent (i=1:2) default (none) local(i)
> | 1
> Error: Index variable ‘i’ at (1) cannot be specified in a locality-spec
>
> Is this not correct?
Yes, that is correct.
C1127 A variable-name in a locality-spec shall not be the same as an
index-name in the concurrent-header of the same DO CONCURRENT
statement.
