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

GETEXITQQ (W*S)

QuickWin Function: Returns the setting for a QuickWin application's exit behavior.

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):

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