Next: , Previous: ETIME, Up: Intrinsic Procedures


8.53 EXIT — Exit the program with status.

Description:
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.
Option:
gnu
Class:
non-elemental subroutine
Syntax:
CALL EXIT([STATUS])
Arguments:

STATUS The type of the argument shall be INTEGER(*).

Return value:
STATUS is passed to the parent process on exit.
Example:
          program test_exit
            integer :: STATUS = 0
            print *, 'This program is going to exit.'
            call EXIT(STATUS)
          end program test_exit