9.29 ATOMIC_FETCH_AND — Атомная побитовая операция AND с предварительным извлечением

Описание:

ATOMIC_AND(ATOM, VALUE) атомно сохраняет значение ATOM в OLD и определяет ATOM как побитовое И между значениями ATOM и VALUE. Если STAT присутствует и вызов был успешным, ему присваивается значение 0. Если он присутствует и вызов завершился неудачно, ему присваивается положительное значение; в частности, для индексированной переменной ATOM, если удалённая копия остановилась, ему присваивается значение ISO_FORTRAN_ENV’s STAT_STOPPED_IMAGE , а если удалённая копия завершилась ошибкой, значение STAT_FAILED_IMAGE.

Стандарт:

TS 18508 или более поздняя версия

Класс:

Атомная подпрограмма

Синтаксис:

CALL ATOMIC_FETCH_AND (ATOM, VALUE, OLD [, STAT])

Аргументы:

ATOM	Скалярная сомассивная или соиндексированная переменная целочисленного типа с ATOMIC_INT_KIND типом.
VALUE	Скаляр того же типа, что и ATOM. Если тип различается, значение преобразуется к типу ATOM.
OLD	Скаляр того же типа и размера, что и ATOM.
STAT	(необязательно) Скалярная переменная целочисленного типа по умолчанию.

Пример:

program atomic
  use iso_fortran_env
  integer(atomic_int_kind) :: atom[*], old
  call atomic_fetch_and (atom[1], int(b'10100011101'), old)
end program atomic

См. также:

ATOMIC_DEFINE, ATOMIC_AND, ISO_FORTRAN_ENV, ATOMIC_FETCH_ADD, ATOMIC_FETCH_OR, ATOMIC_FETCH_XOR