Intel® Fortran Compiler 17.0 Developer Guide and Reference
QuickWin Function: Sets a QuickWin application's exit behavior.
USE IFQWIN
result = SETEXITQQ (exitmode)
exitmode |
(Input) INTEGER(4). Determines the program exit behavior. The following exit parameters are defined in IFQWIN.F90:
|
The result type is INTEGER(4). The result is zero if successful; otherwise, a negative value.
The default for both QuickWin and Standard Graphics applications is QWIN$EXITPROMPT.
! Build as QuickWin Ap
USE IFQWIN
INTEGER(4) exmode, result
WRITE(*,'(1X,A,/)') 'Please enter the exit mode 1, 2 &
or 3 '
READ(*,*) exmode
SELECT CASE (exmode)
CASE (1)
result = SETEXITQQ(QWIN$EXITPROMPT)
CASE (2)
result = SETEXITQQ(QWIN$EXITNOPERSIST)
CASE (3)
result = SETEXITQQ(QWIN$EXITPERSIST)
CASE DEFAULT
WRITE(*,*) 'Invalid option - checking for bad &
return'
IF(SETEXITQQ( exmode ) .NE. -1) THEN
WRITE(*,*) 'Error not returned'
ELSE
WRITE(*,*) 'Error code returned'
ENDIF
END SELECT
END