Intel® Fortran Compiler Classic and Intel® Fortran Compiler Developer Guide and Reference

ID 767251
Date 11/07/2023
Public

A newer version of this document is available. Customers should click here to go to the newest version.

Document Table of Contents

GETEXITQQ

QuickWin Function: Returns the setting for a QuickWin application's exit behavior. This routine is only available for Windows.

Module

USE IFQWIN

result = GETEXITQQ( )

Results

The result type is INTEGER(4). The result is exit mode with one of the following constants (defined in IFQWIN.F90):

  • QWIN$EXITPROMPT - Displays a message box that reads "Program exited with exit status n. Exit Window?", where n is the exit status from the program.

    If you choose Yes, the application closes the window and terminates. If you choose No, the dialog box disappears and you can manipulate the window as usual. You must then close the window manually.

  • QWIN$EXITNOPERSIST - Terminates the application without displaying a message box.

  • QWIN$EXITPERSIST - Leaves the application open without displaying a message box.

The default for both QuickWin and Console Graphics applications is QWIN$EXITPROMPT.

Example

!  Program to demonstrate GETEXITQQ
     USE IFQWIN
     INTEGER i
     i = GETEXITQQ()
     SELECT CASE (i)
       CASE (QWIN$EXITPROMPT)
         WRITE(*, *) "Prompt on exit."
       CASE (QWIN$EXITNOPERSIST)
         WRITE(*,*) "Exit and close."
       CASE (QWIN$EXITPERSIST)
         WRITE(*,*) "Exit and leave open."
     END SELECT
     END

See Also