CALL Signal(Number, Handler, Status)
INTEGER; scalar; INTENT(IN).
Handler: Signal handler (
INTEGER FUNCTION or
INTEGER(KIND=7); OPTIONAL; scalar; INTENT(OUT).
If Handler is a an
EXTERNAL routine, arranges for it to be
invoked with a single integer argument (of system-dependent length)
when signal Number occurs.
If Handler is an integer, it can be
used to turn off handling of signal Number or revert to its default
Note that Handler will be called using C conventions,
so the value of its argument in Fortran terms
Fortran terms is obtained by applying
LOC()) to it.
The value returned by
signal(2) is written to Status, if
that argument is supplied.
Otherwise the return value is ignored.
Some non-GNU implementations of Fortran provide this intrinsic as only a function, not as a subroutine, or do not support the (optional) Status argument.
Warning: Use of the
libf2c run-time library function
(such as via `EXTERNAL SIGNAL')
requires use of the
to pass an
(such as `SIG_IGN' or `SIG_DFL')
for the Handler argument.
However, while `CALL SIGNAL(signum, %VAL(SIG_IGN))'
works when `SIGNAL' is treated as an external procedure
(and resolves, at link time, to
libf2c's `signal_' routine),
this construct is not valid when `SIGNAL' is recognized
as the intrinsic of that name.
Therefore, for maximum portability and reliability, code such references to the `SIGNAL' facility as follows:
INTRINSIC SIGNAL ... CALL SIGNAL(signum, SIG_IGN)
g77 will compile such a call correctly,
while other compilers will generally either do so as well
or reject the `INTRINSIC SIGNAL' statement via a diagnostic,
allowing you to take appropriate action.
For information on other intrinsics with the same name: See Signal Intrinsic (function).