STOP

Syntax

STOP [stop-code]

stop-code

(Optional) A message. It can be either of the following: A scalar character constant of type default character. A non-negative integer less than or equal to 2147483647; leading zeros are ignored. (The Fortran standard limits stop-code to at most five digits.)

If stop-code is specified, the STOP statement does the following:

• Writes the specified message to the standard error device.

• Writes one or more of the following messages to the standard error device indicating which IEEE floating-point exceptions are signaling:

  • IEEE_DIVIDE_BY_ZERO is signaling

  • IEEE_INVALID is signaling

  • IEEE_OVERFLOW is signaling

  • IEEE_UNDERFLOW is signaling

• Terminates program execution. If stop-code is a character constant, a status of zero is returned. If stop-code is an integer, a status equal to stop-code is returned.

If stop-code is not specified, the program is terminated, no message is printed, and a status of zero is returned.

Effect on Windows* Systems

In QuickWin programs, the following is displayed in a message box:

Program terminated with Exit Code stop-code

Effect on Linux* and Mac OS* Systems

Operating system shells (such as bash, sh, csh, etc.) work with one byte exit status. So, when stop-code is an integer, only the lowest byte is significant. For example, consider the following statement:

STOP 99999

In this case, the program returns a status equal to 159 because integer 99999 = Z'1869F', and the lowest byte is equal to Z'9F', which equals 159.

Example

The following examples show valid STOP statements:

STOP 98

STOP 'END OF RUN'

DO

READ *, X, Y

IF (X > Y) STOP 5555

END DO

The following shows another example:

OPEN(1,FILE='file1.dat', status='OLD', ERR=100)

. . .

100 STOP 'ERROR DETECTED!'

END