Intrinsic Subroutine: Terminates program execution, closes all files, and returns control to the operating system.
Syntax
CALL EXIT ( [status] )
status
(Output; optional) Is an integer argument you can use to specify the image exit-status value.
The exit-status value may not be accessible after program termination in some application environments.
See Also
Example
INTEGER(4) exvalue
! all is well, exit with 1
exvalue = 1
CALL EXIT(exvalue)
! all is not well, exit with diagnostic -4
exvalue = -4
CALL EXIT(exvalue)
! give no diagnostic, just exit
CALL EXIT ( )