integer,parameter::m=10000
real::a(m), b(m)
real::fact=0.5
do concurrent (i=1:m)
  a(i) = a(i) + fact*b(i)
end do
write(*,"(A)") "Hello, world!"
end