Developer Guide and Reference

ID 767251
Date 10/31/2024
Public
Document Table of Contents

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!")

See Also