9.37 ATOMIC_REF — Атомное получение значения переменной

Описание:

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

Стандарт:

Fortran 2008 и новее; с STAT, TS 18508 и новее

Класс:

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

Синтаксис:

CALL ATOMIC_REF(VALUE, ATOM [, STAT])

Аргументы:

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

Пример:

program atomic
  use iso_fortran_env
  logical(atomic_logical_kind) :: atom[*]
  logical :: val
  call atomic_ref (atom, .false.)
  ! ...
  call atomic_ref (atom, val)
  if (val) then
    print *, "Obtained"
  end if
end program atomic

См. также:

ATOMIC_DEFINE, ATOMIC_CAS, ISO_FORTRAN_ENV, ATOMIC_FETCH_ADD, ATOMIC_FETCH_AND, ATOMIC_FETCH_OR, ATOMIC_FETCH_XOR