インテル® Fortran コンパイラー 19.0 デベロッパー・ガイドおよびリファレンス

STOP and ERROR STOP

Statements: The STOP statement initiates normal termination of an image before the execution of an END statement of the main program. The ERROR STOP statement initiates error termination.

STOP [stop-code]

ERROR STOP [stop-code]

stop-code

(Optional) A message. It can be any of the following:

  • A scalar character constant expression of type default character

  • A non-negative integer constant less than or equal to 2147483647 (2**31-1); leading zeros are ignored

  • A scalar integer constant expression

An ERROR STOP statement can appear in a PURE procedure, a STOP statement cannot appear.

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

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

When a program is running on multiple images, a STOP statement on one image does not affect the other images; they can continue to reference and define the coarrays located on the stopped image. An ERROR STOP initiates execution termination on all images, which may include flushing of I/O buffers, closing of I/O files, and reporting error status on one or more images.

Effect on Windows* Systems

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

  Program terminated with Exit Code stop-code

If the application has no console window, the stop-code is displayed in a message box.

Effect on Linux* and macOS* Systems

Operating system shells (such as bash, sh, csh, dash, etc.) work with a 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

See Also