blob: 799f808aff57a88fcc65fe786b6fc1bfe6d97530 [file] [log] [blame]
program docon
dimension a(10)
do i = 1, 10 ! OK
a(i) = i
end do
do concurrent (i = 1:10) ! Syntax error
a(i) = i
end do
end program docon