# ABORT

Portability Subroutine: Flushes and closes I/O buffers, and terminates program execution.

## Module

USE IFPORT

CALL ABORT[string]

string | (Input; optional) Character*(*). Allows you to specify an abort message at program termination. When ABORT is called, "abort:" is written to external unit 0, followed by string. If omitted, the default message written to external unit 0 is "abort: Fortran Abort Called."

This subroutine causes the program to terminate and an exit code value of 134 is returned to the program that launched it.

## Example

    USE IFPORT
    !The following prints "abort: Fortran Abort Called"
    CALL ABORT
    !The following prints "abort: Out of here!"
    Call ABORT ("Out of here!")

Parent topic: A to B

## See Also

EXIT
STOP