8.12 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 секунды.