EXIT — Exit the program with status.#

EXIT(STATUS)#

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