Hello gentlemen!
Could anybody help me to understand why the following little program stops (or hangs up) after closing dialog box and printingthe text 'TYPE ANY STRING AND PRESS '?
The program has been compilled via 30-days
Intel Visual Fortran Composer XE 2011 Integration for Microsoft Visual Studio* 2008,
Thanks

USE IFLOGM; USE IFQWIN
IMPLICIT NONE
INCLUDE 'RESOURCE.FD'
TYPE (DIALOG) DLG_1
LOGICAL*4 STATUS_L4
INTEGER*4 STATUS_I4
INTEGER*2 STATUS_I2
CHARACTER*120 T

STATUS_I4=SetExitQQ(QWIN$EXITNOPERSIST)

OPEN (1, FILE='USER')
WRITE (1,*) 'TYPE ANY STRING AND PRESS '; READ (1,*) T; WRITE (1,*) ' '

STATUS_L4=DLGINIT (DIAL, DLG_1)
STATUS_I4=DLGMODAL(DLG_1)
WRITE (1,*) 'DLGMODAL(DLG_1)=/=-1'; WRITE (1,*) STATUS_I4; WRITE (1,*) ' '
CALL DLGUNINIT (DLG_1)

STATUS_I4=SETACTIVEQQ(1)
WRITE (1,*) 'SETACTIVEQQ(1)=1'; WRITE (1,*) STATUS_I4; WRITE (1,*) ' '
STATUS_I4=FOCUSQQ(1)
WRITE (1,*) 'FOCUSQQ(1)=0'; WRITE (1,*) STATUS_I4; WRITE (1,*) ' '

WRITE (1,*) 'TYPE ANY STRING AND PRESS '; READ (1,*) T; WRITE (1,*) ' '
WRITE (1,*) 'OK !!!'; CALL SLEEPQQ (1500)

STOP
END