https://gcc.gnu.org/bugzilla/show_bug.cgi?id=122513
--- Comment #8 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
(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?
