program crit
integer, CODIMENSION[*] :: i_sum = 0
CRITICAL
i_sum[1] = i_sum[1] + THIS_IMAGE()
END CRITICAL
if (THIS_IMAGE() == 1) write(6, *) 'Sum = ',i_sum
end program crit
