https://gcc.gnu.org/bugzilla/show_bug.cgi?id=122513
--- Comment #5 from Alexander Heger <alex.heger at gmail dot com> ---
My apologies again. For reference, the original (fixed) full program I wanted
to use to demonstrate the first-mentioned problem is
program test
implicit none
integer, dimension(2,3), parameter :: &
ii = reshape((/ 1,2,3,4,5,6 /), (/2, 3/))
integer :: i
do concurrent (i=1:2) default (none)
print*,ii(i,:)
end do
end program test
this gives the compile error(s)
test45.f90:7:14:
6 | do concurrent (i=1:2) default (none)
| 2
7 | print*,ii(i,:)
| 1
Error: Variable ‘ii’ at (1) not specified in a locality spec of DO CONCURRENT
at (2) but required due to DEFAULT (NONE)
test45.f90:7:17:
6 | do concurrent (i=1:2) default (none)
| 2
7 | print*,ii(i,:)
| 1
Error: Variable ‘i’ at (1) not specified in a locality spec of DO CONCURRENT at
(2) but required due to DEFAULT (NONE)
I had not seen the second error kind in my actual application code, only the
first kind.
