8.13 ALARM — Выполнение подпрограммы через заданный интервал

Описание:

ALARM(SECONDS, HANDLER [, STATUS]) вызывает выполнение внешней подпрограммы HANDLER через SECONDS секунд, используя alarm(2) для настройки сигнала и signal(2) для его перехвата. Если указан STATUS, он вернёт количество секунд, оставшихся до выполнения ранее запланированной сигнализации, или ноль, если такой сигнализации нет.

Стандарт:

Расширение GNU

Класс:

Подпрограмма

Синтаксис:

CALL ALARM(SECONDS, HANDLER [, STATUS])

Аргументы:

`SECONDS`	Тип аргумента — скаляр `INTEGER`. Это `INTENT(IN)`.
`HANDLER`	Обработчик сигнала (`INTEGER FUNCTION` или `SUBROUTINE`) или пустой/глобальный `INTEGER` скаляр. Значения скаляров могут быть либо `SIG_IGN=1` (для игнорирования сгенерированной сигнализации), либо `SIG_DFL=0` (для установки стандартного действия). Это `INTENT(IN)`.
`STATUS`	(Необязательно) `STATUS` — скалярная переменная стандартного `INTEGER` типа. Это `INTENT(OUT)`.

Пример:

program test_alarm
  external handler_print
  integer i
  call alarm (3, handler_print, i)
  print *, i
  call sleep(10)
end program test_alarm

Это вызовет выполнение внешней подпрограммы handler_print через 3 секунды.

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