8.31 ATOMIC_DEFINE — Установка переменной атомарно

Описание:

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_DEFINE (ATOM, VALUE [, STAT])

Аргументы:

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

Пример:

program atomic
  use iso_fortran_env
  integer(atomic_int_kind) :: atom[*]
  call atomic_define (atom[1], this_image())
end program atomic

См. также:

ATOMIC_REF — Получение значения переменной атомарно, ATOMIC_CAS — Атомарный обмен с сравнением, ISO_FORTRAN_ENV, ATOMIC_ADD — Атомарная операция сложения, ATOMIC_AND — Атомарная поразрядная операция И, ATOMIC_OR — Атомарная поразрядная операция ИЛИ, ATOMIC_XOR — Атомарная поразрядная операция ИЛИ

© Free Software Foundation
Licensed under the GNU Free Documentation License, Version 1.3.
https://gcc.gnu.org/onlinedocs/gcc-14.2.0/gfortran/ATOMIC_005fDEFINE.html