EXIT — Exit the program with status.¶

EXIT()¶

EXIT causes immediate termination of the program with status. If status is omitted it returns the canonical success for the system. All Fortran I/O units are closed.

Parameters: STATUS – Shall be an INTEGER of the default kind.
Returns: STATUS is passed to the parent process on exit.

Standard:: GNU extension
Class:: Subroutine

Syntax:

CALL EXIT([STATUS])

Example:

program test_exit
  integer :: STATUS = 0
  print *, 'This program is going to exit.'
  call EXIT(STATUS)
end program test_exit

See also:: ABORT, KILL