      Semaphore s
      parallel do i=1,n
        lock(s)
        x = x+1
        unlock(s)
      end parallel do
