program test implicit none do concurrent(integer :: i=1:10) print*,i end do end program test
Thank you for the report and convenient test case. We fixed a related defect (here) earlier but not the case you presented. The 17.0 compiler also does not accept your case. I will report this to Development.
(Internal Tracking id: DPD200420013)